summaryrefslogtreecommitdiff
path: root/emacs/.config/emacs-kj/init.el
diff options
context:
space:
mode:
authorKjetil Orbekk <kj@orbekk.com>2023-01-31 21:14:34 -0500
committerKjetil Orbekk <kj@orbekk.com>2023-01-31 21:14:34 -0500
commitb7679ddcf4d1b1f8c331fc4073d247a4f56183e4 (patch)
treed786126e60d38b862f019bd98245602d057a0e6b /emacs/.config/emacs-kj/init.el
parent852b7bc6a49f2d360cc41169e08cf05103666899 (diff)
sidebar placement rules
Diffstat (limited to 'emacs/.config/emacs-kj/init.el')
-rw-r--r--emacs/.config/emacs-kj/init.el30
1 files changed, 24 insertions, 6 deletions
diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index e104538..cbb4aaa 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -93,12 +93,6 @@
(set-fringe-mode 10)
(setq next-screen-context-lines 10)
-;; Prevent pop-up buffers from using new windows.
-(add-to-list 'display-buffer-alist
- '("\\*Help" (display-buffer-same-window)))
-(add-to-list 'display-buffer-alist
- '("\\*info" (display-buffer-same-window)))
-
(use-package avy
:bind
(("C-c l" . avy-goto-char)
@@ -745,3 +739,27 @@
:config
(setq repeat-help-auto t))
(repeat-mode 1)
+
+;;; Window placement
+;;; TODO: Test popper.el.
+(global-set-key (kbd "C-`") #'window-toggle-side-windows)
+(setq window-sides-slots '(0 0 2 0)) ; 2 right side windows
+(setq switch-to-buffer-obey-display-actions t)
+(setq switch-to-buffer-in-dedicated-window 'pop)
+;; Prevent pop-up buffers from using new windows.
+;; (add-to-list 'display-buffer-alist
+;; '("\\*Help" (display-buffer-same-window)))
+;; (add-to-list 'display-buffer-alist
+;; '("\\*info" (display-buffer-same-window)))
+
+(add-to-list 'display-buffer-alist
+ `(,(rx (| "*Help*"
+ "*info*"
+ (seq "*WoMan " (* anything) "*")
+ (seq "*man " (* anything) "*")
+ "*Occur*"))
+ (display-buffer-in-side-window)
+ (side . right)
+ (slot . 0)
+ (window-width . 80)
+ ))