Clojure - 自定义实现的混合协议默认实现

Question

在Clojure中，我想要一个协议，其中一些方法具有默认实现，并且一些具有自定义实现。前者是指后者的配置。这里是一个例子：

(defprotocol Saving 
    (save [this] "saves to mongodb") 
    (collection-name [this] "must return a string representing the associated MongoDB collection")) 

;Default implementation 

(extend-type Object 
    Saving 
    ; the `save` method is common for all, so it is actually implemened here 
    (save [this] (mc/insert (collection-name [this]) this)) 
    ; this method is custom to every other type 
    (collection-name [this] "no_collection")) 

;Particular implementations 

(defrecord User 
    [login password] 
    Saving 
    (collection-name [this] "users")) 

(defrecord NewsItem 
    [text date] 
    Saving 
    (collection-name [this] "news_items")) 

但是，它不会这样工作。即使在User或NewsItem或NewsItem上调用collection-name或NewsItem实例返回正确的收集字符串，但在其上调用save会导致AbstractMethodError。我如何用Clojure实现这个微不足道的OO形目标？

Answer 1

请保存功能的普通函数：

(defn save [obj] (mc/insert (collection-name obj) obj)) 

协议应该只有collection-name

(defprotocol Saving 
    (collection-name [this] "must return a string representing the associated MongoDB collection")) 

然后想要被“拯救”每个对象都可以实现此协议。

记住：OO风格常常掩盖了明显简单的事情:)