aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-02 09:47:26 -0500
committerColin Okay <colin@cicadas.surf>2022-11-02 09:47:26 -0500
commit3a0b65f86ce67ccff391ea6c1dcf978f7807fb33 (patch)
treeb4d654c52f25dfb302717b25979557261e24753a
parenta752a72e791ba1058ba64753eb2a8e803eec01f8 (diff)
Add: editor and collaborator names to playlist page
-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