   [:div
     [:span (link-to (str "/movies/" (:event-id show)) (:title show))] (:time show)])
 
+(defn- render-genres [coll genres]
+  (for [genre genres]
+    [:td (map render-show (genre coll))]))
+
 (defn- shows-table [shows]
   [:table
     [:tr

      [:th "Action/Adventure/Sci-fi/Fantasy"]
      [:th "Drama/Romance"]
      [:th "Others"]]
    (for [date (take 4 (iterate #(.plusDays % 1) (now)))]
      (let [genres (group-by
                     (fn [{genres :genres}]
                       (cond (and (some #{"Komedia"} genres)

                             shows))]
        [:tr
          [:td (common/format-date date)]
          (render-genres genres [:comedy :action :drama :other])]))])


(defn shows [shows]
  (layout (shows-table shows)))
