aboutsummaryrefslogtreecommitdiff
path: root/sx-auth.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-auth.el')
-rw-r--r--sx-auth.el19
1 files changed, 9 insertions, 10 deletions
diff --git a/sx-auth.el b/sx-auth.el
index 049827d..7912508 100644
--- a/sx-auth.el
+++ b/sx-auth.el
@@ -50,16 +50,15 @@ questions)."
(interactive)
(setq
sx-auth-access-token
- (let* ((sx-request-api-root sx-auth-root)
- (url (sx-request--build
- "dialog"
- `((client_id . ,sx-auth-client-id)
- (scope . (read_inbox
- no_expiry
- write_access))
- (redirect_uri . ,(url-hexify-string
- sx-auth-redirect-uri)))
- ",")))
+ (let ((url (sx-request-build
+ "dialog"
+ `((client_id . ,sx-auth-client-id)
+ (scope . (read_inbox
+ no_expiry
+ write_access))
+ (redirect_uri . ,(url-hexify-string
+ sx-auth-redirect-uri)))
+ "," sx-auth-root)))
(browse-url url)
(read-string "Enter the access token displayed on the webpage: ")))
(if (string-equal "" sx-auth-access-token)