aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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."