gistfile1.clj

(defmulti recur-replace-keys (comp type first list))

(defmethod recur-replace-keys java.util.Map [mp pat rep]
  (zipmap (map #(if (keyword? %)
                  (keyword (.replaceAll (name %) pat rep))
                  (recur-replace-keys % pat rep))
               (keys mp))
          (map #(recur-replace-keys % pat rep) (vals mp))))

(defmethod recur-replace-keys :default [mp pat rep] mp)

(defmethod recur-replace-keys clojure.lang.IPersistentCollection [s pat rep]
  (into (empty s) (map #(recur-replace-keys % pat rep) s)))

(prefer-method recur-replace-keys java.util.Map
               clojure.lang.IPersistentCollection)

(defmethod recur-replace-keys clojure.lang.ISeq [s pat rep]
  (map #(recur-replace-keys % pat rep) s))

(defn dasherize-keys
  "{:map_like 'this} to {:map-like 'this}"
  [m]
  (recur-replace-keys m "_" "-"))