     [:title title]
     (include-css "/css/bootstrap.min.css")]))
 
+
+
+
+
+(defmacro category-template 
+  "macro for category links."
+  [url cat header]
+  `(base-template
+    (:title ~header)
+    (for [i categories]
+      (html ([:a.ms {:href (apply str "/" i)} i])))
+    (:h3 :id "header" ,header)
+    (display-results (search-categories ~header))))
+
+
 (defn index-page
   "html for index page"
   []
   (html
    (base-template "Index")
    (header '(("/about" "About")))))
+
+(defn about-page
+  []
+  (html
+   (base-template "About beebster")
+   (header '(("/" "Index")))
+   [:h2.header "Beebster"]
+   [:br]
+   [:p "Beebster, a Web Gui for "]
+   [:a {:href "http://www.infradead.org/get_iplayer/html/get_iplayer.html"}
+    "get-iplayer"]))
+

(ns beebster-clj.views
  (:use hiccup.core hiccup.util hiccup.page))

(defn header
  "universal bootstrap header for all beebster sites."

      [:div.nav-collapse.collapse
       [:ul.nav
        (for [[url description] links]
          [:li.active [:a {:href url} description]])
        (for [link categories]
          [:li.active [:a {:href (apply str "/categories?category=" link)} link]])]]]]]))

(defn base-template
  "base html template for all beebster sites."
