From b3ed5b37a75afab519be2612603fd6ad9de2ac32 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 6 Jan 2024 11:06:12 -0500 Subject: add helpful --- emacs/.config/emacs-kj/init.el | 7 ++++++- emacs/.config/emacs-kj/lisp/kj-bindings.el | 3 ++- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'emacs') diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el index 8abdd6e..acac6f8 100644 --- a/emacs/.config/emacs-kj/init.el +++ b/emacs/.config/emacs-kj/init.el @@ -858,7 +858,12 @@ (use-package pcre2el) (use-package pdf-tools) -(use-package helpful) +(use-package helpful + :bind + (([remap describe-key] . 'helpful-key) + ([remap describe-variable] . 'helpful-variable) + ([remap describe-symbol] . 'helpful-symbol) + ([remap describe-command] . 'helpful-command))) ;;; Picking a specific eglot action. ;; (defun my-replace-with-deduced-type (beg) diff --git a/emacs/.config/emacs-kj/lisp/kj-bindings.el b/emacs/.config/emacs-kj/lisp/kj-bindings.el index 14a295e..d82706f 100644 --- a/emacs/.config/emacs-kj/lisp/kj-bindings.el +++ b/emacs/.config/emacs-kj/lisp/kj-bindings.el @@ -21,7 +21,8 @@ ("C-c w u" . winner-undo) ("C-c w U" . winner-redo) ("C-" . completion-at-point) - ("" . iso-transl-ctl-x-8-map)) + ;; Replace downcase-word binding. + ("M-l" . iso-transl-ctl-x-8-map)) :config (defvar kj/flymake-repeat-map (make-sparse-keymap "flymake")) -- cgit v1.2.3