Wydruk całkiem niezły przy użyciu niestandardowej metody w Clojure

Question

W Clojure 1.5.0, w jaki sposób mogę zapewnić niestandardową ładną drukarkę dla mojego własnego typu rekordu, zdefiniowanego za pomocą 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 

Chciałbym clojure.pprint/pprint również używać drukarki cutsom (która teraz należy po prostu ładne drukuje co jest w polu a rekordu dla celów ilustracji).

Answer 1

clojure.pprint Obszar nazw używa innego mechanizmu wysyłki niż funkcje drukowania clojure.core. Aby dostosować pprint, musisz użyć with-pprint-dispatch.

(clojure.pprint/with-pprint-dispatch print ;;Make the dispatch to your print function 
    (clojure.pprint/pprint (MyRecord. 'a 'b))) 

Aby dostosować prosty dyspozytora, dodać coś takiego:

(. clojure.pprint/simple-dispatch addMethod MyRecord pprint-myrecord) 

Answer 2

Może nie idealne, ale nie znalazłem lepszego niż pr i pr-str.

Przykład REPL sesja:

(ns my-ns) 

    (defprotocol Foo 
    (bazfn [this])) 

    (defrecord Bar [a] 
    Foo 
    (bazfn [this] 123)) 


    (pr-str (Bar. "ok")) ;;=> "#my_ns.Bar{:a \"ok\"}" 
    (pr (Bar. "ok"))  ;; prints the same as above