Request-scoped compojure bindings, compatible with defroutes.

gistfile1.clj

(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 request#))))

(defmacro request-binding-handlers
  "Request-scoped bindings on multiple handlers with symbol capture of % to request.
   Expands to single handler composing sub-handlers with compojure's routes function."
  [bindings & handlers]
  `(wrap-request-binding ~bindings (compojure/routes ~@handlers)))