aboutsummaryrefslogtreecommitdiff
path: root/sx-auth.el
diff options
context:
space:
mode:
authorSean Allred <code@seanallred.com>2014-11-20 21:24:19 -0600
committerSean Allred <code@seanallred.com>2014-11-20 21:24:19 -0600
commit1dfd91e7373160854eeb85582598e6c8cc1b3561 (patch)
treec7050cf510f00ea005b76395ff07064ec04bbef0 /sx-auth.el
parent681319aeb250a83d982d1e3e02264a7af0ae4120 (diff)
parentfd6b8111a13c042e5d0f2f3b689043c394c6e52d (diff)
Merge pull request #77 from vermiculus/documentation
Documentation
Diffstat (limited to 'sx-auth.el')
-rw-r--r--sx-auth.el27
1 files changed, 22 insertions, 5 deletions
diff --git a/sx-auth.el b/sx-auth.el
index b470523..14453ac 100644
--- a/sx-auth.el
+++ b/sx-auth.el
@@ -19,8 +19,6 @@
;;; Commentary:
-;;
-
;;; Code:
(require 'sx)
@@ -36,17 +34,34 @@
(defvar sx-auth-access-token
nil
"Your access token.
-
This is needed to use your account to write questions, make
comments, and read your inbox. Do not alter this unless you know
what you are doing!")
(defun sx-auth-authenticate ()
"Authenticate this application.
-
Authentication is required to read your personal data (such as
notifications) and to write with the API (asking and answering
-questions)."
+questions).
+
+When this function is called, `browse-url' is used to send the
+user to an authorization page managed by StackExchange. The
+following privileges are requested:
+
+* read_inbox
+ use SX to manage and visit items in your inbox
+
+* write_acesss
+ write comments, ask questions, and post answers on your
+ behalf
+
+* no_expiry
+ do not pester you to reauthorize again
+
+After authorization with StackExchange, the user is then
+redirected to a website managed by SX. The access token required
+to use authenticated methods is included in the hash (which is
+parsed and displayed prominently on the page)."
(interactive)
(setq
sx-auth-access-token
@@ -68,6 +83,8 @@ questions)."
(error "You must enter this code to use this client fully"))
(sx-cache-set 'auth `((access_token . ,sx-auth-access-token)))))
+(defalias 'sx-authenticate #'sx-auth-authenticate)
+
(provide 'sx-auth)
;;; sx-auth.el ends here