Question

(defn editing-mode? []
  "a hardcoded (for the moment) value, will look up in db later"
  false)

(def UP 38) ;; goog.events.KeyCodes.UP
(def DOWN 40) ;; goog.events.KeyCodes.DOWN
(def LEFT 37) ;; goog.events.KeyCodes.LEFT
(def RIGHT 39) ;; goog.events.KeyCodes.RIGHT
(def W 87) ;; goog.events.KeyCodes.W
(def S 83) ;; goog.events.KeyCodes.S
(def A 65) ;; goog.events.KeyCodes.A
(def D 68) ;; goog.events.KeyCodes.D
(def E 69) ;; goog.events.KeyCodes.E
(def ESC 27) ;; goog.events.KeyCodes.ESC

(defn delta [e]
  ;; e is a google closure Event
  (js/console.log (.-keyCode e))
  (js/console.log (editing-mode?))
  (match [(editing-mode?) (.-keyCode e)]
   [false 38] [:slide :up]
   [false 40] [:slide :down]
   [false 37] [:slide :left]
   [false 39] [:slide :right]
   [false 87] [:slide :up]
   [false 83] [:slide :down]
   [false 65] [:slide :left]
   [false 68] [:slide :right]
   [false 69] [:start-editing]
   [true 27]  [:done-editing]
   :else nil))

以上代码有效。但是，如果我试着不那么罗嗦并直接使用goog键码，就像这样

(match [(editing-mode?) (.-keyCode e)]
  [false goog.events.KeyCodes.UP] [:slide :up]
  [false goog.events.keyCodes.DOWN] [:slide :down]
  ...

我收到以下cljsbuild错误：

...
Caused by: clojure.lang.ExceptionInfo: Invalid local name: goog.events.KeyCodes.UP ...
...

好的，所以我不能自己使用goog.events.KeyCodes.*，但也许我可以使用引用它们的def？所以我试试

(match [(editing-mode?) (.-keyCode e)]
   [false UP] [:slide :up]
   [false DOWN] [:slide :down]
   ...

这会编译，但现在匹配只是不起作用。每个关键事件都与[false UP]匹配子句匹配（core.match始终发出[:slide :up]）。

无论如何，第一个代码示例确实有效。但为什么我不能在我的core.match匹配器中使用goog.events.KeyCodes.*或goog.events.KeyCodes.*的引用？有什么我想念的吗？

Answer 1

core.match的关键部分是符号将绑定到值而不是匹配。也就是说，UP 的当前值不是在匹配中查找并使用;相反，当UP匹配时，符号(.-keyCode e)会绑定到值false。

不幸的是，据我所知，core.match你无能为力。它非常依赖于字面值。但是，由于您的模式非常简单，您可以使用(conp = ...)。

Answer 2

您只能匹配against local bindings：

      (= (let [x 2
               y 2]
           (match [x]
             [0] :a0
             [1] :a1
             [y] :a2
             :else :a3))
        :a2))

因此，您可以通过(let [...])首先将密钥代码绑定到本地变量来实现您的结果。

Answer 3

我想通过简单地反转KeyCodes对象来构造“keyname”到“keycode”的映射：

(ns awesome.sauce
  (:require [clojure.set :as set])
  (:import [goog.events KeyCodes]))

(def codename
  (set/map-invert (js->clj KeyCodes)))

然后我可以用字符串识别键而不是笨重的互操作（并且字符串是值，因此匹配时可以很好地使用）：

(match [(editing-mode?) (codename (.-keyCode e))]
   [false "UP"] [:slide :up]
   [false "DOWN"] [:slide :down])

如何在Clojurescript中使用core.match和goog.events.KeyCodes？

3 个答案: