From 4077de24da84e57a313382e92242daf9be1b5b5f Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 22 Dec 2024 21:47:32 +1100 Subject: 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 1ce8747..20064f1 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -727,7 +727,7 @@ MAX-ID is a flag to include the max_id pagination parameter." ;; insert relationship (follows) (let-alist relationships (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 " (" @@ -742,6 +742,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 -- cgit v1.2.3