在 ClojureScript 中右键单击？答案

【问题标题】：Right Click in ClojureScript?在 ClojureScript 中右键单击？
【发布时间】：2016-08-01 20:00:02
【问题描述】：

谁能告诉我如何在 Clojure 中生成右键单击事件处理程序？我熟悉 ":on-click" 的简单点击，但不熟悉右键或双击。似乎无法在网上找到任何有用的资源。谢谢！

【问题讨论】：

见stackoverflow.com/questions/2405771/…
谢谢，但那是针对 Javascript 而不是 Clojure。我知道 JS 在 Clojure 的引擎盖下运行，但在 Clojure 中寻找代码 sn-p。

【解决方案1】：

在 ClojureScript 中，经常使用 Google Closure 库 (Event Handling | Closure Library | Google Developers) 代替原始 JS。 events (Closure Library API Documentation - JavaScript) 命名空间包含 goog.events.EventType 枚举，它指定了每个单独的事件类型：

(ns test.core
  (:require [goog.dom :as dom]
            [goog.events :as events]))

(letfn [(menu-listener [event] 
          (.log js/console (str "contextmenu " (.-button event))))
        (click-listener [event]
          (let [btn (.-button event)
                msg (if (= btn 2) "Right-click" (str "Button " btn))] 
            (.log js/console msg)))]

  (events/listen (dom/getElement "click-target") "contextmenu" menu-listener)
  (events/listen (dom/getElement "click-target") "click" click-listener))   

;; src/test/core.cljs

<!DOCTYPE html>
<html>
  <head>
    <title>contextmenu</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  </head>
  <body>
    <p id="click-target">Right click on me</p> 
    <script src="out/test.js" type="text/javascript"></script>
  </body>
</html>

<!-- index.html -->

观察：

右键单击（按钮 2）触发contextmenu 侦听器。 click 监听器看不到它（即使没有 contextmenu 监听器）。
再次右键单击将关闭上下文菜单，但不会触发任何侦听器。

【讨论】：

事件库的链接坏了，这里是事件类型源的链接：github.com/google/closure-library/blob/master/closure/goog/…

【解决方案2】：

使用om 我得到了右键单击作为上下文菜单事件。右侧按钮的按钮编号为 2：

{:onContextMenu (fn [e]
                   (prn e (.-button e)))}

或者纯html+cljs：

  <div id="btn">Click me</div>

  (.addEventListener (.getElementById js/document "btn")
    "contextmenu" (fn [e] (prn e (.-button e))))

https://developer.mozilla.org/en/docs/Web/API/MouseEvent

【讨论】：