branch: elpa/graphql-mode
commit 22cb9d4594fe0e2edff605a1ab144aec41a227af
Author: Chris Bowdon <[email protected]>
Commit: Chris Bowdon <[email protected]>
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 _)
