diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-11 12:55:32 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-12 18:11:48 -0400 |
| commit | 9831a8fdae04a4b23b4f4d271d5806131c90a528 (patch) | |
| tree | 38e1d477adfb4d99d416e59c7894586df1df5900 /lisp | |
| parent | d21fdb8b65dbe6bc85f6f28249355a4eeb06102d (diff) | |
Add mastodon-auth--registration-success test
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-auth.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 686e2ae..2d5e19f 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -39,17 +39,20 @@ (defvar mastodon--client-app-plist nil) (defvar mastodon--api-token-string nil) +(defun mastodon-auth--registration-success () + (let ((client-data (mastodon--json-hash-table))) + (setq mastodon--client-app-plist + `(:client_id + ,(gethash "client_id" client-data) + :client_secret + ,(gethash "client_secret" client-data))))) + (defun mastodon--register-client-app-triage (status) "Callback function to triage `mastodon--register-client-app' response. STATUS is passed by `url-retrieve'." (mastodon--http-response-triage status - (lambda () (let ((client-data (mastodon--json-hash-table))) - (setq mastodon--client-app-plist - `(:client_id - ,(gethash "client_id" client-data) - :client_secret - ,(gethash "client_secret" client-data))))))) + 'mastodon-auth--registration-success)) (defun mastodon--register-client-app () "Add `:client_id' and `client_secret' to `mastodon--client-plist'." |