我想实现编译缓冲区自动折叠到小尺寸(但不能在删除窗口关闭),这样成功编译到窗口后缩小到最小尺寸。
get-buffer-create
返回一个缓冲区。如何在与该缓冲区关联的窗口上shrink-window
?还有,有办法存储以前的窗口大小吗?
这是我第一次涉足emacs lisp编程,感谢您的帮助。
答案 0 :(得分:8)
我相信有两种方法可以解决这个问题。
第一种是使用钩子''compilation-finish-functions',它 是:
[编译过程完成时要调用的f]列表。 每个函数都使用两个参数调用:编译缓冲区, 以及描述过程如何完成的字符串。
这导致了这样的解决方案:
(add-hook 'compilation-finish-functions 'my-compilation-finish-function)
(defun my-compilation-finish-function (buffer resstring)
"Shrink the window if the process finished successfully."
(let ((compilation-window-height (if (string-match-p "finished" resstring) 5 nil)))
(compilation-set-window-height (get-buffer-window buffer 0))))
我对该解决方案的唯一问题是它假设可以通过在结果字符串中找到字符串“finished”来确定成功。
另一种选择是建议'compilation-handle-exit
- 哪个
明确地传递退出状态。我写了这个建议
退出状态为非零时收缩窗口。
(defadvice compilation-handle-exit (around my-compilation-handle-exit-shrink-height activate)
(let ((compilation-window-height (if (zerop (car (ad-get-args 1))) 5 nil)))
(compilation-set-window-height (get-buffer-window (current-buffer) 0))
ad-do-it))
注意:如果在进行第二次编译时*compilation*
窗口仍然可见,则在失败时不会调整大小。如果您希望调整其大小,则需要指定高度而不是nil
。也许这是你喜欢的(改变第一个例子):
(if (string-match-p "finished" resstring) 5 (/ (frame-height) 2))
nil
替换为(/ (frame-height) 2)