diff options
| author | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2014-09-19 09:17:01 -0400 |
|---|---|---|
| committer | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2014-09-19 09:17:01 -0400 |
| commit | 6996ef1862ec133e6d15ef06b660605d1192b166 (patch) | |
| tree | e64ae1b4548fbe53b4cca45e67fa723e707ed841 /src/site.clj | |
| parent | b04eea907242bb895f9578638f5f05612311fa66 (diff) | |
make / show top for today ; and sundry changes
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/site.clj b/src/site.clj index 67bb007..afde8c5 100644 --- a/src/site.clj +++ b/src/site.clj @@ -227,10 +227,10 @@ (defn front-page ([session] - (cond - (not (:nick session)) (serve-meme session "fullscreen") - :else (redirect-to "/chat") ) ) - ; :else (front-page session (format-yyyymmdd (Date.))) )) + (cond + (not (:nick session)) (serve-meme session "fullscreen") + ; :else (redirect-to "/chat") ) ) + :else (front-page session (format-yyyymmdd (Date.))) )) ([session dt-str] (let [today (Date.)] (if-let [[prev-date cur-date next-date] (parse-front-page-date dt-str)] |