Add: intialize now playing display

1 files changed, 8 insertions, 1 deletions

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)))))