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

minor refactoring

Browse source
This commit is contained in:
Gered 2014-06-01 16:45:22 -04:00
parent 03f58d5b93
commit 12aabb6fd8
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -15,12 +15,15 @@
(let [uri (new URI url)]
(str/blank? (.getScheme uri)))))
(defn- get-resource-modification-timestamp [^String 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)
(get-context-url)
(get-resource-modification-date))))
(defn- get-url-string [url]
(if-let [modification-timestamp (if (relative-url? url)
;; TODO: while 'public' is the default with Compojure, applications can override with something else ...
(->> (str "public" url)
(get-context-url)
(get-resource-modification-date)))]
(if-let [modification-timestamp (get-resource-modification-timestamp url)]
(str url "?" modification-timestamp)
url))