emacs: Close compilation buffer on success

.emacs.d/init.el

@@ -271,6 +271,8 @@
  'display-buffer-alist
  '("^\\*magit: .*\\*$" . ((display-buffer-same-window . nil))))
 
+(add-to-list 'compilation-finish-functions 'ext:comp-finish-function)
+
 (blink-cursor-mode -1)
 (column-number-mode -1)
 (line-number-mode -1)

.emacs.d/site-lisp/ext.el

@@ -38,6 +38,15 @@
                                                     buffer-file-name))))
     (list "pycheck.sh" (list local-file))))
 
+(defun ext:comp-finish-function (buf str)
+  "Don't show  compilation window if everything went ok"
+  (if (string-match "exited abnormally" str)
+      ;; there were errors
+      (message "compilation errors, press C-x ` to visit")
+    ;; no errors, make the compilation window go away in 0.5 seconds
+    (run-at-time 0.5 nil 'delete-windows-on buf)
+    (message "No compilation errors!")))
+
 (defun ext:reload-buffer ()
   "Reload current buffer."
   (interactive)