diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-19 12:23:01 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-19 12:24:45 +0100 |
| commit | 8c215cfaa42db195dfd29bb6ed2f0ed13b386548 (patch) | |
| tree | b9096a7c01ebac4f5f9a5bec6daf03b651fe0da9 | |
| parent | 82e0ee3f7526f455485acd833c816362722a501a (diff) | |
list title - use link face
| -rw-r--r-- | lisp/mastodon-tl.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index f7c8b7f..b191b3d 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1497,9 +1497,8 @@ Prompt for name and replies policy." `(("title" . ,title) ("replies_policy" . ,replies-policy)) nil))) - (mastodon-tl--list-action-triage - response - (message "list %s created!" title)))) + (mastodon-tl--list-action-triage response + (message "list %s created!" title)))) (defun mastodon-tl--delete-list-at-point () "Delete list at point." @@ -1520,9 +1519,8 @@ If ID is provided, delete that list." (url (mastodon-http--api (format "lists/%s" id)))) (when (y-or-n-p (format "Delete list %s?" name)) (let ((response (mastodon-http--delete url))) - (mastodon-tl--list-action-triage - response - (message "list %s deleted!" name)))))) + (mastodon-tl--list-action-triage response + (message "list %s deleted!" name)))))) (defun mastodon-tl--view-lists () "Show the user's lists in a new buffer." @@ -1567,7 +1565,7 @@ If ID is provided, delete that list." 'toot-id "0" ; so we nav here 'help-echo "RET: view list timeline, d: delete this list, \ a: add account to this list, r: remove account from this list" - 'face '((:underline t :inherit success))) + 'face 'link) ; '((:underline t :inherit success))) "\n\n") (mastodon-search--insert-users-propertized accounts))) |