               input (get *keys* (if (<= 96 key-code 105)
                                   (- key-code 48)
                                   key-code))]
-          (when (:game @app-state)
-            (swap! state assoc-in [:game :input] input)))
+          (swap! state assoc :input input))
         (recur)))))
 
 (defmulti draw-ui

    game))

(defn tick-game [state screen]
  (let [game (:game @state)]
    (swap! state assoc :game
           (-> game
               handle-input
               (draw-game screen)))))

(defn game-loop! [state screen]
  (tick-game state screen)


(defn init-game! [state screen]
  (init-key-handler! state (.getContainer screen))
  (game-loop! state screen))

;; -------------------------
;; Views
