diff options
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/utils.clj b/src/utils.clj index da4d4be..d6a95e5 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -29,6 +29,9 @@ (defn swap [f] (fn [& more] (apply f (reverse more)))) +(defn join [lst int] + (apply str (interpose int lst))) + (def YYYYMMDD-format (new SimpleDateFormat "yyyyMMdd")) (defn today [] @@ -160,6 +163,6 @@ (session :is_admin)) (defmacro if-vip [e] - "Evaluates expr if user is vipm otherwise returns 404 string. Can only be used + "Evaluates expr if user is vip otherwise returns 404. Can only be used where session is defined." `(if (is-vip? ~'session) ~e (unknown-page))) |