diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 10:23:39 +0100 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-03-23 10:23:39 +0100 |
commit | e188f426b7e8aa922514a37d6481c77e474a2b27 (patch) | |
tree | 1c4e9465eb9dfa89c4f9e1805f1ad7b7d5350581 /lisp | |
parent | 37bf61d3674063c7c6f726adccb142fecbf7fe75 (diff) |
fix view instance desc when on toot/user in profile buffer
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mastodon-views.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 42bf81d..22eac7e 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -743,10 +743,14 @@ INSTANCE is an instance domain name." (reblog (alist-get 'reblog toot)) (account (or (alist-get 'account reblog) (alist-get 'account toot))) - (url (if (mastodon-tl--profile-buffer-p) + ;; we can't use --profile-buffer-p as our test here because we may + ;; be looking at toots/boosts/users in a profile buffer + ;; profile-json works as a defacto test for if point is on the + ;; profile details at the top of a profile buffer. + (url (if (mastodon-tl--property 'profile-json) (alist-get 'url toot) ; profile (alist-get 'url account))) - (username (if (mastodon-tl--profile-buffer-p) + (username (if (mastodon-tl--property 'profile-json) (alist-get 'username toot) ;; profile (alist-get 'username account))) (instance (if instance |