   (let [today-nr (week-day-nr (t/now))
         date (t/minus (t/now)
                       (t/days (- today-nr k)))]
-    [k (assoc v :date (parse-date date))]
-  ))
+    [k (assoc v :date (unparse-date date))]
+    ))
 
 (defn week-dates []
   (map-kv day-map count-date))

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

(defcomponent app-view [app owner]

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

(defn unparse-date [date]
  (f/unparse date-format date))

(defn week-day-nr [date]
