From e8df2c8eda6459714f6fb900b968c0c9da3fd3b4 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Wed, 1 Feb 2023 08:13:52 -0500 Subject: Add popup buffer rules --- emacs/.config/emacs-kj/init.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el index cbb4aaa..053dcb6 100644 --- a/emacs/.config/emacs-kj/init.el +++ b/emacs/.config/emacs-kj/init.el @@ -752,12 +752,21 @@ ;; (add-to-list 'display-buffer-alist ;; '("\\*info" (display-buffer-same-window))) -(add-to-list 'display-buffer-alist - `(,(rx (| "*Help*" +(defun kj/popup-buffer (buffer condition) + (or (s-matches-p (rx (| "*Help*" "*info*" + (seq "*eldoc " (* anything) "*") (seq "*WoMan " (* anything) "*") (seq "*man " (* anything) "*") - "*Occur*")) + "*Occur*")) buffer) + (with-current-buffer buffer + (apply #'derived-mode-p + '(magit-mode + compilation-mode))) + )) + +(add-to-list 'display-buffer-alist + `(kj/popup-buffer (display-buffer-in-side-window) (side . right) (slot . 0) -- cgit v1.2.3