bug fix: isUpperCase

Author: bobbicodes

demo/style.css

@@ -1,8 +1,8 @@
 :root {
   font-family: Inter, system-ui, Avenir, Helvetica, Arial, sans-serif;
   color-scheme: light dark;
-  color: rgba(255, 230, 0, 0.87);
-  background-color: #605961;
+  color: rgba(0, 0, 0, 0.87);
+  background-color: #848285;
 
   font-synthesis: none;
   text-rendering: optimizeLegibility;
@@ -13,5 +13,5 @@
 
 #app {
   margin: 0 auto;
-  font-size: x-large;
+  font-size: large;
 }

shadow-cljs.edn

@@ -10,8 +10,11 @@
                              isISOControl lang-clojure-eval.character/isISOControl
                              isLetter lang-clojure-eval.character/isLetter
                              isAlphabetic lang-clojure-eval.character/isAlphabetic
+                              isSpace lang-clojure-eval.character/isSpace
                              isUpperCase lang-clojure-eval.character/isUpperCase
                              isLowerCase lang-clojure-eval.character/isLowerCase
+                             toUpperCase lang-clojure-eval.character/toUpperCase
+                             toLowerCase lang-clojure-eval.character/toLowerCase
                              digit lang-clojure-eval.character/digit
                              ;; parseInt causes ReferenceError if exported,
                              ;; but somehow works if it's not... why?

src/lang_clojure_eval/character.cljs

@@ -27,7 +27,7 @@
     (and (isLetter (.fromCharCode js/String x))
          (= (.fromCharCode js/String x) 
             (str/upper-case (.fromCharCode js/String x))))
-    (and (isLetter (.fromCharCode js/String x))
+    (and (isLetter x)
          (= x (str/upper-case x)))))
 
 (defn isLowerCase 
@@ -40,5 +40,14 @@
       (and (isLetter x)
           (= x (str/lower-case x)))))
 
+(defn toUpperCase [s]
+  (str/upper-case s))
+
+(defn toLowerCase [s]
+  (str/lower-case s))
+
+(defn isSpace [c]
+  (boolean (re-find #"\s" (str c))))
+
 (defn isISOControl [char]
   (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/main.cljs

@@ -18,6 +18,9 @@
                            'isLetter char/isLetter
                            'isAlphabetic char/isAlphabetic
                            'isLowerCase char/isLowerCase
+                           'toUpperCase char/toUpperCase
+                           'toLowerCase char/toLowerCase
+                           'isSpace char/isSpace
                            'isUpperCase char/isUpperCase}
                           'lang-clojure-eval.integer
                           {'parseInt int/parse-int}}}))