From a6a9c5201e51b07af2be5e4e581c364e28108947 Mon Sep 17 00:00:00 2001
From: mousebot <mousebot@riseup.net>
Date: Tue, 15 Feb 2022 17:07:26 +0100
Subject: add mini docs for foll reqs view

reload foll reqs view on accept/reject
---
 lisp/mastodon-notifications.el | 3 ++-
 lisp/mastodon-profile.el       | 5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'lisp')

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."
-- 
cgit v1.2.3