diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index 2777efc..6a011c6 100644 --- a/src/site.clj +++ b/src/site.clj @@ -17,6 +17,7 @@ admin compojure email + fame utils cookie-login session-sweeper @@ -741,7 +742,6 @@ FROM users u (if (not= offset 0) (.setAttribute st "prev" (max (dec offset) 0))) (.setAttribute st "dumps" dumps) - ;; (.setAttribute st "json_tags" json-tags) (if (default-room? roomkey) (.setAttribute st "roomkey" "") (.setAttribute st "roomkey" (str roomkey "."))) @@ -1046,6 +1046,11 @@ FROM users u (.toString st) (unknown-page))) +(defn hall-of-fame [session] + (let [st (fetch-template "fame" session)] + (.setAttribute st "dumps" (map process-message-for-output (poll hall-results))) + (.toString st))) + ;; Compojure Routes (defn serve-static [dir path] @@ -1121,6 +1126,8 @@ FROM users u ;; Memes (GET "/m/:m" (serve-meme session (params :m))) + + (GET "/hall" (hall-of-fame session)) ;; Footer pages (GET "/about_us" (serve-template "about_us" session)) @@ -1217,7 +1224,7 @@ FROM users u (Thread/sleep 3000) (start-user-flusher!) (start-session-pruner!) - +(start! hall-results) (if (= *server-url* "http://dump.fm") (do (start! feed-downloader) (start! feed-inserter))) |