ericcrosson / bury-successful-compilation Goto Github PK

(defun bury-successful-compilation-buffer (buffer string)
  "Bury the compilation BUFFER after a successful compile.
  Argument STRING provided by compilation hooks."
  (setq bury-successful-compilation-save-windows
	    (and
         (-reduce (lambda (x y) (or x y)) (mapcar (lambda (should-match)
                                                    (string-match should-match (buffer-name)))
                                                  '("\\\\*pytest-" "compilation")))
	     (string-match "finished" string)
	     (not (search-forward "warning" nil t))))
  (when bury-successful-compilation-save-windows
    (ignore-errors
      (jump-to-register
       bury-successful-compilation-precompile-window-state))
    (message "Compilation successful.")))