enhancements for the rktplayer

2026-04-28 22:20:36 +02:00
parent f2ae0821d3
commit 042047a355
4 changed files with 20 additions and 13 deletions
@@ -1,5 +1,7 @@
 #lang racket

+(require racket-sound)
+
 (provide music-lib-relevant?
         is-music-dir?
         is-music-file?
@@ -14,7 +16,7 @@
          (not (string-prefix? name ".")))
        (if (eq? type 'file)
            (let* ((fn (string-downcase (format "~a" f)))
-                   (exts (list "flac" "mp3")))
+                   (exts (audio-supported-extensions)))
              (let ((l (filter (λ (e) (string-suffix? fn (string-append "." e))) exts)))
                (not (null? l))))
            #f))))