New file getter implemented. Windows is stubborn.

2026-04-11 23:11:24 +02:00
parent fb99e97577
commit 2f0b91a6c6
4 changed files with 34 additions and 21 deletions
--- a/music-library.rkt
+++ b/music-library.rkt
@@ -35,7 +35,9 @@
 (define (library-formatter row)
  (let* ((file-entry (car row))
         (file-id (format "file-~a" (cadr row)))
-         (the-file (if (equal? file-id "lib-up") ".." file-entry))
+         (the-file (string-replace
+                    (if (equal? file-id "lib-up") ".." (format "~a" file-entry))
+                    "\\" "/"))
        )
    ;(displayln row)
    (list (list 'td (list (list 'class "library-entry") (list 'id file-id) (list 'file (format "~a" the-file)))