diff options
| -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* |