From 4cdf0607504aca222b2feb760a65e3d7b60f4398 Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Sat, 22 Mar 2014 16:57:21 -0400
Subject: [PATCH] add servlet context path middleware

will be used by functions yet-to-be-added
---
 src/clj_jtwig/web/middleware.clj | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/clj_jtwig/web/middleware.clj

diff --git a/src/clj_jtwig/web/middleware.clj b/src/clj_jtwig/web/middleware.clj
new file mode 100644
index 0000000..4ca58ee
--- /dev/null
+++ b/src/clj_jtwig/web/middleware.clj
@@ -0,0 +1,12 @@
+(ns clj-jtwig.web.middleware)
+
+(declare ^:dynamic *servlet-context-path*)
+
+(defn wrap-servlet-context-path
+  "Binds the current request's context path to a var which we can use in
+   various jtwig functions that need it without having to explicitly
+   pass the path in as a function parameter."
+  [handler]
+  (fn [req]
+    (binding [*servlet-context-path* (:context req)]
+      (handler req))))
\ No newline at end of file