Better renderer and server support and higher level functions. Seek solutions.

media-server.rkt

@@ -46,6 +46,7 @@
          media-item-album
          media-item-genres
          media-item-date
+         media-item-original-track-number
          media-item-album-art-uri
          media-item-resources
 
@@ -72,7 +73,8 @@
   #:constructor-name make-media-container)
 
 (struct media-item media-entry
-  (creator artists album genres date album-art-uri resources)
+  (creator artists album genres date original-track-number
+           album-art-uri resources)
   #:transparent
   #:constructor-name make-media-item)
 
@@ -208,6 +210,8 @@
    (xexpr-child-text value "album" #f)
    (child-texts value "genre")
    (xexpr-child-text value "date" #f)
+   (string->integer
+    (xexpr-child-text value "originalTrackNumber" #f))
    (absolute-uri base-url (xexpr-child-text value "albumArtURI" #f))
    (filter-map
     (lambda (resource)