From 2bc37f74570637526fb6f472f084aed11964878d Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Sat, 4 Mar 2023 17:47:09 -0500
Subject: add override support to popup handling

---
 emacs/.config/emacs-kj/init.el | 51 ++++++++++++++++++++++++++++++++----------
 1 file changed, 39 insertions(+), 12 deletions(-)

(limited to 'emacs/.config')

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index a8e1c2e..43d42d4 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -817,6 +817,7 @@
 ;;; Window placement
 ;;; TODO: Test popper.el.
 (global-set-key (kbd "C-`") #'window-toggle-side-windows)
+(global-set-key (kbd "M-`") #'kj/popup-toggle-override)
 (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)
@@ -826,10 +827,31 @@
 ;; (add-to-list 'display-buffer-alist
 ;; 	     '("\\*info" (display-buffer-same-window)))
 
-(defun kj/popup-buffer (buffer condition)
-  (or (s-matches-p (rx (| "*Help*"
+(defvar kj/popup-override nil)
+
+(defun kj/popup-clear-overrides ()
+  (interactive)
+  (dolist (buffer (buffer-list))
+    (with-current-buffer buffer
+      (kill-local-variable 'kj/popup-override))))
+
+(defun kj/popup-toggle-override ()
+  (interactive)
+  (if (local-variable-p 'kj/popup-override)
+      (kill-local-variable 'kj/popup-override)
+    (setq-local kj/popup-override
+                (not (kj/popup-buffer-base (buffer-name)))))
+  (let ((buffer (buffer-name)))
+    (switch-to-prev-buffer)
+    (switch-to-buffer buffer)))
+
+(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) "*")
@@ -838,13 +860,19 @@
                        (seq "*Proced*" (* anything))
                        (seq "*eshell*" (* anything))
                        "*Occur*")) buffer)
-      (with-current-buffer buffer
-        (apply #'derived-mode-p
-               '(magit-mode
-                 compilation-mode
-                 comint-mode
-                 Custom-mode ; For customization
-                 fig-commit-mode)))))
+   (with-current-buffer buffer
+     (apply #'derived-mode-p
+            '(magit-mode
+              compilation-mode
+              comint-mode
+              Custom-mode       ; For customization
+              fig-commit-mode)))))
+
+(defun kj/popup-buffer (buffer &optional condition)
+  (with-current-buffer buffer
+    (if (local-variable-p 'kj/popup-override)
+        kj/popup-override
+      (kj/popup-buffer-base buffer condition))))
 
 (setq transient-display-buffer-action
       '(display-buffer-in-best-side
@@ -865,9 +893,8 @@
 
 (add-to-list 'display-buffer-alist
              `(kj/popup-buffer
-                    (display-buffer-in-best-side)
-                    (slot . 0)
-                   ))
+               (display-buffer-in-best-side)
+               (slot . 0)))
 
 ;; Calendar settings.
 (setq calendar-week-start-day 1)
-- 
cgit v1.2.3