Re: creating 6 balanced windows in a single command

[Terrence Brannon]

Commited - 
http://github.com/metaperl/emacs/blob/master/init/init-window-system.el#L14

Thank you!

On Jul 21, 12:13 am, TheFlyingDutchman <zzbba...@aol.com> wrote:
> In looking over the function one next-window looked unnecessary and
> the other didn't seem correct (even though it worked for me).  This
> still works for me with them removed:
>
> ; close any other open windows and then
> ; divide the current active window into six similar sized windows
> (defun MakeSixWindows ()
>   (interactive)
>   (delete-other-windows)
>   (split-window-vertically)
>   (setq windowColumns
>     (let ((edges (window-edges))) (- (nth 2 edges) (nth 0 edges))) )
>   (split-window-horizontally (round (* windowColumns 0.66)))
>   (split-window-horizontally)
>   (previous-multiframe-window)
>   (split-window-horizontally (round (* windowColumns 0.66)))
>   (split-window-horizontally)
> )
>
> ; run MakeSixWindows function by pressing the F8 key
> (global-set-key (kbd "<f8>") 'MakeSixWindows)