diff options
| author | Yuchen Pei <id@ypei.org> | 2024-11-24 13:57:04 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2024-11-24 13:57:04 +1100 |
| commit | 81ad9d5413cdc872b7fd11f112c2d263f304f0c2 (patch) | |
| tree | 670d197559cf543e11a6c39abb18285907907db8 | |
| parent | 31557be472a94b48163a5651640d3e807a6cbdf2 (diff) | |
Show blocked_by info on profiles
| -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..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 |