diff options
| -rw-r--r-- | vampire.lisp | 7 |
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)) |