diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-12 13:13:00 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-09-12 13:15:50 +0200 |
| commit | c9e702448548daac323983ac2fa42522801da4aa (patch) | |
| tree | 4c43c3358471c30f1bcd127814d508eef46c07e6 /lisp/mastodon-profile.el | |
| parent | e7209bd1d404324cf5653b2728c1d219902e8f29 (diff) | |
add account json to profile details in profile view
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 51 |
1 files changed, 27 insertions, 24 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 3b6f336..b404bb6 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -477,30 +477,33 @@ Returns a list of lists." (is-followers " FOLLOWERS ") (is-following " FOLLOWING ")))) (insert - "\n" - (mastodon-profile--image-from-account account) - "\n" - (propertize (mastodon-profile--account-field - account 'display_name) - 'face 'mastodon-display-name-face) - "\n" - (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 - (if fields - (concat "\n" - (mastodon-tl--set-face - (mastodon-profile--fields-insert fields) - 'success) - "\n") - "") + (propertize + (concat + "\n" + (mastodon-profile--image-from-account account) + "\n" + (propertize (mastodon-profile--account-field + account 'display_name) + 'face 'mastodon-display-name-face) + "\n" + (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 + (if fields + (concat "\n" + (mastodon-tl--set-face + (mastodon-profile--fields-insert fields) + 'success) + "\n") + "")) + 'profile-json account) ;; insert counts (mastodon-tl--set-face (concat " ------------\n" |