Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 5e332522e3 | |||
| adb552c618 |
@@ -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))
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user