 
                       (ot/div
                         (map (fn [day]
-                               (ot/output {:class "day-label"} (str (:name day))))
+                               (ot/output {:class "day-label"}
+                                          (str (:name day) " " (:date day))))
                                (vals week-map))
+                              ; (vals week-dates))
                         ))
               )
 

    app-view
    app-state
    {:target (. js/document (getElementById "app"))}))

(defn today []
  (format/unparse date-format (time/now)))

(defn week-day [date]
  (time/day-of-week date))

(defn week-dates []
  ;(println (str "Tänään: "(time/day-of-week (time/now))))
  ;(println (keyword (time/day-of-week (time/now))))

  (assoc-in week-map [(keyword (str week-day (time/now)))
                      :date] "Tänään")
  )

(defcomponent week-view [app owner]
