aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--vampire.lisp7
1 files 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))