30 lines
564 B
Racket
30 lines
564 B
Racket
#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])))
|