[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: creating 6 balanced windows in a single command
From: |
Terrence Brannon |
Subject: |
Re: creating 6 balanced windows in a single command |
Date: |
Wed, 08 Dec 2010 15:19:48 -0000 |
User-agent: |
G2/1.0 |
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)