Add ring.static middleware, a filtering wrapper around ring.file that…

… minimizes filesystem calls

@@ -0,0 +1,18 @@
+(ns ring.static
+  (:require ring.file)
+  (:use ring.utils))
+
+(defn wrap
+  "Like ring.file, but takes an additional statics, a coll of Strings that will
+  be used to test incoming requests uris. If the uri begins with any of the
+  strings in statics, the middleware will check to see if a files can be served
+  from the public-dir before proxying back to the given app; if the uri does not
+  match the re, proxies the request directly back to the app without touching the
+  filesystem."
+  [public-dir statics app]
+  (let [app-with-file (ring.file/wrap public-dir app)]
+    (fn [req]
+      (let [uri (:uri req)]
+        (if (some #(.startsWith uri %) statics)
+          (app-with-file req)
+          (app req))))))

@@ -0,0 +1 @@
+foo

@@ -0,0 +1,18 @@
+(ns ring.static-test
+  (:use clj-unit.core ring.static)
+  (:import java.io.File))
+
+(def public-dir      (File. "test/ring/assets"))
+(def foo-html        (File. "test/ring/assets/foo.html"))
+(def nested-foo-html (File. "test/ring/assets/bars/foo.html"))
+(def statics ["/foo.html" "/bars/"])
+
+(def app (ring.static/wrap public-dir statics (constantly {:body :dynamic})))
+
+(defn app-response-body [uri]
+  (:body (app {:request-method :get :uri uri})))
+
+(deftest "wrap"
+  (assert= foo-html        (app-response-body "/foo.html"))
+  (assert= nested-foo-html (app-response-body "/bars/foo.html"))
+  (assert= :dynamic        (app-response-body "/not/static")))

@@ -5,5 +5,6 @@
   'ring.lint-test
   'ring.file-test
   'ring.file-info-test
+  'ring.static-test
   'ring.reload-test
   'ring.backtrace-test)