   40 :down
   32 :space
   16 :shift
+  80 :p
 
   49 :one
   50 :two

  56 :eight
  57 :nine
  48 :zero})

(defn add-key-events
  "Add all the key inputs."

  "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)]
