[elpa] externals/url-http-oauth-demo bcbea4d8ef 06/13: Change scope handling

[Thomas Fitzsimmons]

branch: externals/url-http-oauth-demo
commit bcbea4d8efd5c2ab298a1cde1f14bf07be9c6aa6
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Change scope handling
    
    * url-http-oauth-demo.el: Add scope argument to interpose call.
    (url-http-oauth-demo-get-profile-name): Remove explicit scope
    handling.
---
 url-http-oauth-demo.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/url-http-oauth-demo.el b/url-http-oauth-demo.el
index b86563d2b9..890641e207 100644
--- a/url-http-oauth-demo.el
+++ b/url-http-oauth-demo.el
@@ -118,6 +118,9 @@
  ;; or by the Emacs library developer, at
  ;; "https://meta.sr.ht/oauth2/client-registration";.
  "107ba4a9-2a96-4420-8818-84ec1f112405"
+ ;; This is the list of features to which Emacs is requesting the
+ ;; server grant it access.
+ "meta.sr.ht/PROFILE:RO"
  ;; This is the client secret, which will be generated as part of
  ;; client registration, at
  ;; "https://meta.sr.ht/oauth2/client-registration";.  If the user
@@ -145,16 +148,12 @@ Print the result to *Messages*.  Return the name."
     (with-current-buffer
         (url-retrieve-synchronously
          (url-parse-make-urlobj
-          "https"             ; type
-          "fitzsim"           ; user
-          nil                 ; password, resolved by url-http-oauth
-          "meta.sr.ht"        ; host
-          443                 ; port
-          (concat "/query"    ; path
-                  "?"         ; scope:
-                  (url-build-query-string
-                   (list
-                    (list "scope" "meta.sr.ht/PROFILE:RO"))))
+          "https"      ; type
+          "fitzsim"    ; user
+          nil          ; password, resolved by url-http-oauth
+          "meta.sr.ht" ; host
+          443          ; port
+          "/query"     ; path
           nil nil t))
       (goto-char (point-min))
       (re-search-forward "\n\n")