 (defroutes handler
   (GET "/" []
     (views/calendar (apply-on-whole-week retrieve-shows-by-date)))
+  (GET "/:id" [id]
+    (views/movie (retrieve-movie id))
   (GET "/execute-batch" []
-    (apply-on-whole-week retrieve-and-store-shows-from-finnkino)))
+    (if (and
+          (apply-on-whole-week retrieve-and-store-shows-from-finnkino)
+          (retrieve-all-events-for-stored-shows))
+      "success"
+      "failure")))
 
 (run-jetty handler {:port 8080 :join? false})
 

      (fn [{genres :genres}]
        (condp some genres
          #{"Komedia"} :comedy
          #{"Draama"} :drama
          #{"Toiminta"} :action
          :other))
      shows)))


    [:tr
      [:th "Date"]
      [:th "Comedy"]
      [:th "Action/Adventure/Sci-fi/Fantasy"]
      [:th "Drama/Romance"]
      [:th "Thriller/Horror"]
      [:th "Others"]]
    (for [{date           :date
           shows-by-genre :shows-by-genre} shows]
      [:tr
        [:td date]
        [:td (map render-show (:comedy shows-by-genre))]
        [:td (map render-show (:action-adventure-scifi-fantasy shows-by-genre))]
        [:td (map render-show (:drama-romance shows-by-genre))]
        [:td (map render-show (:thriller-horror shows-by-genre))]
        [:td (map render-show (:other shows-by-genre))]])])

(defn calendar [shows]
