[prot] Window splitting direction - use preferred function for helm

pkryger · Jan 21, 2025 · 4d67b50 · 4d67b50
1 parent 7ee0777
commit 4d67b50
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/modules/init-helm.el b/modules/init-helm.el
@@ -35,20 +35,16 @@
   :custom
   (helm-split-window-default-side 'other)
 
-  (helm-split-width-threshold
-   (when (eq exordium-split-window-preffered-direction 'longest)
-     split-width-threshold))
-
-  (helm-split-window-state
-   (if (eq exordium-split-window-preffered-direction 'horizontal)
-       'horizontal
-     'vertical))
-
   (helm-split-window-other-side-when-one-window
    (if (eq exordium-split-window-preffered-direction 'horizontal)
        'right
      'below))
 
+  (helm-split-window-preferred-function
+   (if (eq exordium-split-window-preffered-direction 'longest)
+       #'split-window-sensibly
+     #'helm-split-window-default-fn))
+
   (helm-buffer-details-flag nil)
   (helm-completion-style (cond
                           ((and exordium-helm-fuzzy-match
@@ -210,7 +206,10 @@
              helm-swoop--edit-cancel
              helm-swoop--edit-delete-all-lines)
   :custom
-  (helm-swoop-split-direction 'split-window-sensibly)
+  (helm-swoop-split-direction (pcase exordium-split-window-preffered-direction
+                                ('longest #'split-window-sensibly)
+                                ('horizontal #'split-window-horizontally)
+                                (_ #'split-window-vertically)))
   :bind
   (("C-S-s" . #'helm-swoop)
    ;; Use similar bindings to `helm-ag-edit'