#lang racket/base

(require racket-upnp)

(define files
  (start-media-file-server
   "http://10.7.3.118:8080/media/"
   #:listen-ip "10.7.3.118"))

(define current-uri
  (media-file-server-publish!
   files
   "C:/muziek/current.flac"
   "current.flac"))

(define next-uri
  (media-file-server-publish!
   files
   "C:/muziek/next.flac"
   "next.flac"))

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

(when renderer
  (media-renderer-play-uri!
   renderer
   current-uri
   #:next-uri next-uri))

;; Call this after playback no longer needs the URLs:
;;
;; (media-file-server-unpublish! files current-uri)
;; (media-file-server-unpublish! files next-uri)
;; (media-file-server-stop! files)