[英]emacs compile buffer auto close?
I want to auto close the compile buffer when there is no error and no warning,but i want to show it when there is warnings.我想在没有错误和警告时自动关闭编译缓冲区,但我想在有警告时显示它。 Anyone can help me?
任何人都可以帮助我吗? This code from emacswiki only do the first requirement.
来自emacswiki的这段代码只满足第一个要求。 How to change it?
如何改变它?
;; Helper for compilation. Close the compilation window if
;; there was no error at all.
(defun compilation-exit-autoclose (status code msg)
;; If M-x compile exists with a 0
(when (and (eq status 'exit) (zerop code))
;; then bury the *compilation* buffer, so that C-x b doesn't go there
(bury-buffer)
;; and delete the *compilation* window
(delete-window (get-buffer-window (get-buffer "*compilation*"))))
;; Always return the anticipated result of compilation-exit-message-function
(cons msg code))
;; Specify my function (maybe I should have done a lambda function)
(setq compilation-exit-message-function 'compilation-exit-autoclose)
I use the following for compilation. 我使用以下内容进行编译。 It keeps the compilation buffer if there are warnings or errors, and buries it otherwise (after 1 second).
如果有警告或错误,它会保留编译缓冲区,否则会将其隐藏(1秒后)。
(defun bury-compile-buffer-if-successful (buffer string)
"Bury a compilation buffer if succeeded without warnings "
(when (and
(buffer-live-p buffer)
(string-match "compilation" (buffer-name buffer))
(string-match "finished" string)
(not
(with-current-buffer buffer
(goto-char (point-min))
(search-forward "warning" nil t))))
(run-with-timer 1 nil
(lambda (buf)
(bury-buffer buf)
(switch-to-prev-buffer (get-buffer-window buf) 'kill))
buffer)))
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful)
jpkotta, it does work most of the times. jpkotta,它确实在大多数时间都有效。 Sometimes, even if there is a warning, it doesn't switch to compilation buffer.
有时,即使有警告,也不会切换到编译缓冲区。 So I made a change to your form & it does work now:
所以我对你的表单进行了更改,现在它确实有效:
(defun bury-compile-buffer-if-successful (buffer string)
"Bury a compilation buffer if succeeded without warnings "
(if (and
(string-match "compilation" (buffer-name buffer))
(string-match "finished" string)
(not
(with-current-buffer buffer
**(goto-char 1)**
(search-forward "warning" nil t))))
(run-with-timer 1 nil
(lambda (buf)
(bury-buffer buf)
(switch-to-prev-buffer (get-buffer-window buf) 'kill))
buffer)))
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful)
I've tweaked above answers with better logic and tested it, working perfectly:我已经用更好的逻辑调整了上面的答案并对其进行了测试,效果很好:
(add-hook 'compilation-start-hook 'compilation-started)
(add-hook 'compilation-finish-functions 'hide-compile-buffer-if-successful)
Mx customize-variable RET auto-hide-compile-buffer-delay
):Mx customize-variable RET auto-hide-compile-buffer-delay
): (defcustom auto-hide-compile-buffer-delay 0
"Time in seconds before auto hiding compile buffer."
:group 'compilation
:type 'number
)
compilation-num-*
for warnings and errors count in compilation buffer:compilation-num-*
计算编译缓冲区中的警告和错误: (defun hide-compile-buffer-if-successful (buffer string)
(setq compilation-total-time (time-subtract nil compilation-start-time))
(setq time-str (concat " (Time: " (format-time-string "%s.%3N" compilation-total-time) "s)"))
(if
(with-current-buffer buffer
(setq warnings (eval compilation-num-warnings-found))
(setq warnings-str (concat " (Warnings: " (number-to-string warnings) ")"))
(setq errors (eval compilation-num-errors-found))
(if (eq errors 0) nil t)
)
;;If Errors then
(message (concat "Compiled with Errors" warnings-str time-str))
;;If Compiled Successfully or with Warnings then
(progn
(bury-buffer buffer)
(run-with-timer auto-hide-compile-buffer-delay nil 'delete-window (get-buffer-window buffer 'visible))
(message (concat "Compiled Successfully" warnings-str time-str))
)
)
)
(make-variable-buffer-local 'compilation-start-time)
(defun compilation-started (proc)
(setq compilation-start-time (current-time))
)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.