 (ns views
-  (:use [hiccup.core]))
+  (:use [hiccup.core]
+        [hiccup.page-helpers]))
 
 (defn layout [content]
   (html [:html

  (let [formatted-date (unparse (formatter "dd.MM.yyyy") date)
        cached-shows   (get @shows-db formatted-date)]
    (if cached-shows
      [formatted-date cached-shows]
      (let [new-shows (parse-shows-and-group-by-genre
                        (zip/xml-zip
                          (xml/parse

              content]]]))

(defn render-show [show]
  [:div (link-to (str "/shows/" (:event-id show)) (:title show))])

(defn show-table [shows]
  [:table
