From c9e702448548daac323983ac2fa42522801da4aa Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 12 Sep 2022 13:13:00 +0200
Subject: add account json to profile details in profile view

---
 lisp/mastodon-profile.el | 51 +++++++++++++++++++++++++-----------------------
 1 file changed, 27 insertions(+), 24 deletions(-)

(limited to 'lisp/mastodon-profile.el')

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"
-- 
cgit v1.2.3