From 81ad9d5413cdc872b7fd11f112c2d263f304f0c2 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 24 Nov 2024 13:57:04 +1100 Subject: Show blocked_by info on profiles --- lisp/mastodon-profile.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 1ce8747..dfe9d2e 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