didl toevoegingen

examples/media-file-server-example.rkt

@@ -19,6 +19,20 @@
    "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"))
 
@@ -26,7 +40,9 @@
   (media-renderer-play-uri!
    renderer
    current-uri
-   #:next-uri next-uri))
+   #:metadata current-metadata
+   #:next-uri next-uri
+   #:next-metadata next-metadata))
 
 ;; Call this after playback no longer needs the URLs:
 ;;