multi player / per user playing and translation

private/dlna-playback.rkt

@@ -293,23 +293,29 @@
           (with-lock playback (lambda () (poll/locked! playback))))
         (loop)))))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; goal   : Create playlist-aware playback for one network renderer.
+; pre    : Device is a media renderer, callbacks are procedures, and
+;          media-server is a running shared media-file-server.
+; post   : A DLNA player and its state-monitor thread are running.
+; result : A playback adapter that publishes through the supplied server.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define (make-dlna-playback device
                             tracks
                             update
                             error
-                            #:port [port 8734]
+                            #:media-file-server media-server
                             #:poll-seconds [poll-seconds 1])
   (define raw
     (make-dlna-player device
-                      #:port port
-                      #:path "/rkt-web-player/"))
+                      #:media-file-server media-server))
   (define playback
     (dlna-playback raw tracks update error 'off #f #f #f
                    #f #f #f #f 0 #f #t #t #f
                    (make-semaphore 1)))
   (set-dlna-playback-monitor!
    playback
-   (thread (lambda () (monitor-loop playback poll-seconds))))
+   (thread (λ () (monitor-loop playback poll-seconds))))
   playback)
 
 (define (dlna-playback-play-index! playback index)