From 5213365b1b2dcdce6f2f61adf0e50861ee1010bc Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 4 Sep 2012 21:34:26 -0400 Subject: Add json-log route --- src/site.clj | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index 44b0c07..910a76c 100644 --- a/src/site.clj +++ b/src/site.clj @@ -950,6 +950,11 @@ WHERE user_id IN favs (reduce (fn [m fav] (assoc m (str (fav :message_id)) (fav :content))) {} raw-favs)] (str "RawFavs=" (json-str favs)))) +(defn json-log [session params] + (json-str (fetch-dumps-by-nick + :nick (params :nick) + :offset (or (maybe-parse-int (params :offset)) 0)))) + (defn search-query [num-tokens] (str "select url from image_urls @@ -1224,6 +1229,7 @@ WHERE user_id IN (GET "/u/:nick/favorites" (redirect-to (format "/%s/favorites" (params :nick)))) (GET "/u/:nick/favorites/:offset" (redirect-to (format "/%s/favorites" (params :nick)))) (GET "/json/:nick/favorites" (json-favorites session params)) + (GET "/json/:nick/log" (json-log session params)) ; have to put this route after favs (GET "/u/:nick/:offset" (redirect-to (str "/" (params :nick)))) -- cgit v1.2.3-70-g09d2