 
 ;; }}}
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; =============================================================================
+;; HTML Keyboard handling {{{
 (defn handle-key-event! [kb-handler event new-state]
   (do
     (kb/update-key! kb-handler (.-keyCode event) new-state)


;; }}}


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;ends


;; }}}

;; =============================================================================
;; {{{ FPS Component

(defn fps-calc-chan
