Move windows manipulation functions from configuration.org to lisp/gpolonkai/windows.el

configuration.org

@@ -2,81 +2,6 @@
 
 This is a collection of functions and commands i wrote or stole from all around the internet.
 
-** Window manipulation
-
-*** Bury a window
-
-#+begin_src emacs-lisp
-(defun gpolonkai/bury-window (window)
-  "Quit WINDOW without killing it."
-  (interactive)
-  (quit-window nil window))
-#+end_src
-
-*** Scroll a specific window up or down
-
-#+begin_src emacs-lisp
-(defun gpolonkai/scroll-window-up (window)
-  "Scroll WINDOW up as `scroll-up-command' would."
-  (interactive)
-  (save-selected-window
-    (select-window window)
-    (scroll-up)))
-
-(defun gpolonkai/scroll-window-down (window)
-  "Scroll WINDOW down as `scroll-down-command' would."
-  (interactive)
-  (save-selected-window
-    (select-window window)
-    (scroll-down)))
-#+end_src
-
-*** Transpose windows
-
-#+begin_src emacs-lisp
-(defun gpolonkai/transpose-windows (arg)
-  "Transpose the buffers shown in two windows."
-  (interactive "p")
-  (let ((selector (if (>= arg 0) 'next-window 'previous-window)))
-    (while (/= arg 0)
-      (let ((this-win (window-buffer))
-            (next-win (window-buffer (funcall selector))))
-        (set-window-buffer (selected-window) next-win)
-        (set-window-buffer (funcall selector) this-win)
-        (select-window (funcall selector)))
-      (setq arg (if (plusp arg) (1- arg) (1+ arg))))))
-#+end_src
-
-*** Toggle window split between horizontal and vertical
-
-#+begin_src emacs-lisp
-(defun gpolonkai/toggle-window-split ()
-  (interactive)
-  (if (= (count-windows) 2)
-      (let* ((this-win-buffer (window-buffer))
-             (next-win-buffer (window-buffer (next-window)))
-             (this-win-edges (window-edges (selected-window)))
-             (next-win-edges (window-edges (next-window)))
-             (this-win-2nd (not (and (<= (car this-win-edges)
-                                         (car next-win-edges))
-                                     (<= (cadr this-win-edges)
-                                         (cadr next-win-edges)))))
-             (splitter
-              (if (= (car this-win-edges)
-                     (car (window-edges (next-window))))
-                  'split-window-horizontally
-                'split-window-vertically)))
-        (delete-other-windows)
-        (let ((first-win (selected-window)))
-          (funcall splitter)
-          (if this-win-2nd (other-window 1))
-          (set-window-buffer (selected-window) this-win-buffer)
-          (set-window-buffer (next-window) next-win-buffer)
-          (select-window first-win)
-          (if this-win-2nd (other-window 1))))
-    (error "This works only for two windows!")))
-#+end_src
-
 ** Org-mode related
 
 *** Wrapper around ~org-agenda~ to open my own custom list