 (def schedules-root-divs (-> schedule-markup 
                              (enlive/select [:div#main_body :> [:div (enlive/nth-of-type 2)]])
                              (enlive/select [enlive/root :>  [:div (enlive/nth-of-type 2)]])
-                             (enlive/select [enlive/root :> [:div (enlive/nth-of-type 1)]])
                              (enlive/select [enlive/root :> [:div]])))
 
 (defn extract-date-markup [single-schedule-markup]


(defn get-weekly-movie-schedule []
  (map make-single-movie-schedule schedules-root-divs))

                                   (map #(enlive/select % [:td.time]))
                                   (flatten))))))


(defn make-single-movie-schedule-wo-date [single-schedule-markup]
  (let [movielist (extract-movielist-from-schedule single-schedule-markup)
        timelist (extract-timeschedule-from-schedule single-schedule-markup)]
