diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-11-02 10:24:29 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-11-02 10:24:29 -0500 |
| commit | 29da7990c483947d09af90a8dede08c52ba0158a (patch) | |
| tree | 6311adcc0c557b0e8917fb1ef699910d7d01e377 | |
| parent | 5802005a5d3f1cbac66bb7f1549096bbbf76fcf6 (diff) | |
Add: better communication of actions available to editors
| -rw-r--r-- | playlist.lisp | 8 |
1 files 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* |