   ([time]
      (let [tmap (time-map time)]
        (merge tmap {:today (get-in tmap [:stime])
-                    :bg (first images)
+                    :bg (first @images)
                     :on? false}))))
 
 (def state (atom (default-state)))

;; Constants

(def ^:constant one-min (* 1e3 60))
(def ^:constant presets {:five (* one-min 5)
                         :twenty-five (* one-min 25)})

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Compatability

    (:five presets)
    (:twenty-five presets)))

(defn pomodoro? [twenty-five five]
  (and (= (:twenty-five presets) twenty-five)
       (= (:five presets) five)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Timer logic
(def ^:constant time-speed 1e3)

(def timer-chan
  (let [c (chan)
