balance-windows
(绑定到C-x +
以进行交互使用)。好的,这是我想到的,可能有更优雅的方法。不过这也能满足你的需求。
(defun split-windows-even-3 ()
"split into 3 evenly"
(interactive)
(save-excursion
(let ((ps (window-width)))
(split-window-horizontally (/ ps 3))
(other-window 1)
(split-window-horizontally (/ ps 3)))))
;;; ADD HOOKS to startup
;; split three
(add-hook 'emacs-startup-hook 'split-windows-even-3)
;; Fullscreen
(add-hook 'emacs-startup-hook (lambda ()
(set-frame-parameter nil 'fullscreen 'fullboth)))
更新:现在它可以在emacs23和emacs24上工作了。