From 97a850b1d882e6eb9400601734f0856e8f36fd3e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 1 Mar 2009 13:59:31 +0100
Subject: Apply a column-based layout to the main page via CSS.

---
 cljssss-g.clj | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'cljssss-g.clj')

diff --git a/cljssss-g.clj b/cljssss-g.clj
index ad466d0..159cd48 100644
--- a/cljssss-g.clj
+++ b/cljssss-g.clj
@@ -124,6 +124,7 @@
                                                                        feed
                                                                        active-entry-id))
                                   "active_feed_id" feed
+                                  "active_feed_title" (and feed (select-feed-name feed user))
                                   "title" "Subscriptions"})))))
 
 (defmacro with-session
@@ -160,6 +161,8 @@
     (with-session (show-subscriptions (session :id) (params :feed) nil)))
   (GET "/entries/*"
     (with-session (show-subscriptions (session :id) (params :feed) 5)))
+  (GET "/layout.css"
+    (serve-file "layout.css"))
   (ANY "*"
     (page-not-found)))
 
-- 
cgit v1.2.3