luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[#959] Add *print-readably* and *flush-on-newline*

Browse source
This commit is contained in:
Michiel Borkent 2021-08-16 22:57:59 +02:00
parent 6c1c33e9ac
commit d4f5e57866
3 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit a83009b81b68d60e0c1dd91f3a730e117599a122 Subproject commit 1bacd92dd03d753c84b01a70f9fceb61fc96b667

4
src/babashka/impl/pprint.clj
View file

@ -89,7 +89,9 @@
(pprint s @sci/out)) (pprint s @sci/out))
([s writer] ([s writer]
(binding [pprint/*print-right-margin* @print-right-margin (binding [pprint/*print-right-margin* @print-right-margin
pprint/*print-pprint-dispatch* @print-pprint-dispatch] pprint/*print-pprint-dispatch* @print-pprint-dispatch
*print-meta* @sci/print-meta
*print-readably* @sci/print-readably]
(pprint/pprint s writer)))) (pprint/pprint s writer))))
(defn cl-format (defn cl-format

5
test/babashka/main_test.clj
View file

@ -700,6 +700,11 @@ true")))
(vec (pmap f (map str (range 10000))))"))))) (vec (pmap f (map str (range 10000))))")))))
(deftest print-readably-test
(is (= "\"foo\"" (bb nil "-e" "(binding [*print-readably* true] (pr-str \"foo\"))")))
(is (= "foo" (bb nil "-e" "(binding [*print-readably* false] (pr-str \"foo\"))")))
(is (= "foo\n" (bb nil "-e" "(binding [*print-readably* false] (with-out-str (clojure.pprint/pprint \"foo\")))"))))
;;;; Scratch ;;;; Scratch
(comment (comment