diff options
| -rw-r--r-- | src/midi.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/midi.clj b/src/midi.clj index dabca7c..dac6df4 100644 --- a/src/midi.clj +++ b/src/midi.clj @@ -7,6 +7,12 @@ (defn get-all-midi-device-info [] (CoreMidiDeviceProvider/getMidiDeviceInfo)) +(defn print-all-midi-devices + "Prints the names of all MIDI devices attached to the computer." + [] + (doseq [^MidiDevice$Info device-info (get-all-midi-device-info)] + (println (.getName device-info)))) +(print-all-midi-devices) (defn select-devices "Given device info list `devices`, return seq where device name is `device-name`. If tx? is true, returned devices will have unlimited transmitters. |