[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/graphql-mode 3e27ae34cd 115/122: Remember parent buffer &
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/graphql-mode 3e27ae34cd 115/122: Remember parent buffer & set g-e-h locally therein |
Date: |
Sat, 29 Jan 2022 08:03:40 -0500 (EST) |
branch: elpa/graphql-mode
commit 3e27ae34cd2972d8a26a85b99ff71fd88ed02a1b
Author: Aleksandar Dimitrov <git@aleks.bg>
Commit: Aleksandar Dimitrov <git@aleks.bg>
Remember parent buffer & set g-e-h locally therein
---
graphql-mode.el | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/graphql-mode.el b/graphql-mode.el
index 52248336c3..9b7b846556 100644
--- a/graphql-mode.el
+++ b/graphql-mode.el
@@ -273,6 +273,9 @@ Please install it and try again."))
st)
"Syntax table for GraphQL mode.")
+(defvar-local graphql-edit-headers--parent-buffer nil)
+(put 'graphql-edit-headers--parent-buffer 'permanent-local t)
+
(defun graphql-indent-line ()
"Indent GraphQL schema language."
@@ -400,9 +403,11 @@ when sending a request."
(interactive)
(unless (equal major-mode 'graphql-mode)
(error "Not in graphql-mode, cannot edit headers"))
- (let ((extra-headers-buffer
- (concat "*Graphql Headers for " (buffer-name) "*")))
- (pop-to-buffer extra-headers-buffer)
+ (let ((extra-headers-buffer-name
+ (concat "*Graphql Headers for " (buffer-name) "*"))
+ (parent-buffer (current-buffer)))
+ (pop-to-buffer extra-headers-buffer-name)
+ (setq-local graphql-edit-headers--parent-buffer parent-buffer)
(if (and (string-empty-p (buffer-string)) graphql-extra-headers)
(progn
(insert (json-encode graphql-extra-headers))
@@ -420,7 +425,9 @@ when sending a request."
"Accept buffer contents and write to `graphql-extra-headers'."
(interactive)
(unless (graphql-edit-headers-buffer-p) (error "Not in a GraphQL headers
buffer"))
- (setq graphql-extra-headers (json-read-from-string (buffer-string)))
+ (let ((new-headers (json-read-from-string (buffer-string))))
+ (with-current-buffer graphql-edit-headers--parent-buffer
+ (setq-local graphql-extra-headers new-headers)))
(quit-window 'kill-buffer))
(defun graphql-edit-headers-abort ()
- [nongnu] elpa/graphql-mode f1be68cea4 108/122: Add key binding for editing headers, (continued)
- [nongnu] elpa/graphql-mode f1be68cea4 108/122: Add key binding for editing headers, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 3cbaa5ef35 041/122: Add multiple queries definition and variables support, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 4c942986fa 086/122: Also insert response headers in the buffer (with comment face), ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 6f6b303af4 084/122: Merge pull request #24 from Malabarba/master, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 301a218674 090/122: Enable json-mode for the output buffer., ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode fb84a08434 069/122: Make the dependency on request optional, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode e757919fe3 093/122: Merge pull request #30 from conao3/fix-warning, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 2371316a75 116/122: Merge pull request #42 from adimit/headers-buffer, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode c176b16a41 112/122: Fix header line documentation, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 942d3c739a 113/122: Fix typo in key binding, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 3e27ae34cd 115/122: Remember parent buffer & set g-e-h locally therein,
ELPA Syncer <=
- [nongnu] elpa/graphql-mode d9d3bba569 088/122: added support for 'extend', 'scalar' and 'union' keywords, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode fe8d7e2db5 117/122: Add version attribute to package header, ELPA Syncer, 2022/01/29
- [nongnu] elpa/graphql-mode 6308d80a2c 121/122: Update parameter regex to match graphql standard, ELPA Syncer, 2022/01/29