camelcase-to-delimetered.clj

(defn camelcase-to-delimitered [k delimeter]
  (->> (clojure.string/split k #"(?=[A-Z])")
       (map clojure.string/lower-case)
       (clojure.string/join delimeter)))

(defn camelcase-to-delimitered-keys [m delimiter]
  (let [trans (fn [[k v]]
                (let [[strfn keyfn] (if (keyword? k)
                                      [name keyword]
                                      [identity identity])
                      str-key (strfn k)]
                  [(keyfn (camelcase-to-delimitered str-key delimiter)) v]))]
    (clojure.walk/postwalk (fn [v] (if (map? v) (into {} (map trans v)) v)) m)))