add isUpperCase, isLowerCase

Author: bobbicodes

demo/style.css

@@ -2,7 +2,7 @@
   font-family: Inter, system-ui, Avenir, Helvetica, Arial, sans-serif;
   color-scheme: light dark;
   color: rgba(255, 230, 0, 0.87);
-  background-color: #2c0236;
+  background-color: #605961;
 
   font-synthesis: none;
   text-rendering: optimizeLegibility;

shadow-cljs.edn

@@ -4,11 +4,13 @@
  :builds
  {:sci
   {:target :esm
-   :output-dir "public/js"
+   :output-dir "src"
    :modules {:sci {:exports {evalString lang-clojure-eval.main/eval-string
                              context lang-clojure-eval.main/context
                              isISOControl lang-clojure-eval.character/isISOControl
                              isLetter lang-clojure-eval.character/isLetter
+                             isUpperCase lang-clojure-eval.character/isUpperCase
+                             isLowerCase lang-clojure-eval.character/isLowerCase
                              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

@@ -10,5 +10,11 @@
        (not= (str/upper-case char) 
              (str/lower-case char))))
 
+(defn isUpperCase [s]
+  (= s (str/upper-case s)))
+
+(defn isLowerCase [s]
+  (= s (str/lower-case s)))
+
 (defn isISOControl [char]
   (boolean (re-seq #"[\u0000-\u001F\u007F-\u009F]" char)))

src/lang_clojure_eval/main.cljs

@@ -15,7 +15,9 @@
                           'lang-clojure-eval.character
                           {'digit char/digit
                            'isISOControl char/isISOControl
-                           'isLetter char/isLetter}
+                           'isLetter char/isLetter
+                           'isLowerCase char/isLowerCase
+                           'isUpperCase char/isUpperCase}
                           'lang-clojure-eval.integer
                           {'parseInt int/parse-int}}}))