From 4ee9af5e96dfdf045d13afa3510937f82b06df5c Mon Sep 17 00:00:00 2001 From: dumpfmprod Date: Thu, 30 Sep 2010 21:21:45 -0400 Subject: timb: image altars --- src/site.clj | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) (limited to 'src/site.clj') diff --git a/src/site.clj b/src/site.clj index f88afaf..620756d 100644 --- a/src/site.clj +++ b/src/site.clj @@ -847,6 +847,35 @@ WHERE u.user_id = ANY(?)" (log session (lookup-room room-key) offset params) (resp-error "UNKNOWN_ROOM")))) +;; Altars + +(defn altar-log [session params] + (let [id (params :id) + st (fetch-template "altar_log" session) + raw-dumps (tags/fetch-altars :message-id id :amount (+ 1 *dumps-per-page*)) + dumps (map tags/add-favorited-flag (take *dumps-per-page* raw-dumps) (repeat session)) + dumps (map tags/remove-tags-for-output dumps) + dumps (map process-message-for-output dumps)] + (.setAttribute st "dumps" dumps) + (if (> (count raw-dumps) *dumps-per-page*) + (.setAttribute st "next" ((last raw-dumps) :message_id))) + (.toString st))) + +(defn altar-log-by-nick [session params] + (let [id (params :id) + nick (params :nick) + user-id (user-id-from-nick nick) + st (fetch-template "altar_user_log" session) + raw-dumps (tags/fetch-altars :message-id id :amount (+ 1 *dumps-per-page*) :user-id user-id) + dumps (map tags/add-favorited-flag (take *dumps-per-page* raw-dumps) (repeat session)) + dumps (map tags/remove-tags-for-output dumps) + dumps (map process-message-for-output dumps)] + (.setAttribute st "dumps" dumps) + (.setAttribute st "nick" nick) + (if (> (count raw-dumps) *dumps-per-page*) + (.setAttribute st "next" ((last raw-dumps) :message_id))) + (.toString st))) + ;; Tags (defn undecoded-url-piece [url position] @@ -1263,6 +1292,10 @@ WHERE u.user_id = ANY(?)" (POST "/cmd/tag/add" (validated-add-tag session params)) (POST "/cmd/tag/rm" (validated-remove-tag session params)) + (GET "/altars" (altar-log session params)) + (GET "/altars/" (altar-log session params)) + (GET "/altars/:id" (altar-log session params)) + ;; Events (GET "/event" (current-event session)) @@ -1313,6 +1346,9 @@ WHERE u.user_id = ANY(?)" ;; Put username routes below all others in priority (GET "/:nick" (profile session (params :nick))) (GET "/:nick/" (profile session (params :nick))) + (GET "/:nick/altars" (altar-log-by-nick session params)) + (GET "/:nick/altars/" (altar-log-by-nick session params)) + (GET "/:nick/altars/:id" (altar-log-by-nick session params)) (GET "/:nick/tag/:tag" (tagged-dumps-by-nick session params (request-url request))) (GET "/:nick/tag/:tag/:offset" (tagged-dumps-by-nick session params (request-url request))) (GET "/:nick/favorites" (favorites-handler session (params :nick) nil nil)) -- cgit v1.2.3-70-g09d2