Re: creating 6 balanced windows in a single command

Re: creating 6 balanced windows in a single command

[Pascal J. Bourguignon]

Terrence Brannon <metaperl@gmail.com> writes:

> I thought that Emacs 23 had a single command that would create 6
> balanced windows like this:
> http://www.screencast.com/users/terrence_work/folders/Jing/media/75780bea-21e2-4e21-9bbe-1ff9eb128eca
>
> If not, I suppose I could always write the simple elisp to do it in a
> command myself.

And I though emacs had a single command that would create 6 source
files containing the program I need to write like this.

If not, I suppose I could always write the simple elisp to do it in a
command myself.

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Re: creating 6 balanced windows in a single command

[TheFlyingDutchman]

On Jul 20, 6:26 am, Terrence Brannon <metap...@gmail.com> wrote:
> I thought that Emacs 23 had a single command that would create 6
> balanced windows like this:http://www.screencast.com/users/terrence_work/folders/Jing/media/7578...
>
> If not, I suppose I could always write the simple elisp to do it in a
> command myself.

I don't know if a function already exists, but this seems to work:

; 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)
  (next-window)
  (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)))
  (next-window)
  (split-window-horizontally)
)

; run MakeSixWindows function by pressing the F8 key
(global-set-key (kbd "<f8>") 'MakeSixWindows)

Re: creating 6 balanced windows in a single command

[Terrence Brannon]

Actually this function works better when you have two monitors:

(defun MakeSixWindows ()
  (interactive)
  (delete-other-windows)
  (split-window-vertically)
  (split-window-horizontally)
  (split-window-horizontally)
  (other-window 3)
  (split-window-horizontally)
  (split-window-horizontally)
  (balance-windows)
)