     (swap-event-channel!
      :dom-viewport-resize (poly/channel-for-viewport-resize!))
     (swap-event-channel!
-;     :env-key-press (poly/listen-put! (poly/get-body) :key-press (poly/keyboard-e-chan)))
-     :env-key-press (poly/listen-put! js/window :key-press (poly/keyboard-e-chan)))
+     :env-keyboard-key (poly/listen-put! js/window :key (poly/keyboard-e-chan)))
     (swap-event-channel!
      :env-mouse-down (poly/listen-put! js/window :mouse-down (poly/mouse-e-chan)))
     (swap-event-channel!

(defonce rc-dom-viewport-w
  (cc-dom [:viewport :width]))

(defonce rc-env-key-press
  (cc-env [:key-press]))

(defonce rc-env-mouse-down
  (cc-env [:mouse-down]))

(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))
