Skip to content

Instantly share code, notes, and snippets.

@pnf pnf/quattro.el
Created Mar 30, 2016

Embed
What would you like to do?
;; 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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.