31、Clojure 多方法与项目组织全解析

Clojure 多方法与项目组织全解析

1. Clojure 多方法进阶

1.1 多方法的多重分发

在之前的示例中，我们实现了非基于类型的分发，但尚未涉及多重分发。多重分发中，分发函数通常计算一个值，然后根据适用的层次结构将其与实现进行匹配。在之前的分发函数里，第二个参数（值）被忽略了。不过，当分发值为向量时， isa? 会对其元素逐个进行特殊处理。例如：

(isa? fill-hierarchy [:input.checkbox :text] [::checkable :input]) ;= true

这表明 Java 类层次结构包含在所有层次结构中，我们可以按需引入一些类。为了让 fill 函数更智能，能根据值参数的类型做出响应，我们需要修改 fill-dispatch 函数，使其返回一个包含关键字和类的向量：

(defn- fill-dispatch [node value]
  (if-let [type (and (= :input (:tag node))
                  (-> node :attrs :type))]
    [(keyword (str "input." type)) (class value)]
    [(:tag node) (class value)]))

1.2 多方法的具体实现

<