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

  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [reagent.core :as reagent :refer [atom]]
            [cljs.core.async :refer [put! <! chan]]
            [clojure.string :as string]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Debugging

(defmethod display-time js/Number [t] (format-time (->date t)))
(defmethod display-time js/Date [d] (format-time d))

(defn time-diff [start end] (- end start))

(defn expired? [stime etime] (<= (time-diff stime etime) 0))

(defn dec-time [t] (- t 1e3))

(defmulti pretty-date (fn [d] (type d)))
(defmethod pretty-date js/Number [t] (pretty-date (->date t)))
(defmethod pretty-date js/Date [d]
  (let [doy ((date-formatters "EEEE") d)
        month ((date-formatters "MMMM") d)
        day ((date-formatters "dd") d)]
    (str doy ", " month " " day)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Sound
