[#15] Add println

src/scittle/impl/common.cljs

@@ -0,0 +1,4 @@
+(ns scittle.impl.common
+  (:require [sci.core :as sci]))
+
+(def cljns (sci/create-ns 'clojure.core nil))

src/scittle/impl/io.cljs

@@ -0,0 +1,35 @@
+(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#)))