Control window splitting with threshold vars

2 files changed, 3 insertions, 23 deletions

diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el
index 20394e3..b85c090 100644
--- a/.emacs.d/lisp/init-clojure.el
+++ b/.emacs.d/lisp/init-clojure.el
@@ -209,16 +209,8 @@
       (delete-other-windows)))
   (advice-add #'cider-close-ancillary-buffers :after #'fix-duplicate-windows)
 
-  (defun switch-to-cider-repl ()
-    "Wrapper around `cider-switch-to-repl-buffer' with custom functionality."
-    (interactive)
-    (if (get-buffer-window (cider-current-repl))
-        (cider-switch-to-repl-buffer)
-      (cider-switch-to-repl-buffer)
-      (transpose-large-frame)))
   :bind
   (:map cider-mode-map
-        ("C-c C-z" . switch-to-cider-repl)
         ("C-c M-l" . cider-load-file)
         ("C-c M-b" . cider-interrupt))
   (:map cider-repl-mode-map
diff --git a/.emacs.d/lisp/init-windows.el b/.emacs.d/lisp/init-windows.el
index c1b9943..56ba032 100644
--- a/.emacs.d/lisp/init-windows.el
+++ b/.emacs.d/lisp/init-windows.el
@@ -5,11 +5,8 @@
 (use-feature emacs
   :custom
   (switch-to-buffer-obey-display-actions t)
-  :config
-  (defcustom large-frame-width-threshold 500
-    "Minimum width (in chars) to consider the frame large."
-    :group 'djm
-    :type 'natnum))
+  (split-height-threshold nil)
+  (split-width-threshold 200))
 
 (use-feature ibuffer
   :bind
@@ -66,16 +63,7 @@
   (fullframe elpaca-fetch-all quit-window))
 
 (use-package transpose-frame
-  :bind (:map ctl-x-4-map ("t" . transpose-frame))
-  :config
-  (defun transpose-large-frame ()
-    "Trasnpose the window arrangement, if the frame is large.
-
-This is based on the frame width, with the threshold being customised using
-`large-frame-width-threshold'."
-    (when (> large-frame-width-threshold (frame-char-width)) (transpose-frame)))
-  :hook
-  (cider-connected . transpose-large-frame))
+  :bind (:map ctl-x-4-map ("t" . transpose-frame)))
 
 (use-package ace-window
   :diminish