From 8cc77ba21f87a9954dfe00a985b42a27b813b545 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Mon, 6 Mar 2023 06:23:37 -0500 Subject: update popups --- emacs/.config/emacs-kj/init.el | 33 +++++++++++++++------------------ 1 file changed, 15 insertions(+), 18 deletions(-) (limited to 'emacs') diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el index 43d42d4..3788b9d 100644 --- a/emacs/.config/emacs-kj/init.el +++ b/emacs/.config/emacs-kj/init.el @@ -821,11 +821,6 @@ (setq window-sides-slots '(0 0 2 2)) ; 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))) (defvar kj/popup-override nil) @@ -847,19 +842,21 @@ (defun kj/popup-buffer-base (buffer &optional condition) (or - (s-matches-p (rx (| "*Help*" - "*info*" - (seq "*scratch*") - (seq "*Messages*") - (seq "*Backtrace*") - (seq "*eldoc " (* anything) "*") - (seq "*WoMan " (* anything) "*") - (seq "*man " (* anything) "*") - (seq "fig: " (* anything)) - (seq "*htop*" (* anything)) - (seq "*Proced*" (* anything)) - (seq "*eshell*" (* anything)) - "*Occur*")) buffer) + (s-matches-p + (rx (| "*Help*" + "*info*" + (seq "*scratch*") + (seq "*Messages*") + (seq "*Warnings*") + (seq "*Backtrace*") + (seq "*eldoc " (* anything) "*") + (seq "*WoMan " (* anything) "*") + (seq "*man " (* anything) "*") + (seq "fig: " (* anything)) + (seq "*htop*" (* anything)) + (seq "*Proced*" (* anything)) + (seq "*eshell*" (* anything)) + "*Occur*")) buffer) (with-current-buffer buffer (apply #'derived-mode-p '(magit-mode -- cgit v1.2.3