hans/rkt-web-player
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

multi player / per user playing and translation

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-28 16:53:05 +02:00
parent 2743dfb4c0
commit e10f2cf7d7
17 changed files with 1432 additions and 482 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+6 -1
View File
@@ -48,7 +48,8 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; goal : Start the audio player and its web interface.
; pre : Ports are valid; every library spec names an existing directory.
; pre : Ports are valid, local-output? is a boolean, and every library spec
; names an existing directory.
; post : Libraries are browsed lazily; player resources close with the server.
; result : The result returned by serve/servlet.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -61,6 +62,7 @@
#:listen-ip [listen-ip "127.0.0.1"]
#:port [port 8080]
#:dlna-port [dlna-port 8734]
#:local-output? [local-output? #t]
#:playlist-keystore
[playlist-keystore default-playlist-keystore]
#:launch-browser? [launch-browser? #t])
@@ -72,12 +74,14 @@
#:listen-ip string?
#:port exact-positive-integer?
#:dlna-port exact-positive-integer?
#:local-output? boolean?
#:playlist-keystore (or/c path-string? #f)
#:launch-browser? boolean?)
any)
(let* ((libraries (make-music-libraries music-paths))
(player (make-player libraries
#:allowed-agent-ids allowed-agent-ids
#:local-output? local-output?
#:playlist-keystore playlist-keystore
#:dlna-port dlna-port))
(auth-manager
@@ -198,6 +202,7 @@
(ini-get config 'server 'port 8080))
#:dlna-port (or dlna-port
(ini-get config 'player 'dlna-port 8734))
#:local-output? (ini-get config 'player 'local-output #t)
#:playlist-keystore
(or playlist-keystore
(let ((configured