xiph opusfile support and taglib write support.

2026-06-07 23:49:38 +02:00
parent cf87fa7ed8
commit 4b6adc404e
8 changed files with 905 additions and 303 deletions
@@ -9,7 +9,7 @@
         "tests.rkt"
         )

-(define place-mode #f)
+(define place-mode #t)

 (define run-queue #f)
 (define (set-test a)
@@ -26,7 +26,7 @@
         )
    (sprintf "%02d:%02d" minutes seconds)))

-(define (audio-player-state h st)
+(define (audio-player-state h s st)
  (early-return
   ((? (not (audio-play? h)) => 'done))
   (let* ((f (audio-file h))