From 17da9b9ce4a3e5354a6a8689c1e2ee4466b76e39 Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@zancanaro.id.au>
Date: Thu, 13 Feb 2014 23:36:36 +1100
Subject: Rename project to 'abra', add 'add-middleware' function to maintain
 reverse-routing through middleware stack

---
 src/reverse_routing/core.clj | 85 --------------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100644 src/reverse_routing/core.clj

(limited to 'src/reverse_routing/core.clj')

diff --git a/src/reverse_routing/core.clj b/src/reverse_routing/core.clj
deleted file mode 100644
index edc1f57..0000000
--- a/src/reverse_routing/core.clj
+++ /dev/null
@@ -1,85 +0,0 @@
-(ns reverse-routing.core
-  (:require clout.core
-            compojure.core
-            [clojure.string :as string]))
-
-(def ^:private ^:dynamic *lookup-route* nil)
-(def ^:private ^:dynamic *root* nil)
-
-(defn ^:private deref-if-var [arg]
-  (if (var? arg)
-    (deref arg)
-    arg))
-
-(defn wrap-reverse-routing [handler & {:keys [root] :or {:root ""}}]
-  (fn [request]
-    (binding [*lookup-route* (->> handler deref-if-var meta ::lookup)
-              *root* root]
-      (handler request))))
-
-(defn ^:private lookup-route [route & handlers]
-  (->> handlers
-       (map (comp ::lookup meta deref-if-var))
-       (some #(if % (% route)))))
-
-(defn ^:private routing [request & handlers]
-  (some #(% request) handlers))
-
-(defn routes [& handlers]
-  (vary-meta #(apply routing % handlers)
-             assoc ::lookup #(apply lookup-route % handlers)))
-
-(defmacro let-routes [bindings & handlers]
-  `(let ~bindings (routes ~@handlers)))
-
-(defmacro when-routes [cond & handlers]
-  `(if ~cond (routes ~@handlers) (routes)))
-
-(defmacro defroutes [name & handlers]
-  `(def ~name (routes ~@handlers)))
-
-(defmacro context [path args & routes]
-  (let [string-path (if (vector? path) (first path) path)
-        path-keys (vec (:keys (clout.core/route-compile string-path)))
-        keylen (count path-keys)
-        lookup-fn `(fn [[route-name# args#]]
-                     (if (>= (count args#) ~keylen)
-                       (let [~args args# 
-                             r# (try (#'lookup-route [route-name# (vec (drop ~keylen args#))]
-                                                     ~@routes)
-                                     (catch Exception _#))
-                             {uri# :uri, args# :args} r#]
-                         (if r#
-                           (assoc r#
-                             :uri (str ~string-path uri#)
-                             :args (vec (concat ~path-keys args#)))))))]
-    `(vary-meta (compojure.core/context ~path ~args
-                  (routes ~@routes))
-                assoc ::lookup ~lookup-fn)))
-
-(defmacro register-route [route-name [type path args & body :as route]]
-  (let [string-path (if (vector? path) (first path) path)
-        route-args (:keys (clout.core/route-compile string-path))
-        routes-map {:uri string-path
-                    :type (keyword (string/lower-case (name type)))
-                    :args (vec route-args)}]
-    `(vary-meta ~route
-                assoc ::lookup (fn [[name# args#]]
-                                 (if (and (= name# ~route-name)
-                                          (= (count args#) (count ~(vec route-args))))
-                                   ~routes-map)))))
-
-(defmacro with-url-fn [f & body]
-  `(binding [*lookup-route* (fn [x#] (apply ~f x#))
-             *root* ""]
-     ~@body))
-
-(defn url-for [route & arg-values]
-  (let [spec (*lookup-route* [route arg-values])
-        {:keys [uri type args]} spec
-        root-path *root*]
-    (if spec
-      (str root-path
-           (reduce (fn [string [name val]]
-                     (clojure.string/replace string (str name) (str val)))
-                   uri (map vector args arg-values))))))
-- 
cgit v1.2.3