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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-09 09:46:39 +01:00
parent 63c8bde210
commit c35eef081e
3 changed files with 41 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
playlist.rkt
View File

@@ -53,6 +53,9 @@
)
)
(define/public (image->file* to-file)
#f)
(define/public (image->file to-file)
(let ((tags (read-tags)))
(if (tags-valid? tags)
@@ -68,6 +71,9 @@
)
#f)))
(define/public (image->mimetype*)
#f)
(define/public (image->mimetype)
(let ((tags (read-tags)))
(if (tags-valid? tags)
@@ -75,27 +81,34 @@
'no-mimetype)))
(super-new)
(begin
(unless (eq? file #f)
(let ((tags (read-tags)))
(if (tags-valid? tags)
(begin
(set! title (tags-title tags))
(set! artist (tags-artist tags))
(set! album (tags-album tags))
(set! number (tags-track tags))
(set! length (tags-length tags))
)
(begin
(set! title "invalid tags")
(set! artist "invalid tags")
(set! album "invalid tags")
(set! number number)
(set! length -1)
)
(let ((use-tags #t))
(if use-tags
(unless (eq? file #f)
(let ((tags (read-tags)))
(if (tags-valid? tags)
(begin
(set! title (tags-title tags))
(set! artist (tags-artist tags))
(set! album (tags-album tags))
(set! number (tags-track tags))
(set! length (tags-length tags))
)
(begin
(set! title "invalid tags")
(set! artist "invalid tags")
(set! album "invalid tags")
(set! number number)
(set! length -1)
)
)
)
)
)
(unless (eq? file #f)
(set! title (format "~a" file))
(set! number 0))
)
)
)
)