emacsd-tile.el

;; emacsd-tile.el -- tiling windows for emacs
;; Sep 2010: Modified by Robin Green <[email protected]> to use modified cursor keys

(defun swap-with (dir)
  (interactive)
  (let ((other-window (windmove-find-other-window dir)))
    (when other-window
      (let* ((this-window  (selected-window))
             (this-buffer  (window-buffer this-window))
             (other-buffer (window-buffer other-window))
             (this-start   (window-start this-window))
             (other-start  (window-start other-window)))
        (set-window-buffer this-window  other-buffer)
        (set-window-buffer other-window this-buffer)
        (set-window-start  this-window  other-start)
        (set-window-start  other-window this-start)))))

(global-set-key (kbd "C-M-S-<down>") (lambda () (interactive) (swap-with 'down)))
(global-set-key (kbd "C-M-S-<up>") (lambda () (interactive) (swap-with 'up)))
(global-set-key (kbd "C-M-S-<left>") (lambda () (interactive) (swap-with 'left)))
(global-set-key (kbd "C-M-S-<right>") (lambda () (interactive) (swap-with 'right)))

(global-set-key (kbd "M-S-<up>") (lambda () (interactive) (enlarge-window 1)))
(global-set-key (kbd "M-S-<down>") (lambda () (interactive) (enlarge-window -1)))
(global-set-key (kbd "M-S-<right>") (lambda () (interactive) (enlarge-window -1 t)))
(global-set-key (kbd "M-S-<left>") (lambda () (interactive) (enlarge-window 1 t)))

(provide 'emacsd-tile)