gered/clj-jtwig
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

move this out to a separate def for now, will add as an option later

Browse source
This commit is contained in:
Gered 2014-06-01 17:06:35 -04:00
parent a03c5a67d8
commit b633939883
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/clj_jtwig/web/web_functions.clj
View file

@ -5,7 +5,12 @@
(:import (java.net URI)) (:import (java.net URI))
(:require [clj-jtwig.web.middleware :refer [*servlet-context-path*]] (:require [clj-jtwig.web.middleware :refer [*servlet-context-path*]]
[clojure.string :as str]) [clojure.string :as str])
(:use [clj-jtwig.utils])) (:use [clj-jtwig.utils]
[clj-jtwig.options]))
;; TODO: while 'public' is the default with Compojure, applications can override with something else ...
;; should make this customizable (some option added to clj-jtwig.options likely ...)
(def root-resource-path "public")
(defn- get-context-url [url] (defn- get-context-url [url]
(str *servlet-context-path* url)) (str *servlet-context-path* url))
@ -17,8 +22,8 @@
(defn- get-resource-modification-timestamp [^String resource-url] (defn- get-resource-modification-timestamp [^String resource-url]
(if (relative-url? resource-url) (if (relative-url? resource-url)
;; TODO: while 'public' is the default with Compojure, applications can override with something else ...
(->> (str "public" resource-url) (->> (str root-resource-path resource-url)
(get-context-url) (get-context-url)
(get-resource-modification-date)))) (get-resource-modification-date))))