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