Merge pull request #41 from jesims/JESI-2789

JESI-2789

VERSION

@@ -1 +1 @@
-0.0.32
+0.0.33

src/io/jesi/backpack.cljc

@@ -33,6 +33,7 @@
    select-non-nil-keys
    trans-reduce
    trans-reduce-kv
+   transform-keys
    translate-keys
    update!]
 

src/io/jesi/backpack/clojurescript.cljs

@@ -4,15 +4,9 @@
     [clojure.string :as string]
     [clojure.walk :refer [postwalk]]
     [goog.object :as gobj]
-    [io.jesi.backpack.collection :refer [trans-reduce]]
+    [io.jesi.backpack.collection :refer [trans-reduce transform-keys]]
     [io.jesi.backpack.string :refer [->kebab-case-key ->camelCase]]))
 
-; Came from camel-snake-kebab
-(defn transform-keys [t coll]
-  "Recursively transforms all map keys in coll with t."
-  (letfn [(transform [[k v]] [(t k) v])]
-    (postwalk (fn [x] (if (map? x) (into {} (map transform x)) x)) coll)))
-
 (extend-type UUID
   IEncodeJS
   (-clj->js [x]

src/io/jesi/backpack/collection.cljc

@@ -43,6 +43,7 @@
   [map]
   (into {} (filter (comp some? val) map)))
 
+;TODO isn't this the same at set/rename-keys ?
 (defn translate-keys
   "Updates map with the keys from kmap"
   [kmap map]
@@ -175,3 +176,9 @@
      (if more
        (recur ntcoll (first more) (next more))
        ntcoll))))
+
+; Came from camel-snake-kebab
+(defn transform-keys [f coll]
+  "Recursively transforms all map keys in coll with f"
+  (letfn [(transform [[k v]] [(f k) v])]
+    (postwalk (fn [x] (if (map? x) (into {} (map transform x)) x)) coll)))