Show message when reformatting JSON

1 files changed, 8 insertions, 5 deletions

diff --git a/lisp/init-javascript.el b/lisp/init-javascript.el
index 0a8d0f3..d692851 100644
--- a/lisp/init-javascript.el
+++ b/lisp/init-javascript.el
@@ -14,15 +14,18 @@
   (if (executable-find "jq")
       (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" ".")))
+             (result (call-process-region begin end "jq" nil
+                                          `((:file ,tmpfile) ,tmpfile) nil
+                                          "--monochrome-output" "--ascii-output"
+                                          "."))
+             (success (zerop result))
              (resbuf (if success (current-buffer) errbuf)))
         (with-current-buffer resbuf
           (insert-file-contents tmpfile nil nil nil t))
         (if success
-            (kill-buffer errbuf)
+            (progn
+              (kill-buffer errbuf)
+              (message "Reformatted JSON"))
           (message "Failed to reformat JSON. Check errors for details"))
         (delete-file tmpfile))
     (message "Could not find jq in PATH.")))