#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])))