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

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

[nongnu] elpa/zig-mode 6309295 069/104: Hide the *zig-fmt* window when f


From: ELPA Syncer
Subject: [nongnu] elpa/zig-mode 6309295 069/104: Hide the *zig-fmt* window when formatting succeeds again
Date: Sun, 29 Aug 2021 11:37:04 -0400 (EDT)

branch: elpa/zig-mode
commit 63092951499cc45ffacd65fe7c1603af3e6d5c37
Author: joachimschmidt557 <joachim.schmidt557@outlook.com>
Commit: joachimschmidt557 <joachim.schmidt557@outlook.com>

    Hide the *zig-fmt* window when formatting succeeds again
    
    This prevents the slightly annoying event that the buffer
    inadvertently gets split after zig fmt succeeds.
---
 zig-mode.el | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/zig-mode.el b/zig-mode.el
index f3b4c14..23688f5 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]