 (def date-format
   (f/formatter "dd.MM."))
 
-(defn parse-date [date]
+(defn unparse-date [date]
   (f/unparse date-format date))
 
 (defn week-day-nr [date]

  (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))]
  ))

(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]
