aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-views.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2023-08-27 22:39:45 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2023-08-27 22:54:34 -0400
commit123c7cf0a5ad4ab3f6eb86fd18daefa37e29d253 (patch)
treed9225278cea5e1a0588ca8c9de0e0902647eed2c /lisp/mastodon-views.el
parent6360c8b9d06cdbebaa8254abdbc8f70550c78507 (diff)
Simplify calls to `alist-get`
* lisp/mastodon-toot.el (mastodon-toot--set-toot-language): * lisp/mastodon-tl.el (mastodon-tl--read-rules-ids): * lisp/mastodon-profile.el (mastodon-profile--remove-from-followers-list): * lisp/mastodon-auth.el (mastodon-auth--access-token): * lisp/mastodon-views.el (mastodon-views--add-account-to-list) (mastodon-views--remove-account-from-list): Remove redundant optional arg to `alist-get` (`equal` is already the default).
Diffstat (limited to 'lisp/mastodon-views.el')
-rw-r--r--lisp/mastodon-views.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index a40603d..00b9467 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -391,7 +391,7 @@ If ACCOUNT-ID and HANDLE are provided use them rather than prompting."
(handles (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 nil nil 'equal)))
+ (account-id (or account-id (alist-get account handles)))
(url (mastodon-http--api (format "lists/%s/accounts" list-id)))
(response (mastodon-http--post url `(("account_ids[]" . ,account-id)))))
(mastodon-views--list-action-triage
@@ -425,7 +425,7 @@ If ID is provided, use that list."
(handles (mastodon-tl--map-alist-vals-to-alist 'acct 'id accounts))
(account (completing-read "Account to remove: "
handles nil t))
- (account-id (alist-get account handles nil nil 'equal))
+ (account-id (alist-get account handles))
(url (mastodon-http--api (format "lists/%s/accounts" list-id)))
(args (mastodon-http--build-array-params-alist "account_ids[]" `(,account-id)))
(response (mastodon-http--delete url args)))