From 8ac650fa1c3967ea06a001e3834364af21141193 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 19 Aug 2021 17:29:22 -0500
Subject: Make helpful-buffer work more sanely

Ideally, I'd have something like "bury-buffer" and "kill-window" or
... whatever.  But this isn't so bad, really.
---
 init.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 10f39c7..6cb9593 100644
--- a/init.el
+++ b/init.el
@@ -1140,11 +1140,21 @@ successive invocations."
     (add-to-list 'auto-mode-alist '("\\.fb\\'" . forth-block-mode))))
 
 (setup (:straight helpful)
+  (:option helpful-max-buffers 5
+           ;;helpful-switch-buffer-function #'pop-to-buffer
+           helpful-switch-buffer-function
+           (lambda (buf)
+             (pop-to-buffer buf
+                            '((display-buffer-reuse-mode-window
+                               display-buffer-pop-up-window)
+                              (mode . helpful-mode))
+                            :norecord)))
   (:global "<help> f" helpful-callable
            "<help> v" helpful-variable
            "<help> k" helpful-key
            "<help> o" helpful-symbol
-           "C-c C-d" helpful-at-point))
+           "C-c C-d" helpful-at-point)
+  (:bind "q" kill-buffer-and-window))
 
 (setup (:straight iscroll)
   (:hook-into text-mode))
-- 
cgit 1.4.1-21-gabe81