defphase.clj

(defmacro defphase
  [name & rest]
  (let [[name [argvec body]]
        (name-with-attributes name rest)]
    `(def ~name
       (phase-fn ~argvec ~body))))

(defmacro let-with-arg->
  "A `let` form that can appear in a request thread, and assign the
   value of the threaded arg.

   eg.
      (-> 1
        (let-with-arg-> val [a 1]
          (+ a val)))
   => 3"
  [arg arg-symbol binding & body]
  `(let [~arg-symbol ~arg
         ~@binding]
     (-> ~arg-symbol ~@body)))