 ;; Today view
 (defn today-view []
   [:div {:class "col-md-12 text-center"}
-   [:h2 (get-state :today)]])
+   [:h2 (pretty-date (get-state :today))]])
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Rendering

(defn time-view []
  [:div {:class "col-md-3 col-md-offset-4"}
   [:h1 (display-time (apply time-diff
                             (map get-state (list :rtime :etime))))]])

(defn controls-view []
  (let [on25 #(when-not (get-state :on?) (set-time! (presets :twenty-five)))

(defn time-map [time]
  "Generates a map with start/end/running time keys"
  (let [now (now)]
    {:time time
     :stime now
     :etime (+ time now)}))

(defn default-state
  ([]
