Clojure/ClojureScript：如何插入 EDN 标签文字的自定义打印实现？

Question

我有一条记录，一个实例，并将其打印到 EDN 字符串：

(ns my)
(defrecord Ref [type id])
(def rich (->Ref :Person 42)
(pr-str rich)

我想得到"#my.Ref [:Person 42].

但我明白了"#my.Ref{:type :Person, :id 23}"。

如何插入我的自定义实现来打印 的实例Ref？

Answer 1

在 CLJS 中，这是通过cljs.core/IPrintWithWriter协议完成的。

(extend-type Ref
  IPrintWithWriter
  (-pr-writer [this writer opts]
    (-write writer "#my.Ref ")
    (-pr-writer [(:type this) (:id this)] writer opts)))

在 CLJ 中，它是通过clojure.core/print-method多种方法完成的。

(defmethod print-method Ref [this writer]
  (.write writer "#my.Ref ")
  (print-method [(:type this) (:id this)] writer))