Move my-split-window-sensibly

1 files changed, 0 insertions, 28 deletions

@@ -284,34 +284,6 @@ when it errors.
 
 ** Windows
 
-*** Split windows /more/ sensibly
-
-from [[https://stackoverflow.com/questions/23659909/reverse-evaluation-order-of-split-height-threshold-and-split-width-threshold-in][Stack Overflow]].
-
-#+begin_src emacs-lisp
-  (defun my-split-window-sensibly (&optional window)
-    (let ((window (or window (selected-window))))
-      (or (and (window-splittable-p window t)
-               ;; Split window horizontally.
-               (with-selected-window window
-                 (split-window-right)))
-          (and (window-splittable-p window)
-               ;; Split window vertically.
-               (with-selected-window window
-                 (split-window-below)))
-          (and (eq window (frame-root-window (window-frame window)))
-               (not (window-minibuffer-p window))
-               ;; If WINDOW is the only window on its frame and is not the
-               ;; minibuffer window, try to split it horizontally disregarding
-               ;; the value of `split-width-threshold'.
-               (let ((split-width-threshold 0))
-                 (when (window-splittable-p window t)
-                   (with-selected-window window
-                     (split-window-right))))))))
-
-  (setq split-window-preferred-function #'my-split-window-sensibly)
-#+end_src
-
 *** Winner mode
 
 #+begin_src emacs-lisp