update-in-wildcard

gistfile1.clj

(defn update-in-wildcard
  [m [k & ks] f & args]
  (if ks
    (reduce (fn [m k]
              (assoc m k (apply update-in-wildcard (get m k) ks f args)))
            m
            (if (= k :*)
              (if (vector? m)
                (range 0 (count m))
                (keys m))
              [k]))
    (reduce (fn [m k]
              (assoc m k (apply f (get m k) args)))
            m
            (if (= k :*)
              (if (vector? m)
                (range 0 (count m))
                (keys m))
              [k]))))