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

  [:div
    [:span (link-to (str "/movies/" (:event-id show)) (:title show))] (:time show)])

(defn- shows-table [shows]
  [:table
    [:tr

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


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