Re: creating 6 balanced windows in a single command

[TheFlyingDutchman]

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)