pretty-printing un record utilizzando un metodo personalizzato in Clojure

Question

In Clojure 1.5.0, come posso fornire una stampante carina personalizzata per il mio tipo di record, definito con 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 

Vorrei clojure.pprint/pprint usare anche la mia stampante cutsom (che ora, deve solo pretty-stampa tutto ciò che è nel campo a del record a scopo illustrativo).

Answer 1

clojure.pprint namespace utilizza un meccanismo di invio diverso dalle funzioni di stampa clojure.core. È necessario utilizzare with-pprint-dispatch per personalizzare il pprint.

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

Per personalizzare il semplice dispatcher, aggiungere qualcosa di simile:

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

Answer 2

Forse non è l'ideale, ma non ho trovato di meglio che pr e pr-str.

Esempio REPL sessione:

(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