From acebbb24c9ae406e41fb3798ccb31a95d73d2207 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 26 Oct 2022 16:37:26 -0500
Subject: Add: intialize now playing display

---
 playlist.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'playlist.lisp')

diff --git a/playlist.lisp b/playlist.lisp
index b28f82e..82f6f49 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -144,6 +144,12 @@
 
 ;;; CLIENT CONTROL
 
+(defun initialize-now-playing (elem)
+  (when-let (ctl (get-playlist-ctl elem))
+    (when (tracks ctl)
+      (setf (now-playing-track ctl) (first (tracks ctl)))
+      (load-now-playing-display ctl (now-playing-track ctl)))))
+
 (defun load-now-playing-display (ctl track-ctl)
   (let ((tr (track track-ctl)))
     (setf (text (np-title ctl)) (track-title tr)
@@ -370,4 +376,5 @@
                (now-playing-display (ctl))
                (track-listing (pl))
                (new-track-form (pl)))
-          (setf (pl-title ctl) title-elem)))))
+        (setf (pl-title ctl) title-elem)
+        (initialize-now-playing body)))))
-- 
cgit v1.2.3