From d23d77879f309c3b455ae56d429ade386982b6a6 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 1 Apr 2021 16:34:25 -0500
Subject: Remove `ehelp' binds in favor of `helpful' package

---
 init.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index a681f42..5e72e56 100644
--- a/init.el
+++ b/init.el
@@ -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
-- 
cgit 1.4.1-21-gabe81