hans/rktplayer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simple-log integration

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-09 10:43:04 +02:00
parent c35eef081e
commit e099838fb8
6 changed files with 164 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
music-library.rkt
View File

@@ -33,10 +33,12 @@
(path->string name))))
(define (library-formatter row)
(let ((file-entry (car row))
(file-id (cadr row))
(let* ((file-entry (car row))
(file-id (format "file-~a" (cadr row)))
(the-file (if (equal? file-id "lib-up") ".." file-entry))
)
(list (list 'td (list (list 'class "library-entry") (list 'id file-id) (list 'file (format "~a" file-entry)))
;(displayln row)
(list (list 'td (list (list 'class "library-entry") (list 'id file-id) (list 'file (format "~a" the-file)))
(if (equal? file-id "lib-up")
file-entry
(basename file-entry))