From b7679ddcf4d1b1f8c331fc4073d247a4f56183e4 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Tue, 31 Jan 2023 21:14:34 -0500 Subject: sidebar placement rules --- emacs/.config/emacs-kj/init.el | 30 ++++++++++++++++++++++++------ 1 file changed, 24 insertions(+), 6 deletions(-) (limited to 'emacs/.config/emacs-kj/init.el') 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) + )) -- cgit v1.2.3