Update to newest SCI with print-fn

This commit is contained in:
Michiel Borkent 2021-09-22 23:22:21 +02:00
parent 2f323eb267
commit b5789ed71d
3 changed files with 6 additions and 47 deletions

View file

@ -1,35 +0,0 @@
(ns scittle.impl.io
(:refer-clojure :exclude [prn print println with-out-str])
(:require
[cljs.core :as c]
[goog.string]
[sci.core :as sci]
[scittle.impl.common :refer [cljns]]))
(def print-fn (sci/copy-var *print-fn* cljns))
(def print-newline (sci/copy-var *print-newline* cljns))
(defn println [& objs]
(binding [*print-fn* @print-fn
*print-newline* @print-newline]
(apply c/println objs)))
(defn prn [& objs]
(binding [*print-fn* @print-fn
*print-newline* @print-newline]
(apply c/prn objs)))
(defn print [& objs]
(binding [*print-fn* @print-fn]
(apply c/print objs)))
(defn ^:macro with-out-str
"Evaluates exprs in a context in which *print-fn* is bound to .append
on a fresh StringBuffer. Returns the string created by any nested
printing calls."
[_ _ & body]
`(let [sb# (goog.string/StringBuffer.)]
(binding [cljs.core/*print-newline* true
cljs.core/*print-fn* (fn [x#] (.append sb# x#))]
~@body)
(cljs.core/str sb#)))