diff options
Diffstat (limited to 'cljssss-g.clj')
| -rw-r--r-- | cljssss-g.clj | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index ad80a37..d232b53 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -295,10 +295,11 @@ to merely being replaced with a div element)?" (Integer/parseInt (params :feed))) nil))) (GET "/entries/*" - (with-session (show-subscriptions (session :id) - (and (params :feed) - (Integer/parseInt (params :feed))) - 5))) ;FIXME + (let [[match entry-id-string] (re-find #"^/entries/(.*)" path)] + (with-session (show-subscriptions (session :id) + (and (params :feed) + (Integer/parseInt (params :feed))) + (Integer/parseInt entry-id-string))))) (GET "/layout.css" (serve-file "layout.css")) (ANY "*" |