   []
   (html
    (base-template "Index")
-   (header '(("/about" "About")))))
+   (header '(("/about" "About")))
+   [:div.sform
+    [:form {:method "post" :role "form" :action "/results"} 
+     [:div.form-group
+      [:input.form-control {:type "text" :name "searchvalue"}]]
+     [:div.form-group
+      [:input.form-control {:type "submit" :value "Search"}]]]]))
 
 (defn about-page
   []

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

(def categories
  '("search" "popular" "highlights" "films" "nature"

  (html
   [:head
    [:title title]
    (include-css "/css/bootstrap.min.css")
    (include-css "/css/beebster.css")]))


(defmacro category-template 
