pprint docs - вид кирпичной стены. Если вы отпечатаете карту, она выводится на одну строку следующим образом: {:a "b", :b "c", :d "e"}. Вместо этого я хотел бы быть напечатан таким образом, необязательно с запятыми:
{:a "b"
:b "c"
:d "e"}
Как это сделать с помощью pprint?
Вы можете установить привязку *print-right-margin*:
Clojure=> (binding [*print-right-margin* 7] (pprint {:a 1 :b 2 :c 3}))
{:a 1,
:b 2,
:c 3}
Не совсем то, что вы ищете, но этого может быть достаточно?
Кстати, лучший способ понять это - или, по крайней мере, тот подход, который я принял, - использовать
Clojure=> (use 'clojure.contrib.repl-utils)
Clojure=> (source pprint)
(defn pprint
"Pretty print object to the optional output writer. If the writer is not provided,
print the object to the currently bound value of *out*."
([object] (pprint object *out*))
([object writer]
(with-pretty-writer writer
(binding [*print-pretty* true]
(write-out object))
(if (not (= 0 (.getColumn #^PrettyWriter *out*)))
(.write *out* (int \newline))))))
nil
Хмммммм.. что делает with-pretty-writer до *out*?
Clojure=> (source clojure.contrib.pprint/with-pretty-writer)
(defmacro #^{:private true} with-pretty-writer [base-writer & body]
`(let [new-writer# (not (pretty-writer? ~base-writer))]
(binding [*out* (if new-writer#
(make-pretty-writer ~base-writer *print-right-margin* *print-miser-width*)
~base-writer)]
[email protected]
(if new-writer# (.flush *out*)))))
nil
Хорошо, поэтому *print-right-margin* звучит многообещающе...
Clojure=> (source clojure.contrib.pprint/make-pretty-writer)
(defn- make-pretty-writer
"Wrap base-writer in a PrettyWriter with the specified right-margin and miser-width"
[base-writer right-margin miser-width]
(PrettyWriter. base-writer right-margin miser-width))
nil
Кроме того, это довольно информативно:
Clojure=> (doc *print-right-margin*)
-------------------------
clojure.contrib.pprint/*print-right-margin*
nil
Pretty printing will try to avoid anything going beyond this column.
Set it to nil to have pprint let the line be arbitrarily long. This will ignore all
non-mandatory newlines.
nil
В любом случае, и, возможно, вы уже это знали - если вы действительно хотите настроить способ работы pprint, вы можете proxy clojure.contrib.pprint.PrettyWriter и передать это, привязывая его к *out*. Класс PrettyWriter довольно большой и запугивающий, поэтому я не уверен, что это было то, что вы изначально имели в виду в комментарии к "кирпичной стене".
Я не думаю, что вы можете это сделать, вам, вероятно, придется написать свое собственное, что-то вроде:
(defn pprint-map [m]
(print "{")
(doall (for [[k v] m] (println k v)))
(print "}"))