From adb552c618e05d0e41f9225b2eba2eec3a3d97a9 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 2 Jul 2026 14:53:00 +0200 Subject: [PATCH] Callbacks etc. --- gui.rkt | 4 +++- player.rkt | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/gui.rkt b/gui.rkt index f820642..987ecb9 100644 --- a/gui.rkt +++ b/gui.rkt @@ -479,7 +479,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)) ) diff --git a/player.rkt b/player.rkt index b700a3f..7dee6a9 100644 --- a/player.rkt +++ b/player.rkt @@ -44,7 +44,8 @@ (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*) (let ((st (audio-state player))) (when (or (eq? st 'paused) (eq? st 'playing))