名称空间映射命名空间上的多方法调度

Question

是否可以基于名称空间映射命名空间(即#:<this-thing>{} )进行调度？没有像打印或检查钥匙前缀之类的黑客？

我认为最后一个是恶意的，因为键前缀可以被覆盖：

(:qux/bar #:qux{:bar :baz}); => :baz
(:foo/bar #:qux{:foo/bar :baz}); => :baz
(:qux/bar #:qux{:foo/bar :baz}); => nil

Answer 1

这是不可能的，因为这只是writer生成的映射的可视化表示。如果映射中的所有键共享相同的命名空间，则必须自己进行检查。另外，最后一个示例不会由作者产生--只有在所有键共享相同的命名空间。时，它才会发出名称空间的地图文字。

Answer 2

映射可能包含来自某个命名空间的所有限定关键字键，也可能包含来自多个命名空间的非限定键或限定键的混合。下面是一个函数，用于从映射中的限定关键字键获取所有名称空间(作为关键字)的集合：

(defn key-namespaces
  "Returns set of all namespaces of keys in m."
  [m]
  (->> (keys m)
       (keep (comp keyword namespace))
       (set)))

现在，您可以将其用作multimethod上的dispatch-fn：

(defmulti do-thing key-namespaces)
(defmethod do-thing #{:foo} [m] (prn m))
(do-thing #:foo{:bar 1})
;; #:foo{:bar 1}
(foo {:bar/bar 1})
;; no multimethod found exception

可以在该集合中指定多个名称空间前缀，也可以根据用例使用不同的dispatch-fn。