From e34e2df1372caa6d8f6bdd89de5403d82a36d220 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 9 Oct 2021 16:22:36 -0500
Subject: Install popper

---
 init.el | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/init.el b/init.el
index 6b011c1..3a94f66 100644
--- a/init.el
+++ b/init.el
@@ -1717,19 +1717,10 @@ See also `crux-reopen-as-root-mode'."
 
 (setup (:straight helpful)
   (:require-after 3)
-  
-  (defvar helpful-pre-windows nil
-    "Window configuration /before/ helpful was called.")
-  
-  (:option helpful-switch-buffer-function #'pop-to-buffer)
-  
   (:global "<help> f" #'helpful-callable
            "<help> v" #'helpful-variable
            "<help> k" #'helpful-key
-           "<help> o" #'helpful-symbol)
-
-  ;; (:bind "q" #'quit-window)
-  )
+           "<help> o" #'helpful-symbol))
 
 (setup (:straight hungry-delete)
   (:option hungry-delete-chars-to-skip " \t"
@@ -2303,6 +2294,18 @@ the default is \"/\"."
   (:file-match (rx ".pdf" eos))
   (pdf-loader-install))
 
+(setup (:straight popper)
+  (:option popper-reference-buffers
+           `(,(rx "*Messages*")
+             ,(rx "Output*" eol)
+             ,(rx "*Async Shell Command*")
+             help-mode helpful-mode
+             compilation-mode))
+  (:global "M-`" #'popper-toggle-latest
+           "C-`" #'popper-cycle)
+  (popper-mode +1)
+  (popper-echo-mode +1))
+
 ;; (setup (:straight persistent-scratch)
 ;;   (:option persistent-scratch-backup-directory (acdw/dir "scratch" t)
 ;;            persistent-scratch-keep-n-newest-backups 12
-- 
cgit 1.4.1-21-gabe81