diff options
| author | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-19 14:45:23 -0400 |
|---|---|---|
| committer | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-19 14:45:23 -0400 |
| commit | ad7dbd7c4ea18502c66bf5a412758f9a52efaedb (patch) | |
| tree | 047487cbbf366f2c306f03cacaa0e8b51edca2db /src/utils.clj | |
| parent | 96b5da4e18cfde412103f8ceb129713ef49b632e (diff) | |
| parent | 73130a732df811e55a96ba38c11c0cb0f6090a8e (diff) | |
Merge branch 'master' of /pichat/repo
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))) |