clojure - 如何在 clojure 中漂亮地打印引用列表？

Question

给定一个列表，如:

(quote (do (println "Hello") (println "Goodbye")))

:我怎样才能把它变成一个格式很好的字符串，它会输出类似的东西:

(do
  (println "Hello") 
  (println "Goodbye")
)

Answer 1

使用 clojure.pprint/write与 clojure.pprint/code-dispatch :

(clojure.pprint/write '(do (println "Hello") (println "Goodbye"))
                      :dispatch clojure.pprint/code-dispatch)

对于那少量代码，您将不会获得换行符。但是这样的电话

(clojure.pprint/write '(do (println "Hello") (println "Goodbye") (println "Hey, you left me out!"))
                      :dispatch clojure.pprint/code-dispatch)

退货

=> (do
     (println "Hello")
     (println "Goodbye")
     (println "Hey, you left me out!"))

要将其作为字符串捕获，请将调用包装在 (with-out-str ...) 中