quattro.el

;; La bella vita di quattro finestre
(global-set-key "\C-col" 'windmove-left)
(global-set-key "\C-cor" 'windmove-right)
(global-set-key "\C-cou" 'windmove-up)
(global-set-key "\C-cod" 'windmove-down)
(global-set-key "\C-cow" 'ido-jump-to-window)
(defun windmove-opposite () (interactive)
  (if (windmove-find-other-window 'up) (windmove-up) (windmove-down))
  (if (windmove-find-other-window 'right) (windmove-right)(windmove-left)))
(global-set-key "\C-coo" 'windmove-opposite)

(defun quattro () (interactive)
  (delete-other-windows)
  (split-window-below)
  (split-window-right)
  (windmove-down)
  (split-window-right)
  (next-buffer)
  (other-window 1)
  (next-buffer)
  (other-window 1)
  (next-buffer)
)
(global-set-key "\C-co4" 'quattro)
(defun due  () (interactive)
  (delete-other-windows)
  (split-window-below)
  (next-buffer))

(global-set-key "\C-co2" 'due)