From 370f0a8367e381345950e145554481d988a1709c Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 14 Nov 2022 19:09:27 +0100
Subject: make a start on lists

---
 lisp/mastodon-auth.el | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 02799bf..263ece2 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -222,6 +222,14 @@ Handle any errors from the server."
     (mastodon-http--api
      "accounts/verify_credentials"))))
 
+(defun mastodon-auth--get-account-id ()
+  "Request user credentials and return an account name."
+  (alist-get
+   'id
+   (mastodon-http--get-json
+    (mastodon-http--api
+     "accounts/verify_credentials"))))
+
 (defun mastodon-auth--user-acct ()
   "Return a mastodon user acct name."
   (or (cdr (assoc mastodon-instance-url mastodon-auth--acct-alist))
-- 
cgit v1.2.3