From f0ab9c28ec3cdc0f347081e63e2448750d073d46 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 14 Apr 2010 18:52:24 -0400 Subject: Added muting emails --- src/utils.clj | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/utils.clj') 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))) -- cgit v1.2.3-70-g09d2