               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

(defn home-page [state]
  [:div [:h2 "Caves of Clojurescript"]
   [:div [:a {:href "#/about"} "go to the about page"]]
   (when-not (empty? (:uis (:game @state)))
     [canvas state])])

(defn about-page []
  [:div [:h2 "About caves-of-cljs"]


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

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