ghub-fetch-{repository,issue,pullreq}: Add headers argument

Signed-off-by: Julien Masson <[email protected]>
magit · Apr 15, 2020 · fc8a400 · fc8a400
1 parent a8bf337
commit fc8a400
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/ghub-graphql.el b/ghub-graphql.el
@@ -162,7 +162,8 @@ behave as for `ghub-request' (which see)."
 
 (cl-defun ghub-fetch-repository (owner name callback
                                        &optional until
-                                       &key username auth host forge errorback)
+                                       &key username auth host forge
+                                       headers errorback)
   "Asynchronously fetch forge data about the specified repository.
 Once all data has been collected, CALLBACK is called with the
 data as the only argument."
@@ -175,11 +176,13 @@ data as the only argument."
                         :auth     auth
                         :host     host
                         :forge    forge
+                        :headers  headers
                         :errorback errorback))
 
 (cl-defun ghub-fetch-issue (owner name number callback
                                   &optional until
-                                  &key username auth host forge errorback)
+                                  &key username auth host forge
+                                  headers errorback)
   "Asynchronously fetch forge data about the specified issue.
 Once all data has been collected, CALLBACK is called with the
 data as the only argument."
@@ -194,11 +197,13 @@ data as the only argument."
                         :auth     auth
                         :host     host
                         :forge    forge
+                        :headers  headers
                         :errorback errorback))
 
 (cl-defun ghub-fetch-pullreq (owner name number callback
                                     &optional until
-                                    &key username auth host forge errorback)
+                                    &key username auth host forge
+                                    headers errorback)
   "Asynchronously fetch forge data about the specified pull-request.
 Once all data has been collected, CALLBACK is called with the
 data as the only argument."
@@ -213,6 +218,7 @@ data as the only argument."
                         :auth     auth
                         :host     host
                         :forge    forge
+                        :headers  headers
                         :errorback errorback))
 
 ;;; Internal
@@ -231,7 +237,7 @@ data as the only argument."
 (cl-defun ghub--graphql-vacuum (query variables callback
                                       &optional until
                                       &key narrow username auth host forge
-                                      errorback)
+                                      headers errorback)
   "Make a GraphQL request using QUERY and VARIABLES.
 See Info node `(ghub)GraphQL Support'."
   (unless host
@@ -246,7 +252,7 @@ See Info node `(ghub)GraphQL Support'."
                             (substring host 0 -3)
                           host)))
     :method    "POST"
-    :headers   (ghub--headers nil host auth username forge)
+    :headers   (ghub--headers headers host auth username forge)
     :handler   'ghub--graphql-handle-response
     :query     query
     :variables variables