[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r238: oauth2: store access-reponse, bum
From: |
Julien Danjou |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r238: oauth2: store access-reponse, bump versino to 0.7 |
Date: |
Tue, 03 Jul 2012 16:18:21 +0200 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 238
committer: Julien Danjou <address@hidden>
branch nick: elpa
timestamp: Tue 2012-07-03 16:18:21 +0200
message:
oauth2: store access-reponse, bump versino to 0.7
modified:
packages/oauth2/oauth2.el
=== modified file 'packages/oauth2/oauth2.el'
--- a/packages/oauth2/oauth2.el 2012-06-25 08:45:57 +0000
+++ b/packages/oauth2/oauth2.el 2012-07-03 14:18:21 +0000
@@ -3,7 +3,7 @@
;; Copyright (C) 2011-2012 Free Software Foundation, Inc
;; Author: Julien Danjou <address@hidden>
-;; Version: 0.6
+;; Version: 0.7
;; Keywords: comm
;; This file is part of GNU Emacs.
@@ -75,7 +75,8 @@
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.
@@ -95,7 +96,8 @@
: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)
@@ -116,7 +118,10 @@
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)
@@ -157,7 +162,8 @@
: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
@@ -166,7 +172,9 @@
(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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r238: oauth2: store access-reponse, bump versino to 0.7,
Julien Danjou <=