[nongnu] elpa/graphql-mode 03312c9f1c 045/122: add variables file support

[ELPA Syncer]

branch: elpa/graphql-mode
commit 03312c9f1c2e2595c2cd8fede564c6dd71a93290
Author: Tim Shiu <punshiu@fb.com>
Commit: Tim Shiu <punshiu@fb.com>

    add variables file support
---
 graphql-mode.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/graphql-mode.el b/graphql-mode.el
index 79d62df168..14e5cde434 100644
--- a/graphql-mode.el
+++ b/graphql-mode.el
@@ -62,6 +62,12 @@
   :type 'string
   :group 'graphql)
 
+(defcustom graphql-variables nil
+  "file name containing graphql variables."
+  :tag "GraphQL"
+  :type 'file
+  :group 'graphql)
+
 (defun graphql--query (query operation variables)
   "Send QUERY to the server at `graphql-url' and return the
 response from the server."
@@ -128,18 +134,19 @@ response from the server."
     (if (string-equal first "{")
         nil
       (replace-regexp-in-string "[({].*" "" (nth 1 tokens)))))
- 
-(defun graphql-current-variables ()
+
+(defun graphql-current-variables (filename)
   "get the content of graphql variables from a file"
-  nil)
+  (json-encode (json-read-file filename)))
 
 (defun graphql-send-query ()
   (interactive)
-  (let ((url (or graphql-url (read-string "GraphQL URL: " ))))
+  (let* ((url (or graphql-url (read-string "GraphQL URL: " )))
+         (var (or graphql-variables (read-file-name "Variables File: "))))
     (let ((graphql-url url))
       (let* ((query (buffer-substring-no-properties (point-min) (point-max)))
              (operation (graphql-current-operation))
-             (variables (graphql-current-variables))
+             (variables (graphql-current-variables var))
              (response (graphql--query query operation variables)))
         (with-current-buffer-window
          "*GraphQL*" 'display-buffer-pop-up-window nil
@@ -152,6 +159,7 @@ response from the server."
     ;; in the current buffer (instead of the introduced local
     ;; binding).
     (setq graphql-url url)
+    (setq graphql-variables var)
     nil))
 
 (defvar graphql-mode-map
@@ -240,7 +248,7 @@ response from the server."
     (,graphql-definition-regex
      (1 font-lock-keyword-face)
      (2 font-lock-function-name-face))
-    
+
     ;; Constants
     (,(regexp-opt graphql-constants) . font-lock-constant-face)