greenrd

;; 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))