aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2022-02-15 17:07:26 +0100
committermousebot <mousebot@riseup.net>2022-02-15 19:38:21 +0100
commita6a9c5201e51b07af2be5e4e581c364e28108947 (patch)
treec1e2cd13080cb132149f528bef3f926724b1b840
parent0be1c740ba3f4f3f86a3d81567fcb5cd1b9683a9 (diff)
add mini docs for foll reqs view
reload foll reqs view on accept/reject
-rw-r--r--lisp/mastodon-notifications.el3
-rw-r--r--lisp/mastodon-profile.el5
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 5e3305a..40f9c04 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -109,7 +109,8 @@ follow-requests view."
nil nil)))
(mastodon-http--triage response
(lambda ()
- (unless f-reqs-view-p
+ (if f-reqs-view-p
+ (mastodon-profile--view-follow-requests)
(mastodon-notifications--get))
(message "Follow request of %s (@%s) %s!"
name handle (if reject
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index c7f8963..e15a891 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -172,7 +172,10 @@ JSON is the data returned by the server."
(concat "\n ------------\n"
" FOLLOW REQUESTS\n"
" ------------\n\n")
- 'success))
+ 'success)
+ (mastodon-tl--set-face
+ "[a/r - accept/reject request at point\n n/p - go to next/prev request]\n\n"
+ 'font-lock-comment-face))
(if (equal json '[])
(insert (propertize
"Looks like you have no follow requests for now."