aboutsummaryrefslogtreecommitdiffhomepage
path: root/playlist.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'playlist.lisp')
-rw-r--r--playlist.lisp13
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