Output jq errors to a separate buffer

1 files changed, 13 insertions, 2 deletions

diff --git a/lisp/init-javascript.el b/lisp/init-javascript.el
index 4cbed8a..0a8d0f3 100644
--- a/lisp/init-javascript.el
+++ b/lisp/init-javascript.el
@@ -12,8 +12,19 @@
 (defun jq-reformat-region (begin end)
   (interactive "r")
   (if (executable-find "jq")
-      (shell-command-on-region
-       begin end "jq --monochrome-output --ascii-output ." (current-buffer) t)
+      (let* ((tmpfile (make-temp-file "jq"))
+             (errbuf (get-buffer-create "*jq errors*"))
+             (success (zerop (call-process-region begin end "jq" nil
+                                                  `((:file ,tmpfile) ,tmpfile)
+                                                  nil "--monochrome-output"
+                                                  "--ascii-output" ".")))
+             (resbuf (if success (current-buffer) errbuf)))
+        (with-current-buffer resbuf
+          (insert-file-contents tmpfile nil nil nil t))
+        (if success
+            (kill-buffer errbuf)
+          (message "Failed to reformat JSON. Check errors for details"))
+        (delete-file tmpfile))
     (message "Could not find jq in PATH.")))
 
 (defun jq-reformat ()