summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortim b <timb@camcompu.home>2010-05-26 11:33:35 -0700
committertim b <timb@camcompu.home>2010-05-26 11:33:35 -0700
commit88a1325b9b5f1fdc90c29e985caecf9dc6429ddf (patch)
tree6eff9e38b3f10f22a25fd1b109492846acaa7fd8
parent3d5371ad1a4f3b19bb3fa5a51c11333b184589b6 (diff)
fix favorites route
-rw-r--r--src/site.clj8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj
index eefbbc3..a6d151d 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -737,7 +737,7 @@ FROM users u
(let [nick (params :nick)
tags (map url-decode (re-split #"\+" (undecoded-url-piece url 3)))
user-id (user-id-from-nick nick)
- url (str "u/" nick "/tag/" (str-join "+" (map url-encode tags)))
+ url (str nick "/tag/" (str-join "+" (map url-encode tags)))
page-title (str "dumps " nick " tagged as '" (escape-html (str-join "' and '" tags)) "'")]
(tagged-dumps-template session params tags url page-title :tag-user-id user-id)))
@@ -750,7 +750,7 @@ FROM users u
(defn favorites [session params]
(let [nick (params :nick)
user-id (user-id-from-nick nick)
- url (str "u/" nick "/favorites")
+ url (str nick "/favorites")
page-title (str nick "'s favorites")]
(tagged-dumps-template session params "favorite" url page-title :tag-user-id user-id)))
@@ -985,6 +985,10 @@ FROM users u
;; Put username routes below all others in priority
(GET "/:nick" (profile session (params :nick) "0"))
(GET "/:nick/" (profile session (params :nick) "0"))
+ (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 session params))
+ (GET "/:nick/favorites/:offset" (favorites session params))
(GET "/:nick/:offset" (profile session (params :nick) (params :offset)))
(GET "/" (landing session))
(ANY "*" (unknown-page)))