Compare commits

...

2 Commits

Author SHA1 Message Date
hans 5e332522e3 oke 2026-07-02 14:55:48 +02:00
hans adb552c618 Callbacks etc. 2026-07-02 14:53:00 +02:00
+3 -1
View File
@@ -496,7 +496,9 @@
(map (λ (e)
(set! nr (+ nr 1))
(list (format "row-~a" nr) (build-path current-music-path e) (format "path-~a" nr)))
(directory-list current-music-path)))))
(if (directory-exists? current-music-path)
(directory-list current-music-path)
'())))))
(unless (path-equal? current-music-path music-library)
(set! l (cons (list "lib-up" "" "lib-up") l))
)