   "The state of the game."
   (atom nil))
 
+(def paused?
+  "Boolean flag signaling if game is paused or not"
+  (atom false))
+
+(def paused-board
+  "Temp state of the board when paused"
+  (atom nil))
+
 (defn- update-theme [_ _ _ new-state]
   (let [theme-num (:theme new-state)
         theme (get themes theme-num)]

                     :eight (change-theme! 7 "2000" "TI-83" e)
                     :nine  (change-theme! 8 "2002" "Flash" e)
                     :zero  (change-theme! 9 "2012" "Facebook" e)
                     nil)
                   (if (:piece @state)
                     (case (key-name e)
                       :down  (do (put! down-chan true) (.preventDefault e))
                       :left  (do (try-move! -1  0)     (.preventDefault e))

  40 :down
  32 :space
  16 :shift
  80 :p

  49 :one
  50 :two
