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

(ns main.pomodoro
  (: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]
            [cljs-time.format :refer [date-formatters]]))


  (if (= (:twenty-five presets) time)
    (:five presets)
    (:twenty-five presets)))

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

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

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