summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--init.org24
1 files changed, 14 insertions, 10 deletions
diff --git a/init.org b/init.org
index 3f3bc06..8333a57 100644
--- a/init.org
+++ b/init.org
@@ -608,6 +608,20 @@ Enable =winner-mode=.
(winner-mode 1)
#+end_src
+*** Close =*compilation*= on success
+
+#+begin_src emacs-lisp
+(setq compilation-exit-message-function
+ (lambda (status code msg)
+ "Close the compilation window if successful."
+ ;; if M-x compile exits with 0
+ (when (and (eq status 'exit) (zerop code))
+ (bury-buffer)
+ (delete-window (get-buffer-window (get-buffer "*compilation*"))))
+ ;; return the result of compilation-exit-message-function
+ (cons msg code)))
+#+end_src
+
** Bindings
#+begin_src emacs-lisp
@@ -712,16 +726,6 @@ file.
(add-to-list
'safe-local-variable-values
'(eval add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local))
-
-(setq compilation-exit-message-function
- (lambda (status code msg)
- "Close the compilation window if successful."
- ;; if M-x compile exits with 0
- (when (and (eq status 'exit) (zerop code))
- (bury-buffer)
- (delete-window (get-buffer-window (get-buffer "*compilation*"))))
- ;; return the result of compilation-exit-message-function
- (cons msg code)))
#+end_src
*** [[https://magit.vc/][Magit]]