     [:p "Document height " rc-dom-document-h "px"]
 ;    [:p "Document scroll " rc-dom-document-scroll-x " by " rc-dom-document-scroll-y]
 ;    [:p "Mouse position " "(" rc-env-mouse-pos-x ", " rc-env-mouse-pos-y ")"]
-    [:p "Key Press " (rx (str (into (sorted-map) @rc-env-key-press)))]
+    [:p "Keyboard Key " (rx (str (into (sorted-map) @rc-env-keyboard-key)))]
     [:p "Mouse Move " (rx (str (into (sorted-map) @rc-env-mouse-move)))]
     [:p "Mouse Down " (rx (str (into (sorted-map) @rc-env-mouse-down)))]
     [:p "Mouse Up " (rx (str (into (sorted-map) @rc-env-mouse-up)))]

(defn mutate-env-time! []
  (reset! rc-env-time (poly/js-now)))

(defn mutate-env-key-press! [m]
  (reset! rc-env-key-press m))

(defn mutate-env-mouse-down! [m]
  (reset! rc-env-mouse-down m))

(defn on-dom-window-load [e]
  (mutate-dom-viewport-size! (poly/get-viewport-width) (poly/get-viewport-height)))

(defn on-env-keyboard-key [m]
  (mutate-env-keyboard-key! m))

(defn on-env-mouse-down [m]
  (mutate-env-mouse-down! m))
