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

Callbacks etc.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-02 14:53:00 +02:00
parent e60ecaeaef
commit adb552c618
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gui.rkt
+3 -1
View File
@@ -479,7 +479,9 @@
(map (λ (e) (map (λ (e)
(set! nr (+ nr 1)) (set! nr (+ nr 1))
(list (format "row-~a" nr) (build-path current-music-path e) (format "path-~a" nr))) (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) (unless (path-equal? current-music-path music-library)
(set! l (cons (list "lib-up" "↰" "lib-up") l)) (set! l (cons (list "lib-up" "↰" "lib-up") l))
) )
player.rkt
+2 -1
View File
@@ -44,7 +44,8 @@
(lru-clear track-cache)) (lru-clear track-cache))
(define (audio-state-cb handle st*) (define (audio-state-cb handle st* state-hash)
;(displayln (format "AS:\n~a\n~a\n~a\nEAS" handle st* ehm?))
(set! full-state st*) (set! full-state st*)
(let ((st (audio-state player))) (let ((st (audio-state player)))
(when (or (eq? st 'paused) (eq? st 'playing)) (when (or (eq? st 'paused) (eq? st 'playing))