From a125ca9e82762f36930bd14e80232b005b7c56fc Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 31 Oct 2022 07:10:39 -0500 Subject: Fix: playback control button text when playlist ends --- playlist.lisp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/playlist.lisp b/playlist.lisp index 281b9bf..b5c2c87 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -133,14 +133,13 @@ (advance-now-playing e)))) (defun advance-now-playing (e) - (when-let* ((ctl - (cur-playlist-ctl e)) - (next - (find-next-track ctl (now-playing-track ctl)))) + (when-let ((ctl + (cur-playlist-ctl e))) (stop-playback ctl) - (setf (now-playing-track ctl) next) - (load-now-playing-display ctl next) - (start-playback ctl))) + (when-let (next (find-next-track ctl (now-playing-track ctl))) + (setf (now-playing-track ctl) next) + (load-now-playing-display ctl next) + (start-playback ctl)))) (defun previous-now-playing (e) (when-let* ((ctl -- cgit v1.2.3