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

developing

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-10 09:01:19 +02:00
parent 5dee69316a
commit fb99e97577
5 changed files with 94 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
gui.rkt
View File

@@ -108,19 +108,17 @@
(dbg-rktplayer "Getting cover image")
(let* ((track (send playlist track current-track-nr))
(img-file (if (eq? (system-type 'os) 'windows)
"c:/tmp/cover-image"
"/tmp/cover-image"))
(img-file (build-path (find-system-path 'cache-dir) "rktplayer-cover-image"))
(stored-file (send track image->file img-file))
)
(dbg-rktplayer "image mimetype: ~a" (send track image->mimetype))
(dbg-rktplayer "stored-file = ~a" stored-file)
(unless (eq? stored-file #f)
(dbg-rktplayer "Setting album art")
(let ((el (send this element 'album-art)))
(when (eq? (system-type 'os) 'windows)
(set! stored-file (string-append "/" stored-file)))
(let ((html (format "<img src=\"~a?~a\" />" stored-file (current-milliseconds))))
(dbg-rktplayer "Html = ~a" html)
(send el set-innerHTML! html))))
;(send el set-attr! 'src stored-file))))
)
)
(dbg-rktplayer "Done updating track")