add isLetter

Author: bobbicodes

shadow-cljs.edn

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

src/lang_clojure_eval/character.cljs

@@ -1,4 +1,9 @@
-(ns lang-clojure-eval.character)
+(ns lang-clojure-eval.character
+  (:require [clojure.string :as str]))
+
+(defn isLetter [char]
+  (and (= 1 (count (str char)))
+       (not= (str/upper-case char) (str/lower-case char))))
 
 (defn isISOControl [char]
   (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/main.cljs

@@ -1,7 +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]]
+            [lang-clojure-eval.character :as char]
             [goog.string]
             [goog.string.format]
             [clojure.pprint :as pprint]
@@ -11,7 +11,9 @@
   (sci/init {:classes {'js goog/global
                        :allow :all}
              :namespaces {'clojure.core {'format goog.string/format}
-                          'lang-clojure-eval.character {'isISOControl isISOControl}}}))
+                          'lang-clojure-eval.character 
+                          {'isISOControl char/isISOControl
+                           'isLetter char/isLetter}}}))
 
 (defn eval-string [source]
   (let [reqs "(require '[lang-clojure-eval.character :as Character])"]