 (ns beebster-clj.views
-  (:use hiccup.core hiccup.util hiccup.page hiccup.form))
+  (:use hiccup.core hiccup.util hiccup.page hiccup.form beebster-clj.core))
 
 (def categories
   '("search" "popular" "highlights" "films" "nature"

   [:a {:href "http://www.infradead.org/get_iplayer/html/get_iplayer.html"}
    "get-iplayer"]))

(defn category-page
  [category]
  (html
   (base-template "Categories")
   (header '(("/" "Index") ("/about" "About")))
   [:h2.header (str category)]))


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

(defn base-template
