branch: elpa/mastodon
commit e7d36293156fd2da629ee0255f9a270106389c98
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
add substitute-cmd-keys to init-sync, use it in notifs policy
---
lisp/mastodon-notifications.el | 3 ++-
lisp/mastodon-tl.el | 9 ++++++---
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 678493ddad..6ef6d38ad7 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -899,7 +899,8 @@ be filtered."
:headers
"notification requests"
"a/j - accept/reject request at point\n\
- n/p - go to next/prev request")
+ n/p - go to next/prev request\n\
+ \\[mastodon-notifications-policy] - set filtering policy")
(mastodon-tl--goto-first-item)
(with-current-buffer "*mastodon-notification-requests*"
(use-local-map mastodon-notifications--requests-map)))
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 6e755fb046..9d3cc7ab34 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3458,7 +3458,8 @@ Optional arg NOTE-TYPE means only get that type of
notification.
PARAMS is an alist of any params to include in the request.
HEADERS are any headers to send in the request.
VIEW-NAME is a string, to be used as a heading for the view.
-BINDING-STR is a string explaining any bindins in the view.
+BINDING-STR is a string explaining any bindins in the view, it can have
+formatting for `substitute-command-keys'.
ENDPOINT-VERSION is a string, format Vx, e.g. V2."
;; Used by `mastodon-notifications-get' and in views.el
(let* ((notes-params (when note-type
@@ -3477,8 +3478,10 @@ ENDPOINT-VERSION is a string, format Vx, e.g. V2."
(when view-name
(mastodon-search--insert-heading view-name))
(when binding-str
- (insert (mastodon-tl--set-face (concat "[" binding-str "]\n\n")
- 'mastodon-toot-docs-face)))
+ (insert
+ (substitute-command-keys
+ (mastodon-tl--set-face (concat "[" binding-str "]\n\n")
+ 'mastodon-toot-docs-face))))
(mastodon-tl--set-buffer-spec
buffer endpoint update-function
link-header params nil
