diff options
| author | Yuchen Pei <id@ypei.org> | 2024-12-22 21:47:32 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2024-12-22 21:47:32 +1100 |
| commit | 4077de24da84e57a313382e92242daf9be1b5b5f (patch) | |
| tree | 49c5a03dac2c9f8b33050cdabe441b97b0c0b021 /lisp/mastodon-profile.el | |
| parent | 31557be472a94b48163a5651640d3e807a6cbdf2 (diff) | |
Show blocked_by info on profiles
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |