commit 1b823e308000993df37f7cc62dbabd021ada4cb5 parent 56164c2ec27c875a5ab6e41ea087c3b3a85bdf85 Author: Vincent Demeester <vincent@sbr.pm> Date: Wed, 19 Aug 2020 17:34:29 +0200 tools/emacs: configure man and pulse Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-navigating.el | | | 29 | +++++++++++++++++++++++++++++ |
1 file changed, 29 insertions(+), 0 deletions(-)
diff --git a/tools/emacs/config/config-navigating.el b/tools/emacs/config/config-navigating.el @@ -150,5 +150,34 @@ aggressive fuzzy-style matching for this particular command." :config (flimenu-global-mode 1)) +(use-package man + :commands (man) + :bind (:map Man-mode-map + ("i" . Man-goto-section) + ("g" . Man-update-manpage))) + +(use-package pulse + :config + (defface vde/pulse-line-modus-theme + '((t :inherit modus-theme-subtle-green :extend t)) + "Ad-hoc face for `vde/pulse-line'. +This is done because it is not possible to highlight empty lines +without the `:extend' property.") + + (defun vde/pulse-line (&optional face) + "Temporarily highlight the current line." + (interactive) + (let ((start (if (eobp) + (line-beginning-position 0) + (line-beginning-position))) + (end (line-beginning-position 2)) + (pulse-delay .04) + (face + (if face + face + 'vde/pulse-line-modus-theme))) + (pulse-momentary-highlight-region start end face))) + :bind ("<C-escape>" . vde/pulse-line)) + (provide 'config-navigating) ;;; config-navigating.el ends here