           ;;; Set fx uniforms
           ;(log/info "fx-uniforms" (vec fx-uniforms))
           (doseq [[uniform-name [value-atom location]] fx-uniforms]
-            (when (not (neg? location))
+            (when-not (neg? location)
               (GL20/glUniform1f location (-> value-atom deref float))))
           ;; Draw fx shaded terminal
           (GL11/glDrawArrays GL11/GL_TRIANGLE_STRIP 0 vertices-count)

    texture-buffer))

(defn- get-fields [#^Class static-class]
  (. static-class getFields))

(defn- gl-enum-name
  "Takes the numeric value of a gl constant (i.e. GL_LINEAR), and gives the name"
  [enum-value]
  (if (= 0 enum-value)
    "NONE"
    (.getName #^Field (some
                       #(if (= enum-value (.get #^Field % nil)) % nil)
                       (mapcat get-fields [GL11 GL12 GL13 GL15 GL20 GL30])))))

(defn- except-gl-errors

                   Keyboard/KEY_NUMPAD8 :numpad8
                   Keyboard/KEY_NUMPAD9 :numpad9
                   ;; event-key didn't match, default to event-char if it is printable, else nil
                   (when (<= (int (first " ")) (int event-char) (int \~))
                     event-char))]
    (log/info "key" key)
    (on-key-fn key)))

