Files
dotemacs/lisp/ux/help.el
2022-01-09 21:19:46 +01:00

116 lines
2.9 KiB
EmacsLisp

;;; help.el --- Emacs help -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(use-package help-mode
:ensure nil
:defer
:config
(use-package help-fns
:ensure nil
:init
(user/bind-key-global :emacs :describe-variable 'describe-variable)
(user/bind-key-global :emacs :describe-syntax 'describe-syntax))
(use-package helpful
:init
(user/bind-key-global :emacs :describe-function 'helpful-function)
(user/bind-key-global :emacs :describe-macro 'helpful-macro)
(user/bind-key-global :emacs :describe-command 'helpful-command)
:config
(with-eval-after-load 'popwin
;; Use popwin for helpful buffer.
(add-to-list
'popwin:special-display-config
;; Don't select compilation window when shown
'(helpful-mode :position bottom :height 20)))))
(use-package apropos
:ensure nil
:defer
:init
(user/bind-key-global :emacs :search-variable-value 'apropos-value))
(use-package info-look
:ensure nil
:defer
:init
(user/bind-key-global :emacs :describe-symbol 'info-lookup-symbol))
(use-package help
:ensure nil
:defer
:init
(user/bind-key-global :emacs :describe-bindings 'describe-bindings)
(user/bind-key-global :emacs :describe-key 'describe-key)
(user/bind-key-global :emacs :where-is 'where-is)
(user/bind-key-global :emacs :describe-mode 'describe-mode)
(use-package helm-describe-modes
:init
(global-set-key [remap describe-mode] #'helm-describe-modes)))
(use-package find-func
:ensure nil
:defer
:init
(user/bind-key-global :emacs :find-library 'find-library))
(use-package finder
:ensure nil
:defer
:init
(user/bind-key-global :emacs :find-package 'finder-by-keyword))
(use-package menu-bar
:ensure nil
:defer
:init
(user/bind-key-global :emacs :elisp-search 'elisp-index-search))
(use-package tutorial
:ensure nil
:defer
:init
(user/bind-key-global :emacs :tutorial 'help-with-tutorial))
(use-package which-key
:diminish which-key-mode
:config
(validate-setq
;; Number of seconds until help is shown.
which-key-idle-delay 1.0
which-key-special-keys
'("SPC"
"TAB"
"RET"
"DLT" ; delete key
"BS" ; backspace key
"ESC"))
(when (eq default-terminal-coding-system 'utf-8)
(add-many-to-list
'which-key-replacement-alist
'(("TAB" . nil) . ("" . nil))
'(("RET" . nil) . ("" . nil))
'(("DEL" . nil) . ("" . nil))
'(("deletechar" . nil) . ("" . nil))
'(("DEL" . nil) . ("" . nil))
'(("SPC" . nil) . ("" . nil))))
(which-key-add-key-based-replacements
user/view-prefix "view"
user/help-prefix "help"
user/documentation-prefix "doc"
user/code-prefix "code"
user/code-eval-prefix "eval"
user/vcs-prefix "vcs"
user/utilities-prefix "utils"
user/apps-prefix "apps")
(which-key-mode t))
(provide 'ux/help)
;;; help.el ends here