diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 20 |
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))] |