-

player.rkt

@@ -18,6 +18,7 @@
                 [buffer-max-seconds 10]
                 [buffer-min-seconds 4]
                 )
+    (define use-ao #t)
     
     (define pl #f)
     (define state 'stopped)
@@ -51,10 +52,11 @@
           (displayln (format "current-rate = ~a, current-bits = ~a, current-channels = ~a, ao-handle = ~a"
                             current-rate current-bits current-channels ao-handle))
           (displayln "Opening ao-handle")
+          (when use-ao
             (let ((fmt (ao-mk-format current-bits current-rate current-channels 'big-endian)))
               (set! ao-handle (ao-open-live #f fmt))
               (start-play-time-updater)
-            )
+              ))
           )
         )
       )

playlist.rkt

@@ -53,6 +53,9 @@
         )
       )
 
+    (define/public (image->file* to-file)
+      #f)
+    
     (define/public (image->file to-file)
       (let ((tags (read-tags)))
         (if (tags-valid? tags)
@@ -68,6 +71,9 @@
               )
             #f)))
 
+    (define/public (image->mimetype*)
+      #f)
+    
     (define/public (image->mimetype)
       (let ((tags (read-tags)))
         (if (tags-valid? tags)
@@ -77,6 +83,8 @@
     (super-new)
 
     (begin
+      (let ((use-tags #t))
+        (if use-tags
             (unless (eq? file #f)
               (let ((tags (read-tags)))
                 (if (tags-valid? tags)
@@ -97,6 +105,11 @@
                     )
                 )
               )
+            (unless (eq? file #f)
+              (set! title (format "~a" file))
+              (set! number 0))
+            )
+        )
       )
     )
   )

rktplayer.rkt

@@ -22,9 +22,9 @@
 (ww-set-log-level 'info)
 ;(ww-tail-log)
 ;(ww-tail-log)
-(ao-set-async-mode! 'scheme)
+;(ao-set-async-mode! 'scheme)
 ;(collect-garbage 'incremental)
-;(ao-set-async-mode! 'ffi)
+(ao-set-async-mode! 'ffi)
 
 (define (run)
   (let* ((ini (new ini% [file 'rktplayer]))