diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2023-02-01 08:13:52 -0500 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2023-02-01 08:13:52 -0500 |
| commit | e8df2c8eda6459714f6fb900b968c0c9da3fd3b4 (patch) | |
| tree | c17764a28181b19aaf2a08e9c9d933a33e14abfb | |
| parent | b7679ddcf4d1b1f8c331fc4073d247a4f56183e4 (diff) | |
Add popup buffer rules
| -rw-r--r-- | emacs/.config/emacs-kj/init.el | 15 |
1 files 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) |