;; Copyright (C) 2011-2012 Free Software Foundation, Inc
;; Author: Julien Danjou <julien@danjou.info>
;; Copyright (C) 2011-2012 Free Software Foundation, Inc
;; Author: Julien Danjou <julien@danjou.info>
(defun oauth2-request-access (token-url client-id client-secret code &optional redirect-uri)
"Request OAuth access at TOKEN-URL.
(defun oauth2-request-access (token-url client-id client-secret code &optional redirect-uri)
"Request OAuth access at TOKEN-URL.
:client-secret client-secret
:access-token (cdr (assoc 'access_token result))
:refresh-token (cdr (assoc 'refresh_token result))
:client-secret client-secret
:access-token (cdr (assoc 'access_token result))
:refresh-token (cdr (assoc 'refresh_token result))
- ,(oauth2-token-refresh-token token)))
+ ,(oauth2-token-refresh-token token)
+ :access-response
+ ,(oauth2-token-access-response token)
+ ))
:client-secret client-secret
:access-token (plist-get plist :access-token)
:refresh-token (plist-get plist :refresh-token)
:client-secret client-secret
:access-token (plist-get plist :access-token)
:refresh-token (plist-get plist :refresh-token)
(let ((token (oauth2-auth auth-url token-url
client-id client-secret resource-url nil redirect-uri)))
;; Set the plstore
(let ((token (oauth2-auth auth-url token-url
client-id client-secret resource-url nil redirect-uri)))
;; Set the plstore
(plstore-put plstore id nil `(:access-token
,(oauth2-token-access-token token)
:refresh-token
(plstore-put plstore id nil `(:access-token
,(oauth2-token-access-token token)
:refresh-token
- ,(oauth2-token-refresh-token token)))
+ ,(oauth2-token-refresh-token token)
+ :access-response
+ ,(oauth2-token-access-response token)))