emacs以编程方式更改窗口大小
我想实现编译缓冲区自动折叠到小尺寸(但不能在删除窗口关闭),这样成功编译到窗口后缩小到最小尺寸.
get-buffer-create返回一个缓冲区.如何在与该缓冲区关联的窗口上缩小窗口?还有,有没有办法存储以前的窗口大小? 这是我第一次涉足emacs lisp编程,谢谢你的帮助.
我相信有两种方法可以解决这个问题.
第一种是使用钩子”compilation-finish-functions’,它
这导致了这样的解决方案: (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”来确定成功. 另一种方法是建议’编译 – 处理 – 退出 – 哪个 (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) (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- 在Windows Server 2008上挂载ISO
- 如果设置了window.location.href,则node-webkit不会最小化到
- windows – 当接口#变化时,如何为VPN添加持久路由?
- 在Windows服务中托管WCF服务
- 模拟在Windows上弹出和插入USB驱动器
- .net – 将控制台应用程序转换为服务?
- Windows 8 GUI,以及WPF/SilverLight/WinRT/Metro/BUILD关系
- 在Windows cmd中,如何在不引用完整路径的情况下在当前目录中
- batch-file – 从DOS命令移动除某些文件(文件模式)以外的所
- windows-server-2008-r2 – 确定在Windows 2008 R2上安装功