complete-computing-environment/smarter_emacs_help.org

Smarter Emacs Help

(provide 'cce/hydra-help)

(use-package which-key
  :diminish
  :config
  (which-key-mode))
(defhydra hydra-help (:columns 4)
  ("v" describe-variable "Desc Variable")
  ("w" embark-bindings "Desc Bindings")
  ("s" describe-syntax "Desc Syntax")
  ("P" describe-package "Desc Package")
  ("o" describe-symbol "Desc Symbols")
  ("m" describe-mode "Desc Mode")
  ("k" describe-key "Desc Keys")
  ("f" describe-function "Desc Functions")
  ("d" apropos-documentation "Apropos Docs")
  ("a" apropos-command "Apropos Commands")
  ("j" cce/man-at-point "Man for symbol at point.")
  ("r" info-emacs-manual "Emacs Info Pages")
  ("p" finder-by-keyword "Find Package by Keyword")
  ("l" view-lossage "Recent Commands")
  ("i" info "Info Index")
  ("e" view-echo-area-messages "*Messages*")
  ("b" describe-bindings "List Bindings")
  ("S" info-lookup-symbol "Lookup Symbol in Info")
  ("q" nil))

(bind-keys ("C-h w" . embark-bindings)
           ("C-h <SPC>" . hydra-help/body))
(with-eval-after-load 'evil-leader
  (evil-leader/set-key "h" 'hydra-help/body))