aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJohnson Denen <johnson.denen@gmail.com>2017-04-12 18:01:13 -0400
committerJohnson Denen <johnson.denen@gmail.com>2017-04-12 18:11:48 -0400
commit0c80780a32b6a70c4da30c53fb2f646d6ac79b7a (patch)
tree4bb8514d91dc0690eb6105f4e4ddea79055ad345 /lisp
parent993dfce9bda9a8562b37dee08a7918e0acfaef78 (diff)
Add `mastodon-auth--client' function
Replace direct references to `mastodon--client-app-plist'
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-auth.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 260f838..ef16ab9 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -71,10 +71,14 @@ STATUS is passed by `url-retrieve'."
"Return t if `mastodon--client-app-plist' has a :client_secret value."
(when (plist-get mastodon--client-app-plist :client_secret) t))
+(defun mastodon-auth--client ()
+ "Return `mastodon--client-app-plist' value."
+ mastodon--client-app-plist)
+
(defun mastodon--register-and-return-client-app ()
"Register `mastodon' with an instance. Return `mastodon--client-app-plist'."
(if (mastodon-auth--client-app-secret-p)
- mastodon--client-app-plist
+ (mastodon-auth--client)
(progn
(mastodon--register-client-app)
(sleep-for 2)