Plugin system for Utterson

plugin.clj

(ns utterson.plugin)

(def hooks (atom {}))

(defn register [hook function]
  (swap! hooks update-in [hook] conj function))

(defn do-hook [hook & args]
  (apply (apply comp (hook @hooks)) args))

(register :test +)
(register :test inc)
(register :test #(do-hook :foo %))
(register :test println)
(register :foo #(* % 5))

(do-hook :test 1 2 3)
;35