From 21ca56afe14c33a5abee03e27f126afba98bc43f Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Sat, 1 Nov 2025 17:19:05 -0400
Subject: Add print-all-midi-device-names

---
 src/midi.clj | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

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.
-- 
cgit v1.2.3