В Clojure 1.5.0, как я могу предоставить собственный симпатичный принтер для своего собственного типа записи, определенного с помощью defrecord.

(defrecord MyRecord [a b])

(defmethod print-method MyRecord [x ^java.io.Writer writer]
  (print-method (:a x) writer))

(defmethod print-dup MyRecord [x ^java.io.Writer writer]
  (print-dup (:a x) writer))

(println (MyRecord. 'a 'b)) ;; a -- OK
(clojure.pprint/pprint (MyRecord. 'a 'b)) ;; {:a a, :b b} -- not OK, I want a

Я хотел быclojure.pprint/pprint также использовать мой принтер cutsom (который теперь должен просто печатать все, что есть в поле)a записи в целях иллюстрации).