ysph.el

(defun center-as-central-window ()
  "three windows with a large center window"
  (interactive)
  (delete-other-windows)
  (split-window-horizontally)(split-window-horizontally)
  (other-window 2)
  (split-window-horizontally)
  (delete-windows-for)
  (other-window 2))

(defun read-wide ()
  "center buffer between empty margins"
  (interactive)
  (center-as-central-window)
  (let ((lb (get-buffer-create "left-marg"))
        (rb (get-buffer-create "right-marg")))
    (other-window -1)
    (switch-to-buffer lb)
    (other-window -1)
    (switch-to-buffer rb)
    (other-window -1)))