diff options
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)] |