Complete refactoring for rktplayer, in order to make it play on DLNA renderers and also use UpNP media server resources.

2026-08-08 14:29:01 +02:00
parent 186b3bb8d7
commit f5fdc38e67
69 changed files with 5953 additions and 1647 deletions
@@ -0,0 +1,29 @@
+#lang racket/base
+
+(require racket/class
+         racket-sonos
+         "renderer-upnp.rkt")
+
+(provide renderer-sonos%)
+
+(define renderer-sonos%
+  (class renderer-upnp%
+    (init-field sonos-group)
+    (init preferences)
+
+    (define/public (get-sonos-group)
+      sonos-group)
+
+    (super-new
+     [upnp-device
+      (sonos-group-renderer
+       sonos-group)]
+     [preferences preferences]
+     [id
+      (format "sonos:~a"
+              (sonos-group-id
+               sonos-group))]
+     [name
+      (sonos-group-name
+       sonos-group)]
+     [kind 'sonos])))