diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-11-02 09:47:26 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-11-02 09:47:26 -0500 |
| commit | 3a0b65f86ce67ccff391ea6c1dcf978f7807fb33 (patch) | |
| tree | b4d654c52f25dfb302717b25979557261e24753a /playlist.lisp | |
| parent | a752a72e791ba1058ba64753eb2a8e803eec01f8 (diff) | |
Add: editor and collaborator names to playlist page
Diffstat (limited to 'playlist.lisp')
| -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 |