diff options
| author | mousebot <mousebot@riseup.net> | 2022-02-15 21:55:10 +0100 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2022-02-17 09:50:03 +0100 |
| commit | 1c0328ced821b152e3da911592a6acd12d8598dd (patch) | |
| tree | 97750344e739748fddef44184ade8b4adfcceadb /lisp/mastodon-profile.el | |
| parent | f545d8c1d65e3e2256f8b769bfdb87a5b6a1e3ea (diff) | |
re-factor follow-user functions for various views
- revert profile--extract-users-handles
- rewrite search--insert-users-propertized to handle raw account JSON, and to
call search--get-user-info itself, so we can add full acct JSON to each user
displayed and use it for follow-user etc.
- and to choose how we want to follow users, we edit
tl--interactive-user-handles-get to work differently depending on context:
- poss contexts are "follow suggestions" view, search results, and profiles
displaying a user's followers/followed users.
Diffstat (limited to 'lisp/mastodon-profile.el')
| -rw-r--r-- | lisp/mastodon-profile.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 8388d05..5504065 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -463,14 +463,9 @@ If the handle does not match a search return then retun NIL." These include the author, author of reblogged entries and any user mentioned." (when status - (let ((this-account - ;; follow suggestions view compat: - (if (or (equal (buffer-name) "*mastodon-follow-suggestions*") - (string-prefix-p "accounts" (mastodon-tl--get-endpoint))) - (mastodon-tl--property 'toot-json) - (alist-get 'account status))) - (mentions (alist-get 'mentions status)) - (reblog (alist-get 'reblog status))) + (let ((this-account (alist-get 'account status)) + (mentions (alist-get 'mentions status)) + (reblog (alist-get 'reblog status))) (seq-filter 'stringp (seq-uniq |