Embed Notice

HTML Code

<blockquote style="position: relative; padding-left: 55px;"><section><a href="https://peister.org/objects/ea3259f7-12a7-422f-93b5-a59001336987">Yuchen Pei (semi@peister.org)'s status on Sunday, 24-Nov-2024 12:01:23 JST</a><a href="https://peister.org/users/semi" title="semi@peister.org"><img src="https://gnusocial.jp/avatar/256351-48-20240420062502.webp" width="48" height="48" alt="Yuchen Pei" style="position: absolute; left: 0; top: 0;">Yuchen Pei</a></section><article><p>A simple patch to mastodon.el that shows if a user is blocking you when using that user's profile</p>modified   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</article><footer><a rel="bookmark" href="https://gnusocial.jp/conversation/4059872#notice-7933540">In conversation</a><time datetime="2024-11-24T12:01:23+09:00" title="Sunday, 24-Nov-2024 12:01:23 JST">about 3 months ago</time> <span>from <span><a href="https://peister.org/objects/ea3259f7-12a7-422f-93b5-a59001336987" rel="external" title="Sent from peister.org via ActivityPub">peister.org</a></span></span><a href="https://peister.org/objects/ea3259f7-12a7-422f-93b5-a59001336987">permalink</a></footer></blockquote>

Corresponding Notice

Embed this notice
Yuchen Pei (semi@peister.org)'s status on Sunday, 24-Nov-2024 12:01:23 JST Yuchen Pei
A simple patch to mastodon.el that shows if a user is blocking you when using that user's profile
modified 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
In conversationabout 3 months ago from peister.orgpermalink

Public

Embed Notice

HTML Code

Corresponding Notice