   fetch the key-code as an integer and use that to determine the
   specific key pressed. See key-keyword."
   [c]
-  (= PConstants/CODED (int c)))
-
-#+clj
+  #+clj (= PConstants/CODED (int c))
+  #+cljs (= 65535 (.charCodeAt (str c))))
+
 (defn ^{:requires-bindings true
         :processing-name nil
         :category "Input"

             KeyEvent/VK_F23     :f23
             KeyEvent/VK_F24     :f24})

;; ------------------ end PConstants section ---------------------

#+cljs

    `(defapplet ~app-name ~@options)
    `(quil.sketch/defsketch ~app-name ~@options)))

(defn ^{:requires-bindings false
        :processing-name nil
        :category "Input"
