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

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

              input (get *keys* (if (<= 96 key-code 105)
                                  (- key-code 48)
                                  key-code))]
          (swap! state assoc :input input))
        (recur)))))

(defmulti draw-ui
