From a2f318ff5c3140f0855df179ec7edef5dae87293 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 6 Jan 2024 12:30:52 -0500 Subject: update stuff --- emacs/.config/emacs-kj/init.el | 30 ++++++++++++++++++++++++++---- 1 file changed, 26 insertions(+), 4 deletions(-) (limited to 'emacs') 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) -- cgit v1.2.3