 (secretary/defroute "/" []
   (swap! app-state assoc
          :current-page :home
-         :game {}))
+         :game {:uis [{:kind :start}]}))
 
 (secretary/defroute "/about" []
   (swap! app-state assoc :current-page :about))

      (swap! app-state dissoc :game)
      (recur))))

(defn draw-ui [display]
  (.drawText display 0 0 "Welcome to the Caves of Clojure!")
  (.drawText display 0 1 "Press any key to exit..."))

(defn game-loop []
  (when-let [display (:screen @app-state)]
    (let [game (:game @app-state)]
      (.clear display)
      (draw-ui display)))
  (.requestAnimationFrame js/window #(game-loop)))

(defn init-game! []

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