 
 (defonce game-width 900)
 (defonce game-height 600)
+(def fullscreen-keycode 70) ;; F
 (def keyboard-controls
   {37 :left
    39 :right

          control-chan (if (= v :close)
                         (do
                           (utils/stop-events keyboard-event-key)
                           (println "Control closed"))
                         (recur last-state))
          rafchan (do (utils/record-render-time v)
                      (gamepad-move (gamepad/raw-gamepads))
                      (run-systems v)
                      (when (or (not= last-state @game-state)
                                (> v 1000))
                        (render-entities))
                      (recur @game-state)))))))



;; events->chan on keyboard -> println the event (check it's not duplicated)

(defn fullscreen-handler
  [canvas e]
  (when (= (.-keyCode e)
           fullscreen-keycode)
    (when (fullscreen/isSupported)
      (println "fullscreen is supported")
      (if (fullscreen/isFullScreen)
        (fullscreen/exitFullScreen)
        (fullscreen/requestFullScreen canvas)))))

(defn boot-game
  []
  (let [canvas (game-surface)
