#lang racket/base

(require racket-audio-dlna
         racket-upnp)

(define renderer
  (get-media-renderer "Denon"))

(unless renderer
  (error 'racket-audio-dlna "Denon renderer not found"))

(define player
  (make-dlna-player renderer))

(dlna-player-play!
 player
 "/muziek/radiohead/in-rainbows.flac")

(define info
  (dlna-player-info player))

(printf "State: ~a, position: ~a, duration: ~a, volume: ~a\n"
        (dlna-info-state info)
        (dlna-info-position info)
        (dlna-info-duration info)
        (dlna-info-volume info))