52 lines
1006 B
Racket
52 lines
1006 B
Racket
#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)
|