    [:h2 (pretty-date (get-state :today))]])
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Style View
+(defn bg->style [val] (str "background: url(/images/" val ") center center no-repeat; background-size: cover;"))
+
+(defn bg-view []
+  [:style (str "body {" (bg->style (get-state :bg)) "}")])
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Rendering
 (reagent/render-component [timer-view] (. js/document (getElementById "timer")))
 (reagent/render-component [today-view] (. js/document (getElementById "today")))
+(reagent/render-component [bg-view] (. js/document (getElementById "style")))

      (when-not (apply expired? (get-state :stime :etime))
        (set-state! :etime (dec-time (get-state :etime))))))

(add-watch state :end
           (fn [k r os ns]
             (when (and (get-state :on?) (apply expired? (get-state :stime :etime)))
               (play-sound)
               (set-state! (default-state (next-time (get-state :time)))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Generic Views

        on5 #(when-not (get-state :on?) (set-time! (presets :five)))
        on-toggle #(set-state! :on? (not (get-state :on?)))
        on-reset #(when-not (get-state :on?)
                    (set-state! (default-state (get-state :time))))]

   [:div {:class "col-md-2 buttons"}
    [btn-lg {:on-click on25} 25]
