diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 10:18:12 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-06 10:18:12 +0200 |
| commit | 7043349b2a5bbb621712fe596086f3d82b65a580 (patch) | |
| tree | 18ef6698abae3cedbbbeae06f4b63fd6a8171259 | |
| parent | 6f4c51e34f7d8c153b5b9a1954d007cd161cd90e (diff) | |
views add account to list: unless handle clauses
to prevent unneeded requests
| -rw-r--r-- | lisp/mastodon-views.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index e956ccd..5ec2642 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -393,8 +393,11 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting." (completing-read list-prompt (mastodon-views--get-lists-names) nil t))) (list-id (or id (mastodon-views--get-list-id list-name))) - (followings (mastodon-views--get-users-followings)) - (handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id followings)) + (followings (unless handle + (mastodon-views--get-users-followings))) + (handles (unless handle + (mastodon-tl--map-alist-vals-to-alist + 'acct 'id followings))) (account (or handle (completing-read "Account to add: " handles nil t))) (account-id (or account-id (alist-get account handles))) |