aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2021-10-26 14:23:38 +0200
committermousebot <mousebot@riseup.net>2021-10-26 14:23:38 +0200
commit64673e103233b238f936d78b4ca4182ce2304b26 (patch)
tree9cf87921a8b45e4e41bafe68a59021f079c2919f /lisp
parentb0d78e394ac70487d38257838d9b57b0677923f4 (diff)
display status of locked accounts in profile view
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-profile.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index a374061..22120fe 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -296,6 +296,7 @@ Returns a list of lists."
(buffer (concat "*mastodon-" acct "-" endpoint-type "*"))
(note (mastodon-profile--account-field account 'note))
(json (mastodon-http--get-json url))
+ (locked (mastodon-profile--account-field account 'locked))
(followers-count (mastodon-tl--as-string
(mastodon-profile--account-field
account 'followers_count)))
@@ -338,8 +339,13 @@ Returns a list of lists."
account 'display_name)
'face 'mastodon-display-name-face)
"\n"
- (propertize acct
+ (propertize (concat "@" acct)
'face 'default)
+ (if (equal locked t)
+ (if (fontp (char-displayable-p #10r9993))
+ " 🔒"
+ " [locked]")
+ "")
"\n ------------\n"
(mastodon-tl--render-text note account)
;; account here to enable tab-stops in profile note