Add print-all-midi-device-names

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.