Proposal for Riemann/Compojure routing integration

core.clj

(ns compojure-augmented.core
  (:require [compojure.core]))

(def bare
  (compojure.core/GET
   "/foo/:bar" [bar]
   {:status 200
    :body (str "Hello " bar)}))

(bare
 {:request-method :get
  :uri "/foo/test"})
;; => {:status 200, :headers {}, :body "Hello test"}

(defmacro augmented-GET
  [path args & body]
  `(let [handler# (compojure.core/GET ~path ~args ~@body)]
    (fn [request#]
      (when-let [response# (handler# request#)]
        (assoc response# :path ~path)))))

(def augmented
  (augmented-GET
   "/foo/:bar" [bar]
   {:status 200
    :body (str "Hiya " bar)}))

(augmented
 {:request-method :get
  :uri "/foo/fest"})
;; => {:path "/foo/:bar", :status 200, :headers {}, :body "Hiya fest"}