diff options
| -rw-r--r-- | playlist.lisp | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/playlist.lisp b/playlist.lisp index b5c2c87..abb8e3d 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -135,11 +135,14 @@ (defun advance-now-playing (e) (when-let ((ctl (cur-playlist-ctl e))) - (stop-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)))) + + (if-let (next (find-next-track ctl (now-playing-track ctl))) + (progn + (stop-playback ctl) + (setf (now-playing-track ctl) next) + (load-now-playing-display ctl next) + (start-playback ctl)) + (stop-playback ctl)))) (defun previous-now-playing (e) (when-let* ((ctl |