aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-02 10:24:29 -0500
committerColin Okay <colin@cicadas.surf>2022-11-02 10:24:29 -0500
commit29da7990c483947d09af90a8dede08c52ba0158a (patch)
tree6311adcc0c557b0e8917fb1ef699910d7d01e377
parent5802005a5d3f1cbac66bb7f1549096bbbf76fcf6 (diff)
Add: better communication of actions available to editors
-rw-r--r--playlist.lisp8
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*