Remove `ehelp' binds in favor of `helpful' package

1 files changed, 16 insertions, 0 deletions

@@ -330,6 +330,13 @@
               (defun hook--gc-when-unfocused ()
                 (acdw/when-unfocused #'garbage-collect)))
 
+;;;; Help
+;; (define-key acdw/map (kbd "C-h") 'ehelp-command)
+;; ;; for some reason, `ehelp.el' doesn't include a version for `describe-symbol'.
+;; (defun electric-describe-symbol ()
+;;   (interactive)
+;;   (electric-helpify 'describe-symbol))
+;; (define-key ehelp-map "o" #'electric-describe-symbol)
 ;;;; Etc. good defaults
 (setc custom-file (acdw/in-dir "custom.el")
       inhibit-startup-screen t
@@ -550,6 +557,15 @@ call `zzz-to-char'."
   (:option outline-minor-mode-prefix "")
   (:hook-into emacs-lisp-mode))
 
+
+;;;;; Helpful
+(setup (:straight helpful)
+  (:advise describe-function :override #'helpful-callable
+           describe-variable :override #'helpful-variable
+           describe-command :override #'helpful-callable
+           describe-key :override #'helpful-key
+           describe-symbol :override #'helpful-symbol))
+
 ;;;; Utilities
 
 ;;;;; 0x0 -- upload files to a nullpointer