diff options
| author | mouse bot <mousebot@riseup.net> | 2021-11-06 16:37:44 +0000 |
|---|---|---|
| committer | mouse bot <mousebot@riseup.net> | 2021-11-06 16:37:44 +0000 |
| commit | e738dbb2cbcdfa96fb6b8ce1d4cac0f209ab6a53 (patch) | |
| tree | 52779083785878b701229e070153516453939fa3 /lisp/mastodon-auth.el | |
| parent | 027f24125fae4abc487207c8c81fdc0f20ec711d (diff) | |
| parent | d5bab484a7f8593e095ff0fc97e903a38c62c951 (diff) | |
Merge pull request 'Merge h_d's cleanups' (#8) from h_d/mastodon.el:cleanups into develop
Reviewed-on: https://git.blast.noho.st/mouse/mastodon.el/pulls/8
Diffstat (limited to 'lisp/mastodon-auth.el')
| -rw-r--r-- | lisp/mastodon-auth.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index b22b51e..8d0d7c6 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -136,7 +136,6 @@ Otherwise, generate a token and pass it to `mastodon-auth--handle-token-reponse'." (if-let ((token (cdr (assoc mastodon-instance-url mastodon-auth--token-alist)))) token - (mastodon-auth--handle-token-response (mastodon-auth--get-token)))) (defun mastodon-auth--handle-token-response (response) @@ -158,11 +157,11 @@ Handle any errors from the server." (defun mastodon-auth--get-account-name () "Request user credentials and return an account name." - (cdr (assoc - 'acct - (mastodon-http--get-json - (mastodon-http--api - "accounts/verify_credentials"))))) + (alist-get + 'acct + (mastodon-http--get-json + (mastodon-http--api + "accounts/verify_credentials")))) (defun mastodon-auth--user-acct () "Return a mastodon user acct name." |