[ELPA-diffs] /srv/bzr/emacs/elpa r238: oauth2: store access-reponse, bump versino to 0.7

[Julien Danjou]

------------------------------------------------------------
revno: 238
committer: Julien Danjou <jul...@danjou.info>
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 <jul...@danjou.info>
-;; 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))))