aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--playlist.lisp7
1 files changed, 7 insertions, 0 deletions
diff --git a/playlist.lisp b/playlist.lisp
index 1b55561..5ff57bd 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -424,6 +424,8 @@
(form-element (:text :bind input))
(:span (:content " -- "))
(:span (:bind dur-elem :content (secs-to-hms (playlist-duration pl)))))
+ (p (:content (format nil "by ~a" (user-name (playlist-user pl)))))
+ (p (:bind collaborators-elem))
(track-listing (pl))))
(div (:class "row")
(div ()
@@ -434,6 +436,11 @@
(display input) "none"
(display title-elem) "inline")
+ (when (playlist-editors pl)
+ (setf (text collaborators-elem)
+ (format nil "with help from ~{~a~^, ~}"
+ (mapcar #'user-name (playlist-editors pl)))))
+
(when (editorp ctl)
(setf (attribute title-elem "title") "Click to edit the title.")
(set-on-blur