你能扩展一个类型/记录来实现 Clojure 中的 str 函数吗？

Question

我有一个Book用 定义的类型defrecord，以及一个将其转换为字符串的函数：

(defrecord Book [title author])
(defn book->string [book] (str (:title book) " by " (:author book))) 

(book->string (->Book "Foo" "Bar"))  ;; "Foo by Bar"

是否可以延长记录以便我可以拨打电话(str (->Book "Foo" "Bar"))？

Answer 1

您不必扩展任何内容，只需覆盖toString方法即可：

(defrecord Book [title author]
  Object
  (toString [_] (str title " by " author)))

测试：

(str (->Book "Foo" "Bar"))
=> "Foo by Bar"