diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-26 10:49:03 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-26 10:49:03 +0100 |
| commit | 6f017799fa13dd53015ce4159202893f2a590888 (patch) | |
| tree | 95f13b29a6e2615e2f139f7d45a9eade0b8e08e8 /lisp/mastodon-auth.el | |
| parent | 14b7547c385648565eba8a4bac3dc8afa5ebf978 (diff) | |
| parent | 55c91270734da9e6a11060b3bea7aad152d40680 (diff) | |
Merge branch 'develop' into HEAD
Diffstat (limited to 'lisp/mastodon-auth.el')
| -rw-r--r-- | lisp/mastodon-auth.el | 8 |
1 files changed, 8 insertions, 0 deletions
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)) |