   (t/day-of-week date))
 
 (defn week-dates []
-  (assoc-in week-map [(week-day (t/now))
+  (assoc-in day-map [(week-day (t/now))
                       :date] (today)))
 
 (defcomponent week-view [app owner]

            [cljs-time.format :as format]
            [om-tools.dom :as ot :include-macros true]
            [om-tools.core :refer-macros [defcomponent]]
            ))

(enable-console-print!)

(def app-state (atom {:text "Viikko" :date ""}))

(def week-map
  {1 {:name "Ma" :date ""}
   2 {:name "Ti" :date ""}
   3 {:name "Ke" :date ""}

   7 {:name "Su" :date ""}})

(def date-format
  (format/formatter "dd.MM."))

(defn update-vals [m f & args]
  (reduce
    (fn [r [k v]] (assoc r k (apply f v args)))
    {} m))

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