;; this will match e.g. 60.aiff (where 60 is the midi note number)
(define sampler-parse-midinote-filename
(lambda (filename)
(let ((result (regex:matched filename "([0-9]+?)\\.(wav|WAV|aif|AIF|aiff|AIFF|ogg|OGG)$")))
(if (null? result)
#f
(list filename (string->number (cadr result)) 0 0)))))