From b06bf4244ba6df8fc4c43ae4b1eb8deb24e66f46 Mon Sep 17 00:00:00 2001 From: Colin Okay 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(-) (limited to 'vampire.lisp') 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