branch: elpa/mastodon
commit 0c5c81e56e151d4e503fe09a7d65b3b9c2c5feb2
Author: Yuchen Pei <i...@ypei.org>
Commit: Yuchen Pei <i...@ypei.org>
Show blocked_by info on profiles
---
lisp/mastodon-profile.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 19b1b99036..fc2f5ae693 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -730,7 +730,7 @@ MAX-ID is a flag to include the max_id pagination
parameter."
;; or poss it has a different endpoint
""
(let* ((followsp (mastodon-profile--follows-p
- (list .requested_by .following
.followed_by)))
+ (list .requested_by .following .followed_by
.blocked_by)))
(rels (mastodon-profile--relationships-get .id))
(langs-filtered (if-let ((langs (alist-get 'languages
rels)))
(concat " ("
@@ -745,6 +745,8 @@ MAX-ID is a flag to include the max_id pagination
parameter."
" | FOLLOWS YOU")
(when (eq .requested_by t)
" | REQUESTED TO FOLLOW YOU")
+ (when (eq .blocked_by t)
+ " | BLOCKS YOU")
"\n\n")
'success)
""))))) ; for insert call
