how I set up my emacs windows

tom-layout.el

(defun tom-layout ()
  (interactive)
  (delete-other-windows)
  (mmd-reset-major-mode-window-dedication)

  (let (w)
    (setq w (selected-window))
    (split-window-horizontally)
    (split-window-horizontally)
    (other-window 1)
    (split-window-vertically)
    (other-window 2)
    (split-window-vertically)
    (split-window-vertically)
    (select-window w)

    (other-window 3)
    (mmd-add-major-mode-window-dedication 'Man-mode (selected-window))
    (mmd-add-major-mode-window-dedication 'help-mode (selected-window))
    (other-window 1)
    (mmd-add-major-mode-window-dedication 'ag-mode (selected-window))
    (mmd-add-major-mode-window-dedication 'occur-mode (selected-window))
    (other-window 1)    
    (mmd-add-major-mode-window-dedication 'compilation-mode (selected-window))
    ;; special-mode is the major mode for *Warnings*.
    (mmd-add-major-mode-window-dedication 'special-mode (selected-window))
    (select-window w))

  (balance-windows)
  )