feat: display compile buffer on error

init.org

@@ -2097,6 +2097,25 @@ nothing happens."
  (progn (make-local-variable 'after-save-hook)
  (add-hook 'after-save-hook 'compile-on-save-start nil t))
  (kill-local-variable 'after-save-hook)))
+
+ (defun compile-exit-message-manage-buffer (status code msg)
+ (let ((compilation-window
+ (get-buffer-window "*compilation*")))
+ (cond
+ ;; If compilation failed and compilation buffer is not visible,
+ ((and (eq status 'exit)
+ (not (zerop code))
+ (not compilation-window))
+ ;; display that buffer.
+ (display-buffer "*compilation*"))
+ ;; If compilation succeeded and compilation buffer is visible,
+ ((and (eq status 'exit)
+ (zerop code)
+ compilation-window)
+ ;; bury that buffer.
+ (with-selected-window compilation-window
+ (bury-buffer)))))
+ (cons msg code))
  :general
  (:keymaps
  'global
@@ -2110,6 +2129,8 @@ nothing happens."
  (setq compilation-ask-about-save nil)
  (setq compilation-scroll-output t)
 
+ (setq compilation-exit-message-function #'compile-exit-message-manage-buffer)
+
  (put 'compile-command 'safe-local-variable 'stringp))
 
 (make-variable-buffer-local 'compile-command)