pong.cljs

; Uncaught Error: Assert failed: No more than 1024 pending takes are allowed on a single channel.
; (< (.-length takes) impl/MAX-QUEUE-SIZE)

(def keys-pressed (chan))

(defn update-player [player]
  (go (while true
        (let [key-pressed (<! keys-pressed)]
          (case key-pressed
            37 (update-in player [:paddle] move-paddle -4 0)
            39 (update-in player [:paddle] move-paddle 4 0)
            player)))))

(defn init []
  (events/listen js/window "keydown" (fn [e] put! keys-pressed (read-string (.-keyCode e)))))