gistfile1.clj

(defn move 
  [[x y] e]
    (case (.-keyCode e)
      KeyCodes.UP [x (inc y)]
      KeyCodes.DOWN ...
      KeyCodes.RIGHT ...
      KeyCodes.LEFT ...)))
                   
(defn handle-player-movement
  [key-handler]
  (let [coords (atom [0 0])]
    (.addEventListener key-handler goog.events.KEY
                       (fn [e] (swap! coords move e)))
    coords))


(defn move 
  [coords e]
    (case (.-keyCode e)
      KeyCodes.UP (move-up coords e)
      KeyCodes.DOWN (move-down coords e)
      KeyCodes.RIGHT (move-right coords e)
      KeyCodes.LEFT (move-left coords e)))
                   
(defn handle-player-movement
  [key-handler]
  (let [coords (atom [0 0])]
    (.addEventListener key-handler goog.events.KEY
                       (fn [e] (swap! coords move e)))
    coords))