From 9a617419876d2f3a79dbc50071ae0105f731d6ec Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 30 Oct 2022 09:27:50 +0100
Subject: Add find-midi-device

---
 guile/starlet/midi-control/base.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'guile/starlet/midi-control/base.scm')

diff --git a/guile/starlet/midi-control/base.scm b/guile/starlet/midi-control/base.scm
index bed1a1f..7b28ea7 100644
--- a/guile/starlet/midi-control/base.scm
+++ b/guile/starlet/midi-control/base.scm
@@ -26,6 +26,7 @@
   #:use-module (ice-9 binary-ports)
   #:use-module (srfi srfi-1)
   #:export (make-midi-controller
+            find-midi-device
             get-cc-value
             ccval->percent
             percent->ccval
@@ -292,3 +293,11 @@
     controller 'cc cc-num
     (lambda (prev new)
       (set-sensitivity controller prev new))))
+
+
+(define (find-midi-device)
+  (find file-exists?
+        (list "/dev/snd/midiC0D0"
+              "/dev/snd/midiC1D0"
+              "/dev/snd/midiC2D0"
+              "/dev/snd/midiC3D0")))
-- 
cgit v1.2.3