#lang racket/base

(require "../main.rkt")

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

(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 current-metadata
  (media-file-server-didl-lite
   files
   current-uri
   #:title "Current track"
   #:duration 639))

(define next-metadata
  (media-file-server-didl-lite
   files
   next-uri
   #:title "Next track"
   #:duration 242))

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

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

;; 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)