Kaligule Kaligule

## lock.svg

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              3 stars
            
          
                DelusionalLogic
                / lock.svg
            
            
              Created
              April 19, 2015 19:31
            
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## emacsd-tile.el
;; emacsd-tile.el -- tiling windows for emacs

(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))
	;; emacsd-tile.el -- tiling windows for emacs

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