add Character/isISOControl

Author: bobbicodes

shadow-cljs.edn

@@ -6,4 +6,5 @@
   {:target :esm
    :output-dir "public/js"
    :modules {:sci {:exports {evalString lang-clojure-eval.main/eval-string
-                             context lang-clojure-eval.main/context}}}}}}
+                             context lang-clojure-eval.main/context
+                             isISOControl lang-clojure-eval.character/isISOControl}}}}}}

src/lang_clojure_eval/character.cljs

@@ -0,0 +1,4 @@
+(ns lang-clojure-eval.character)
+
+(defn isISOControl [char]
+  (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/main.cljs

@@ -1,6 +1,7 @@
 (ns lang-clojure-eval.main
   (:require [sci.core :as sci]
             [lang-clojure-eval.error :refer [error-handler]]
+            [lang-clojure-eval.character :refer [isISOControl]]
             [goog.string]
             [goog.string.format]
             [clojure.pprint :as pprint]
@@ -9,10 +10,12 @@
 (defonce context
   (sci/init {:classes {'js goog/global
                        :allow :all}
-             :namespaces {'clojure.core {'format goog.string/format}}}))
+             :namespaces {'clojure.core {'format goog.string/format}
+                          'lang-clojure-eval.character {'isISOControl isISOControl}}}))
 
 (defn eval-string [source]
-  (try (binding [*print-length* 100]
-         (with-out-str (pprint/pprint (sci/eval-string* context source))))
-       (catch :default e
-         (with-out-str (error-handler source e)))))
+  (let [reqs "(require '[lang-clojure-eval.character :as Character])"]
+    (try (binding [*print-length* 100]
+           (with-out-str (pprint/pprint (sci/eval-string* context (str reqs source)))))
+         (catch :default e
+           (with-out-str (error-handler source e))))))