serve fullscreen on root

1 files changed, 11 insertions, 9 deletions

diff --git a/src/site.clj b/src/site.clj
index f38c67b..df15342 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -193,6 +193,13 @@
 
 ;; Landing
 
+(defn serve-meme [session meme]
+  (if-let [st   (fetch-template meme session)]
+    (let [now  (System/currentTimeMillis)]
+      (.setAttribute st "timestamp" now)
+      (.toString st))
+    (unknown-page)))
+
 (defn- parse-front-page-date [dt-str]
   (if-let [dt (parse-yyyymmdd-date dt-str)]
     [(advance-date dt -1)
@@ -219,13 +226,15 @@
 (def num-frontpage-dumps 20)
   
 (defn front-page
-  ([session] (front-page session (format-yyyymmdd (Date.))))
+  ([session]
+	 (cond
+		 (not (:nick session))                  (serve-meme session "fullscreen")
+		 :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)]
          (cond (.before cur-date earliest-daily-hall) (redirect-to "/")
                (.after cur-date today)                (redirect-to "/")
-               ;(not (:nick session))                  (serve-meme session "fullscreen")
                :else (let [st        (fetch-template "frontpage" session)
                            dumps     (map process-message-for-output
                                           (if (:nick session)
@@ -1159,13 +1168,6 @@ WHERE  user_id IN
 		  [200 err]
 		  (do-upload-avatar session image)))))
 
-(defn serve-meme [session meme]
-  (if-let [st   (fetch-template meme session)]
-    (let [now  (System/currentTimeMillis)]
-      (.setAttribute st "timestamp" now)
-      (.toString st))
-    (unknown-page)))
-
 (defn hall-of-fame [session]
   (let [st    (fetch-template "fame" session)
         msgs  (fetch-redis-hall (:nick session))]