isUpperCase/isLowerCase may take Unicode points

Author: bobbicodes

shadow-cljs.edn

@@ -9,6 +9,7 @@
                              context lang-clojure-eval.main/context
                              isISOControl lang-clojure-eval.character/isISOControl
                              isLetter lang-clojure-eval.character/isLetter
+                             isAlphabetic lang-clojure-eval.character/isAlphabetic
                              isUpperCase lang-clojure-eval.character/isUpperCase
                              isLowerCase lang-clojure-eval.character/isLowerCase
                              digit lang-clojure-eval.character/digit

src/lang_clojure_eval/character.cljs

@@ -5,16 +5,40 @@
 (defn digit [c r]
   (edn/read-string (str r "r" c)))
 
-(defn isLetter [char]
-  (and (= 1 (count (str char)))
-       (not= (str/upper-case char) 
-             (str/lower-case char))))
+(defn isLetter 
+  "Takes either a char or a Unicode code point."
+  [x]
+  (if (int? x)
+    (not= (str/upper-case (char x))
+          (str/lower-case (char x)))
+    (not= (str/upper-case x) 
+          (str/lower-case x))))
 
-(defn isUpperCase [s]
-  (= s (str/upper-case s)))
+(defn isAlphabetic 
+  "Takes a Unicode code point."
+  [int]
+  (not= (str/upper-case (.fromCharCode js/String int))
+        (str/lower-case (.fromCharCode js/String int))))
 
-(defn isLowerCase [s]
-  (= s (str/lower-case s)))
+(defn isUpperCase 
+  "Takes either a char or a Unicode code point."
+  [x]
+  (if (int? x)
+    (and (isLetter (.fromCharCode js/String x))
+         (= (.fromCharCode js/String x) 
+            (str/upper-case (.fromCharCode js/String x))))
+    (and (isLetter (.fromCharCode js/String x))
+         (= x (str/upper-case x)))))
+
+(defn isLowerCase 
+  "Takes either a char or a Unicode code point."
+  [x]
+    (if (int? x)
+      (and (isLetter (.fromCharCode js/String x))
+           (= (.fromCharCode js/String x)
+              (str/lower-case (.fromCharCode js/String x))))
+      (and (isLetter x)
+          (= x (str/lower-case x)))))
 
 (defn isISOControl [char]
   (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/main.cljs

@@ -16,14 +16,19 @@
                           {'digit char/digit
                            'isISOControl char/isISOControl
                            'isLetter char/isLetter
+                           'isAlphabetic char/isAlphabetic
                            'isLowerCase char/isLowerCase
                            'isUpperCase char/isUpperCase}
                           'lang-clojure-eval.integer
                           {'parseInt int/parse-int}}}))
 
 (defn eval-string [source]
   (let [reqs "(require '[lang-clojure-eval.character :as Character]
-                       '[lang-clojure-eval.integer :as Integer])"]
+                       '[lang-clojure-eval.integer :as Integer])
+              (defn int [x]
+                (if (.isInteger js/Number (js/parseInt x))
+                    (js/parseInt x)
+                    (.charCodeAt x 0)))"]
     (try (binding [*print-length* 100]
            (with-out-str (pprint/pprint (sci/eval-string* context (str reqs source)))))
          (catch :default e