clojure - 時計のすべてのキーをclojureで取得する方法はありますか

Question

原子があった場合：

(def a (atom {}))

以下の時計セットで

(add-watch a :watcher println)
(add-watch a :watcher2 println)

このような機能はありますか？

(get-watches a)
;; => [:watcher :watcher2]

Answer 1

(atom {})clojure.lang.IRefインターフェースを実装するclojure.lang.Atom抽象クラスclojure.lang.ARefを拡張するタイプのオブジェクトを作成します。IRefは、 ARefに実装されているメソッドgetWatchesを宣言します。

解決策は次のとおりです。

(def a (atom {}))
(add-watch a :watcher println)
(println (-> a .getWatches keys))

clojure.coreがないのは不思議ですget-watches。ミラーリングのadd-watch実装は次のとおりです。

(defn get-watches 
  "Returns list of keys corresponding to watchers of the reference."
  [^clojure.lang.IRef reference] 
  (keys (.getWatches reference)))

Answer 2

Ivanの答えは、JVM上のClojureに最適です。ClojureScriptでこれを行う方法は次のとおりです。

(keys (.-watches a))

Answer 3

(:watches (bean a))

また

(keys (:watches (bean a)))