standard audio pipeline

playlist.rkt

@@ -50,6 +50,14 @@
     (define/public (get-length) length)
     (define/public (get-id) my-id)
 
+    (define/public (track< t2)
+      (if (string-ci<? album (send t2 get-album))
+          #t
+          (if (string-ci=? album (send t2 get-album))
+              (< number (send t2 get-number))
+              #f))
+      )
+
     (define (read-tags)
       (let* ((f (if (path? file) (path->string file) file))
              (tags (id3-tags f))
@@ -307,6 +315,9 @@
     (define/public (read-tracks)
       (set! tracks '())
       (read-tracks-internal start-map)
+      (set! tracks
+            (sort tracks (λ (t1 t2)
+                           (send t1 track< t2))))
       (send this save-tab!)
       )