zoeee mode

1 files changed, 32 insertions, 0 deletions

diff --git a/src/site.clj b/src/site.clj
index 9991c49..a7327c8 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -372,6 +372,37 @@
 
 ;; Profile
 
+(def *zoeee-query* "
+SELECT m.content, m.message_id, m.created_on, 
+       u.nick, u.avatar, r.key, 
+       array_to_string(ARRAY(SELECT nick || ' ' || tag
+          FROM tags, users
+          WHERE message_id = m.message_id AND tags.user_id = users.user_id), ' ') as tags
+FROM messages m, users u,rooms r
+WHERE u.nick = 'zoeee'
+AND   m.user_id = u.user_id
+AND   m.created_on::date = '20100430'
+AND   m.is_image = true
+AND   m.room_id = r.room_id
+AND   r.room_id = 1
+ORDER BY created_on DESC;
+")
+
+(defn zoeee-nudes [session]
+  (let [raw-dumps    (map tags/parse-tags-from-row-as-tag-map 
+                          (do-select [*zoeee-query*]))
+        dumps        (map tags/add-favorited-flag raw-dumps (repeat session))
+        dumps        (map tags/remove-tags-for-output dumps)
+        dumps        (map process-message-for-output dumps)
+        st           (fetch-template "profile" session)
+        user-info    (fetch-nick "zoeee")]
+    (doseq [a [:nick :avatar :contact :bio]]
+      (let [v (user-info a)]
+        (.setAttribute st (name a)
+                       (if (non-empty-string? v) (escape-html v)))))
+    (.setAttribute st "dumps" dumps)
+    (.toString st)))
+
 (defn profile [session profile-nick offset]
   (if-let [user-info (fetch-nick profile-nick)]
     (let [st (fetch-template "profile" session)
@@ -1046,6 +1077,7 @@ ORDER  BY msg_count DESC")
   (GET "/error/ie" (serve-template "error_ie" session))
 
   ;; Put username routes below all others in priority
+  (GET "/zoeee/nudes"   (zoeee-nudes session))
   (GET "/:nick"         (profile session (params :nick) "0"))
   (GET "/:nick/"        (profile session (params :nick) "0"))
   (GET "/:nick/:offset" (profile session (params :nick) (params :offset)))