update stuff

1 files changed, 26 insertions, 4 deletions

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index acac6f8..1168cc5 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -114,14 +114,15 @@
                           (process-buffer proc))
                  (kill-buffer (process-buffer proc)))))))))
 
+(defun kj/shell-history ()
+  (interactive)
+
+  )
 
 (use-package coterm
   :config
   (coterm-mode 1))
 
-;; Handle ansi escape codes.
-;;(add-hook 'comint-output-filter-functions #'comint-osc-process-output)
-
 ;; Update buffer name to reflect directory.
 (advice-add 'cd :after
             (defun kj/maybe-rename-shell (&rest args)
@@ -858,12 +859,33 @@
 
 (use-package pcre2el)
 (use-package pdf-tools)
+
+(defvar kj/help-modes '(helpful-mode
+                        help-mode
+                        shortdoc-mode
+                        Man-mode
+                        woman-mode
+                        Info-mode))
+
+(defun kj/buffer-help-p (buf act)
+  "BUF is a help buffer, ignore ACT."
+  (member (buffer-local-value 'major-mode (get-buffer buf)) kj/help-modes))
+
+(add-to-list 'display-buffer-alist
+             `(kj/help-modes ;predicate
+               (display-buffer--maybe-same-window
+                display-buffer-reuse-window
+                display-buffer-reuse-mode-window) ;functions to try
+               (mode . ,kj/help-modes)
+               (inhibit-same-window . nil)))
+
 (use-package helpful
   :bind
   (([remap describe-key] . 'helpful-key)
    ([remap describe-variable] . 'helpful-variable)
    ([remap describe-symbol] . 'helpful-symbol)
-   ([remap describe-command] . 'helpful-command)))
+   ([remap describe-command] . 'helpful-command)
+   ([remap describe-function] . 'helpful-callable)))
 
 ;;; Picking a specific eglot action.
 ;; (defun my-replace-with-deduced-type (beg)