From 6996ef1862ec133e6d15ef06b660605d1192b166 Mon Sep 17 00:00:00 2001 From: dumpfmprod Date: Fri, 19 Sep 2014 09:17:01 -0400 Subject: make / show top for today ; and sundry changes --- src/site.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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)] -- cgit v1.2.3-70-g09d2