           nil)))))
 
 
+
+;;;;; INPUT COMPONENT ;;;;;
+
 (defrecord HIDInput
   [channel
    ^HIDDevice device

    (when process
      (.interrupt process)
      (.join process 1000))
    (assoc this :process nil))


  Object

  (toString
    [this]
    (str
      "HID "
      (if device
        (str
          (.getManufacturerString device) " / "
          (.getProductString device) " / "
          (.getSerialNumberString device))
        "(no device)")
      (if process
        " [running]"
        ""))))


(defn hid-input

      HIDManager)))



;;;;; CONFIGURATION ;;;;;

(def ^:private library-name
  "JNI library to load when finding devices."
  "hidapi-jni-64")
