diff options
| -rw-r--r-- | cljssss-g.clj | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index 159cd48..c7d8eb0 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -124,7 +124,8 @@ feed active-entry-id)) "active_feed_id" feed - "active_feed_title" (and feed (select-feed-name feed user)) + "active_feed_title" (and feed + (select-feed-name user feed)) "title" "Subscriptions"}))))) (defmacro with-session @@ -158,9 +159,13 @@ (with-session (lynxy-showfeed (session :id) (Integer/parseInt (params :feed))))) (GET "/" - (with-session (show-subscriptions (session :id) (params :feed) nil))) + (with-session (show-subscriptions (session :id) + (Integer/parseInt (params :feed)) + nil))) (GET "/entries/*" - (with-session (show-subscriptions (session :id) (params :feed) 5))) + (with-session (show-subscriptions (session :id) + (Integer/parseInt (params :feed)) + 5))) (GET "/layout.css" (serve-file "layout.css")) (ANY "*" |