From d0bf4f196a9a30ea4e19b0b6fa5f9c5bfaf695b3 Mon Sep 17 00:00:00 2001
From: Holger Dürer <me@hdurer.net>
Date: Tue, 2 Nov 2021 21:25:18 +0100
Subject: Convert most uses of `(cdr (assoc <some-symbol> <a-list>))` to
 `(alist-get <some-symbol> <a-list>)`

This is more readable and actually more efficient (maybe) since it
uses `eq` rather than `equal` as a test.
---
 lisp/mastodon-auth.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lisp/mastodon-auth.el')

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index b22b51e..e5767f1 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -158,11 +158,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."
-- 
cgit v1.2.3