-

taglib.rkt

@@ -16,6 +16,9 @@
            tags-year
            tags-genre
            tags-track
+           tags-composer
+           tags-disc-number
+           tags-album-artist
            
            tags-length
            tags-sample-rate
@@ -152,6 +155,8 @@
               [(eq? v 'bit-rate) bit-rate]
               [(eq? v 'channels) channels]
               [(eq? v 'keys) (hash-keys key-store)]
+              [(eq? v 'album-artist) album-artist]
+              [(eq? v 'disc-number) disc-number]
               [(eq? v 'val)
                (if (null? args)
                    #f
@@ -207,6 +212,8 @@
     (tags-comment 'comment)
     (tags-genre 'genre)
     (tags-composer 'composer)
+    (tags-album-artist 'album-artist)
+    (tags-disc-number 'disc-number)
     (tags-year 'year)
     (tags-track 'track)
     
@@ -246,6 +253,8 @@
   (define (tags-picture->ext tags)
     (let ((mt (tags-picture->mimetype tags)))
       (cond
+        ((eq? mt #f)
+         #f)
         ((or (string-suffix? mt "/jpeg") (string-suffix? mt "/jpg"))
          'jpg)
         ((string-suffix? mt "/png")