From cf4c1613d915d9e31d42e598dbb7d6b4eb7bb01a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Thu, 21 Jul 2016 17:07:46 +0530 Subject: [PATCH] Emacs: Prefer horizontal window split --- .emacs.d/lisp/main.el | 5 +++++ .emacs.d/lisp/tool-helm.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/.emacs.d/lisp/main.el b/.emacs.d/lisp/main.el index cc87e997..80862748 100644 --- a/.emacs.d/lisp/main.el +++ b/.emacs.d/lisp/main.el @@ -167,6 +167,11 @@ ;; Set man pages to display on a 80 character wide window. (setenv "MANWIDTH" "80") +;; Enforce horizontal splitting. 140 means that the window is large enough to +;; hold 2 other windows of 70 columns. +(setq split-height-threshold nil) +(setq split-width-threshold 140) + ;; Windmove mode: easy window switching with Shift+arrows. (when (fboundp 'windmove-default-keybindings) (windmove-default-keybindings)) diff --git a/.emacs.d/lisp/tool-helm.el b/.emacs.d/lisp/tool-helm.el index 2eed71c5..3d8b08d0 100644 --- a/.emacs.d/lisp/tool-helm.el +++ b/.emacs.d/lisp/tool-helm.el @@ -8,6 +8,8 @@ ; (helm-autoresize-mode 1) (setq helm-follow-mode-persistent t) (add-to-list 'helm-sources-using-default-as-input 'helm-source-man-pages) +;; (setq helm-split-window-default-side 'right) +(setq helm-reuse-last-window-split-state t) (setq helm-apropos-fuzzy-match t) (setq helm-buffers-fuzzy-matching t)