multiupdate.clj

;; See https://twitter.com/stevelosh/status/269269366992936960

(defn multi-update [m updates]
  (reduce (fn [m [k f & args]] 
            (update-in m k #(apply f % args))) 
    m updates))

;; user=> (multi-update {:a 1 :b 2 :c 3} [[[:a] 1 1 1][[:b] 1 1][[:c] 3 1 -2]])
;; {:a 4, :c 5, :b 4}

See https://twitter.com/stevelosh/status/269269366992936960