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.

1 files changed, 11 insertions, 1 deletions

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