branch: elpa/graphql-mode
commit 301d2419a012e8e7299e26b992a8aa4453ee1b3f
Author: David Vazquez Pua <[email protected]>
Commit: David Vazquez Pua <[email protected]>
Prompt the user for the GraphQL
If graphql-url is not set, prompt the user to set the value the first
time that a query is about to be evaluated.
---
graphql.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/graphql.el b/graphql.el
index d9b920e815..b4f031f074 100644
--- a/graphql.el
+++ b/graphql.el
@@ -29,8 +29,7 @@
(require 'url)
(defvar graphql-url
- "http://graphql-swapi.parseapp.com";)
-
+ nil)
(defun graphql--query (query)
"Send QUERY to the server at `graphql-url' and return the
@@ -72,9 +71,11 @@ response from the server."
(defun graphql-send-query ()
(interactive)
+ (unless graphql-url
+ (setq graphql-url (read-string "GraphQL URL: " )))
(let* ((query (graphql-current-query))
(response (graphql--query query)))
- (with-current-buffer-window
+ (with-current-buffer-window
"*GraphQL*" 'display-buffer-pop-up-window nil
(erase-buffer)
(json-mode)
@@ -149,6 +150,7 @@ response from the server."
(define-derived-mode graphql-mode prog-mode "GraphQL"
""
+ (make-variable-buffer-local 'graphql-url)
(setq-local comment-start "# ")
(setq-local comment-start-skip "#+[\t ]*")
(setq-local indent-line-function 'graphql-indent-line)
