[nongnu] elpa/graphql-mode 22cb9d4594 071/122: Support customizing the headers sent with the request

[ELPA Syncer]

branch: elpa/graphql-mode
commit 22cb9d4594fe0e2edff605a1ab144aec41a227af
Author: Chris Bowdon <chris.bowdon@polecat.com>
Commit: Chris Bowdon <chris.bowdon@polecat.com>

    Support customizing the headers sent with the request
    
    This is to allow for talking to endpoints that speak something other
    than JSON and authenticated endpoints.
---
 graphql-mode.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/graphql-mode.el b/graphql-mode.el
index 38b72275b5..5387c3c9fc 100644
--- a/graphql-mode.el
+++ b/graphql-mode.el
@@ -67,6 +67,12 @@
   :type 'file
   :group 'graphql)
 
+(defcustom graphql-headers '(("Content-Type" . "application/json"))
+  "Headers to send to the graphql endpoint."
+  :tag "GraphQL"
+  :type 'list
+  :group 'graphql)
+
 (defun graphql-encode-json (query &optional operation variables)
   "Put together a json like object with QUERY, OPERATION, and VARIABLES."
   (let* ((body '()))
@@ -106,7 +112,7 @@ Please install it and try again."))
                    url
                     :type "POST"
                     :data body
-                    :headers '(("Content-Type" . "application/json"))
+                    :headers graphql-headers
                     :parser 'json-read
                     :sync t
                     :complete (lambda (&rest _)