I wish these were in clojure.walk.

useful.clj

(ns clojure.walk.useful
  (:require [clojure.walk :refer (postwalk)]))

(defn transform-keys
  "Recursively transforms all keys in map `m` which return true for
  a function `pred` by applying a function `f` to them."
  [m pred f]
  (let [func (fn [[k v]] (if (pred k) [(f k) v] [k v]))]
    (postwalk (fn [x] (if (map? x) (into {} (map func x)) x)) m)))

(defn transform-vals
  "Recursively transforms all values in map `m` which return true for
  a function `pred` by applying a function `f` to them."
  [m pred f]
  (let [func (fn [[k v]] (if (pred v) [k (f v)] [k v]))]
    (postwalk (fn [x] (if (map? x) (into {} (map func x)) x)) m)))