I would argue that a large percentage of those seeking this library are looking for a

transform-keys has now been added to <code class="not

Add map-keys to misc.cljx about camel-snake-kebab HOT 3 CLOSED

clj-commons commented on August 25, 2024

Add map-keys to misc.cljx

from camel-snake-kebab.

Comments (3)

bbbates commented on August 25, 2024

Something like:

(zipmap (map ->kebab-case (keys your-map)) (vals your-map))
?

from camel-snake-kebab.

vincentjames501 commented on August 25, 2024

Not quite like that as that method doesn't traverse the map for nested keys:

(defn transform-keys [f m]
  (zipmap (map f (keys m)) (vals m)))

(transform-keys ->kebab-case-keyword {"oneTwo" 12 "threeFour" {"fiveSix" 56}})
=> {:one-two 12, :three-four {"fiveSix" 56}}

I was thinking one of the following:

(defn transform-keys
  "Recursively transforms all map keys in coll with t."
  [t m]
  (let [f (fn [[k v]] [(t k) v])]
    (walk/postwalk (fn [x] (if (map? x) (into {} (map f x)) x)) m)))

(transform-keys ->kebab-case-keyword {"oneTwo" 12 "threeFour" {"fiveSix" 56}})
=> {:three-four {:five-six 56}, :one-two 12}

(defn transform-keys 
  "Recursively transforms all map keys in m with f."
  [f m]
  (letfn [(mapper [[k v]] [(f k) (if (map? v) (map-keys f v) v)])]
    (into {} (map mapper m))))

(transform-keys ->kebab-case-keyword {"oneTwo" 12 "threeFour" {"fiveSix" 56}})
=> {:three-four {:five-six 56}, :one-two 12}