From a752a72e791ba1058ba64753eb2a8e803eec01f8 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 1 Nov 2022 07:17:52 -0500
Subject: Fix: playback selection after playlist end wasn't working

---
 playlist.lisp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/playlist.lisp b/playlist.lisp
index c2adf97..1b55561 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -169,17 +169,17 @@
 
 (defun play-this-audio (audio)
   (when-let (ctl (cur-playlist-ctl audio))
-    (let ((np (now-playing-track ctl)))
+    (let ((np (now-playing-track ctl))
+          (tr (track-ctl-with-audio ctl audio)))
       (cond
-        ((not (eq audio (audio np)))    ; different track
-         (let ((tr
-                 (track-ctl-with-audio ctl audio)))
-           (stop-playback ctl)
-           (setf (now-playing-track ctl) tr)
-           (start-playback ctl)
-           (load-now-playing-display ctl tr)))
-        ((pausedp audio)
-         (start-playback ctl))))))
+        ((and np (eq audio (audio np)) (pausedp audio))
+         (start-playback ctl))
+
+        (t
+         (stop-playback ctl)
+         (setf (now-playing-track ctl) tr)
+         (start-playback ctl)
+         (load-now-playing-display ctl tr))))))
 
 ;;; SYNCHRONZIED CLIENT CONTROL
 
-- 
cgit v1.2.3