diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-30 23:24:45 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-08-30 23:24:45 +0200 |
| commit | e18f266cf6e0032aa33c7b1d229bd09fbb3911b5 (patch) | |
| tree | 58b530a6b7023412c90fc5ade4aae76a4d7f80da /lisp/mastodon-profile.el | |
| parent | 3c40f6dbb855fb4a3100f1822c4d2a29c29737a2 (diff) | |
| parent | efe31d5230a0c310bdc1e2d53ca30c8123aaede2 (diff) | |
Merge branch 'main' into develop
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 4b541fd..516059e 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -436,6 +436,14 @@ If toot is a boost, opens the profile of the booster." (message "Loading your profile...") (mastodon-profile--show-user (mastodon-auth--get-account-name))) +(defun mastodon-profile--view-author-profile () + "View the profile of author of present toot." + (interactive) + (let* ((toot-json (mastodon-tl--property 'toot-json)) + (acct (alist-get 'account toot-json)) + (handle (alist-get 'acct acct))) + (mastodon-profile--show-user handle))) + (defun mastodon-profile--account-field (account field) "Return FIELD from the ACCOUNT. @@ -494,7 +502,7 @@ These include the author, author of reblogged entries and any user mentioned." (when status (let ((this-account (or (alist-get 'account status) ; status is a toot - status)) ; status is a user listing + status)) ; status is a user listing (mentions (or (alist-get 'mentions (alist-get 'status status)) (alist-get 'mentions status))) (reblog (or (alist-get 'reblog (alist-get 'status status)) |