Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (22 sloc) 0.904 kB
(ns foreclojure.ring
(:use [compojure.core :only [GET]]
[ring.util.response :only [response]])
(:require [clojure.java.io :as io])
(:import (java.net URL)))
;; copied from compojure.route, modified to use File instead of Stream
(defn resources
"A route for serving resources on the classpath. Accepts the following
keys:
:root - the root prefix to get the resources from. Defaults to 'public'."
[path & [options]]
(-> (GET path {{resource-path :*} :route-params}
(let [root (:root options "public")]
(when-let [res (io/resource (str root "/" resource-path))]
(response (io/as-file res)))))))
(defn wrap-url-as-file [handler]
(fn [request]
(when-let [{body :body :as resp} (handler request)]
(if (and (instance? URL body)
(= "file" (.getProtocol ^URL body)))
(update-in resp [:body] io/as-file)
resp))))
Jump to Line
Something went wrong with that request. Please try again.