simple-log integration

playlist.rkt

@@ -188,6 +188,9 @@
     (define/public (track-id i)
       (string->symbol (format "track-~a" (+ i 1))))
 
+    (define/public (index id)
+      (- (string->number (substring (symbol->string id) 6)) 1))
+
     (define/public (to-html)
       (define (formatter row)
         (let* ((track-idx (car row))