              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

  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"

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

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