Apply a function walking multiple levels of maps and vectors

mapvals.clj

(require '[clojure.walk :refer [postwalk]])

(defn mapvals [f m]
  (let [v-f (fn [v]

       (cond 
            (map? v) v 
            (coll? v) (into (empty v) (map f) v)
            :else (f v)))
            
        kv-f (fn [[k v]] [k (v-f v)])]
    (postwalk 
      (fn [x] (if (map? x) (into {} (map kv-f x)) x))
      m)))

(comment
  
   (mapvals inc {:a {:b [1 2 3]} :c 2})
   ; {:a {:b [2 3 4]}, :c 3}
)