;; Copyright (C) 2011-2012 Free Software Foundation, Inc
;; Author: Julien Danjou <julien@danjou.info>
-;; Version: 0.6
+;; Version: 0.8
;; Keywords: comm
;; This file is part of GNU Emacs.
;;; Code:
+(require 'cl)
(require 'plstore)
(require 'json)
client-secret
access-token
refresh-token
- token-url)
+ token-url
+ access-response)
(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))
- :token-url token-url))))
+ :token-url token-url
+ :access-response result))))
;;;###autoload
(defun oauth2-refresh-access (token)
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)
+ ))
(plstore-save plstore)))
token)
:client-secret client-secret
:access-token (plist-get plist :access-token)
:refresh-token (plist-get plist :refresh-token)
- :token-url token-url)
+ :token-url token-url
+ :access-response (plist-get plist :access-response))
(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
- ,(oauth2-token-refresh-token token)))
+ ,(oauth2-token-refresh-token token)
+ :access-response
+ ,(oauth2-token-access-response token)))
(plstore-save plstore)
token))))