From 29da7990c483947d09af90a8dede08c52ba0158a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 2 Nov 2022 10:24:29 -0500 Subject: Add: better communication of actions available to editors --- playlist.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/playlist.lisp b/playlist.lisp index 3ddffda..59e4824 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -296,7 +296,9 @@ (setf (tracks ctl) (insert-nth track-ctl -1 (tracks ctl) t)) (cond - ((editorp ctl) + ((editorp ctl) + (setf (attribute downbtn "title") "move track down" + (attribute upbtn "title") "move track up") (set-on-click delbtn (thunk* (remove-track track-ctl))) (set-on-click downbtn (thunk* (move-track-down track-ctl))) (set-on-click upbtn (thunk* (move-track-up track-ctl)))) @@ -422,6 +424,7 @@ (div () (now-playing-display (ctl))) (div () + (:span (:bind edit-indicator)) (section (:h2) (:span (:bind title-elem :content (playlist-title pl))) (form-element (:text :bind input)) @@ -450,7 +453,8 @@ when more do (princ ", " out))))) (when (editorp ctl) - (setf (attribute title-elem "title") "Click to edit the title.") + (setf (attribute title-elem "title") "Click to edit the title." + (text edit-indicator) "(click the title to edit it)") (set-on-blur input (thunk* -- cgit v1.2.3