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

(defn parse-shows-and-group-by-genre [xz]
  (let [shows (for [show (xml-> xz :Shows :Show)]
          (Show.
            (xml1-> show :EventId text)
            (xml1-> show :OriginalTitle text)
            (xml1-> show :TheatreAndAuditorium text)
            (into #{} (split (xml1-> show :Genres text) #", "))

              content]]]))

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

(defn show-table [shows]
  [:table
