summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--project.clj6
-rw-r--r--src/abra/core.clj (renamed from src/reverse_routing/core.clj)11
-rw-r--r--test/abra/core_test.clj (renamed from test/reverse_routing/core_test.clj)4
3 files changed, 15 insertions, 6 deletions
diff --git a/project.clj b/project.clj
index 431b954..4c96e79 100644
--- a/project.clj
+++ b/project.clj
@@ -1,6 +1,6 @@
-(defproject reverse-routing "0.1.0-SNAPSHOT"
- :description "FIXME: write description"
- :url "http://example.com/FIXME"
+(defproject abra "0.1.0-SNAPSHOT"
+ :description "A small library for reverse-routing in compojure applications."
+ :url "http://bitbucket.org/czan/abra"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:dependencies [[org.clojure/clojure "1.5.1"]
diff --git a/src/reverse_routing/core.clj b/src/abra/core.clj
index edc1f57..3d373eb 100644
--- a/src/reverse_routing/core.clj
+++ b/src/abra/core.clj
@@ -1,4 +1,4 @@
-(ns reverse-routing.core
+(ns abra.core
(:require clout.core
compojure.core
[clojure.string :as string]))
@@ -69,6 +69,15 @@
(= (count args#) (count ~(vec route-args))))
~routes-map)))))
+(defn add-middleware [handler middleware & args]
+ (let [result (apply middleware handler args)]
+ (vary-meta result
+ assoc ::lookup (fn [[name args]]
+ (let [lookup-fn (-> (deref-if-var handler)
+ meta
+ ::lookup)]
+ (lookup-fn [name args]))))))
+
(defmacro with-url-fn [f & body]
`(binding [*lookup-route* (fn [x#] (apply ~f x#))
*root* ""]
diff --git a/test/reverse_routing/core_test.clj b/test/abra/core_test.clj
index fb37c94..b829cec 100644
--- a/test/reverse_routing/core_test.clj
+++ b/test/abra/core_test.clj
@@ -1,6 +1,6 @@
-(ns reverse-routing.core-test
+(ns abra.core-test
(:use clojure.test
- reverse-routing.core
+ abra.core
[compojure.core :only [GET]]))
(defn make-request [handler uri]