[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Add oauth2 customize group (resolve FIXME)
From: |
Julien Danjou |
Subject: |
Re: Add oauth2 customize group (resolve FIXME) |
Date: |
Fri, 19 Feb 2021 11:17:08 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.1 (darwin) |
On Fri, Feb 19 2021, Naoya Yamashita wrote:
Thanks Naoya.
I pushed your change.
> Hi, thanks for maintaining such a great project!
>
> I find oauth2 ELPA package and also find a easy FIXME comment.
> This patch add a new group and changed all customization
> variables to belong to it.
>
> Regards,
> Naoya
>
> From b6619724abc1f268eb3b68bc9077f899f9d70bea Mon Sep 17 00:00:00 2001
> From: Naoya Yamashita <conao3@gmail.com>
> Date: Fri, 19 Feb 2021 09:56:48 +0900
> Subject: [PATCH] * packages/oauth2/oauth2.el: Add oauth2 group and use it
>
> (oauth2): New group.
> (oauth2-token-file): Belongs to it.
> ---
> oauth2.el | 9 +++++++--
> 1 file changed, 7 insertions(+), 2 deletions(-)
>
> diff --git a/oauth2.el b/oauth2.el
> index 43c4e9e4d4..43e48c1dbe 100644
> --- a/oauth2.el
> +++ b/oauth2.el
> @@ -47,6 +47,12 @@
> (defvar url-callback-arguments)
> (defvar url-callback-function)
>
> +(defgroup oauth2 nil
> + "OAuth 2.0 Authorization Protocol."
> + :group 'comm
> + :link '(url-link :tag "Savannah"
> "http://git.savannah.gnu.org/cgit/emacs/elpa.git/tree/?h=externals/oauth2")
> + :link '(url-link :tag "ELPA" "https://elpa.gnu.org/packages/oauth2.html"))
> +
> (defun oauth2-request-authorization (auth-url client-id &optional scope
> state redirect-uri)
> "Request OAuth authorization at AUTH-URL by launching `browse-url'.
> CLIENT-ID is the client id provided by the provider.
> @@ -149,8 +155,7 @@ TOKEN should be obtained with `oauth2-request-access'."
>
> (defcustom oauth2-token-file (concat user-emacs-directory "oauth2.plstore")
> "File path where store OAuth tokens."
> - ;; FIXME: This var doesn't belong to any group. Either add it to some
> - ;; pre-existing group or create an `oauth2' group for it.
> + :group 'oauth2
> :type 'file)
>
> (defun oauth2-compute-id (auth-url token-url scope)
--
Julien Danjou
/* Free Software hacker
https://julien.danjou.info */