Install popper

1 files changed, 13 insertions, 10 deletions

@@ -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