     `(defapplet ~app-name ~@options)
     `(quil.sketch/defsketch ~app-name ~@options)))
 
-#+clj
 (defn ^{:requires-bindings false
         :processing-name nil
         :category "Input"

  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
(defn ^{:requires-bindings true
        :processing-name nil
        :category "Input"

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

#+cljs
(def ^{:private true}
  KEY-CODES {38 :up
             40 :down
             37 :left
             39 :right
             18 :alt
             17 :control
             16 :shift
             157 :windows
             112 :f1
             113 :f2
             114 :f3
             115 :f4
             116 :f5
             117 :f6
             118 :f7
             119 :f8
             120 :f9
             121 :f10
             122 :f11
             123 :f12})

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

#+cljs
