gistfile1.txt

;;; helpful to get rid of repetitive compojure destructuring.

(defmacro wrap-request-binding
 "Wraps the ring handler definition to provide request-scoped bindings
  via symbol-capture on %."
  [bindings handler-def]
  `(fn [request#]
     (let [~'% request#
           ~@bindings]
       (~handler-def req#))))

(defmacro binding-handlers
  "Request-scoped bindings on multiple handlers. Expands to a sequence of
   handlers (use routes instead of defroutes)."
  [bindings & handlers]
  (mapv (fn [handler] `(wrap-request-binding ~bindings ~handler)) handlers))