Fix: playback control button text when playlist ends

1 files 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