emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/zig-mode ffaffb7 077/104: Merge pull request #31 from joac


From: ELPA Syncer
Subject: [nongnu] elpa/zig-mode ffaffb7 077/104: Merge pull request #31 from joachimschmidt557/hide-zig-fmt-window
Date: Sun, 29 Aug 2021 11:37:06 -0400 (EDT)

branch: elpa/zig-mode
commit ffaffb76c8dc9861a5ea3201b67c061744222c6e
Merge: 22187f4 6309295
Author: Andrea Orru <andrea@orru.io>
Commit: GitHub <noreply@github.com>

    Merge pull request #31 from joachimschmidt557/hide-zig-fmt-window
    
    Hide the *zig-fmt* window when formatting succeeds again
---
 zig-mode.el | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/zig-mode.el b/zig-mode.el
index 8d764b1..fbe0b5e 100644
--- a/zig-mode.el
+++ b/zig-mode.el
@@ -110,23 +110,25 @@ If given a SOURCE, execute the CMD on it."
   "Format the current buffer using the zig fmt."
   (interactive)
   (let ((fmt-buffer-name "*zig-fmt*"))
-       ;; If we have an old *zig-fmt* buffer, we want to kill
-       ;; it and start a new one to show the new errors
-       (when (get-buffer fmt-buffer-name)
-         (kill-buffer fmt-buffer-name))
-       (let ((fmt-buffer (get-buffer-create fmt-buffer-name)))
-         (set-process-sentinel
-          (start-process "zig-fmt"
-                                         fmt-buffer
-                                         zig-zig-bin
-                                         "fmt"
-                                         (buffer-file-name))
-          (lambda (process _e)
-                (if (> (process-exit-status process) 0)
-                    (progn
-                        (switch-to-buffer-other-window fmt-buffer)
-                        (compilation-mode))
-                  (revert-buffer :ignore-auto :noconfirm)))))))
+    ;; If we have an old *zig-fmt* buffer, we want to kill
+    ;; it and start a new one to show the new errors
+    (when (get-buffer fmt-buffer-name)
+      (switch-to-buffer-other-window fmt-buffer-name)
+      (quit-window)
+      (kill-buffer fmt-buffer-name))
+    (let ((fmt-buffer (get-buffer-create fmt-buffer-name)))
+      (set-process-sentinel
+       (start-process "zig-fmt"
+                      fmt-buffer
+                      zig-zig-bin
+                      "fmt"
+                      (buffer-file-name))
+       (lambda (process _e)
+         (if (> (process-exit-status process) 0)
+             (progn
+               (switch-to-buffer-other-window fmt-buffer)
+               (compilation-mode))
+           (revert-buffer :ignore-auto :noconfirm)))))))
 
 (defun zig-re-word (inner)
   "Construct a regular expression for the word INNER."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]