ao buffer timing

audio-placed-player.rkt

@@ -351,6 +351,14 @@
     (define (volume percentage)
       (set! req-volume percentage))
 
+    (define (ao-buf-ms)
+      (ao-playback-buf-ms))
+
+    (define (ao-buf-ms! ms)
+      (let ((the-ms (if (< ms 50) 50 (if (> ms 1000) 1000 ms))))
+        (ao-set-playback-buf-ms! the-ms)
+        (ao-buf-ms)))
+
     (define (state msg cb . force)
       (let ((h (make-hash)))
         (with-mutex ao-mutex
@@ -474,6 +482,12 @@
                     (let ((st #f))
                       (state "'state command" (λ (s) (set! st s)) 'force)
                       st)))
+                  ((eq? cmd 'ao-buf-ms)
+                   (do-rpc
+                    (if (null? (cdr data))
+                        (list (ao-buf-ms))
+                        (list (ao-buf-ms! (cadr data))))
+                    ))
                   (else
                    (do-rpc
                     (list 'error (format "Unknown command ~a" cmd))))