From b06bf4244ba6df8fc4c43ae4b1eb8deb24e66f46 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 15:59:12 -0500
Subject: Fix: install-playlist/ctl must occur prior to adding tracks
---
vampire.lisp | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/vampire.lisp b/vampire.lisp
index b988e27..9001643 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -224,6 +224,9 @@
(span (:content (secs-to-hms (or (track-duration track) 0)))))
(audio (:source (media-url-path track) :controls nil :bind audio)))
(install-audio-track audio track)
+ (set-on-ended
+ audio
+ (alambda (ctl/next-track audio)))
(set-on-click
btn
(alambda (ctl/play audio)))))
@@ -275,13 +278,13 @@
(playlist-key-from-url (url (location body))))
(playlist
(object-with-key listid)))
+ (install-playlist/ctl playlist body)
(with-clog-create body
(div ()
(section (:h2 :content (playlist-title playlist)))
(div ()
(track-listing (playlist)))
- (track-form (playlist)))
- (install-playlist/ctl playlist body))))
+ (track-form (playlist))))))
(defun user-page (body)
(if-let (user (session-user body))
--
cgit v1.2.3