blob: 50505e108ae63eb152464580170aeaacb40bb64f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
;;; mm-documentation.el --- Configuration related to documentation -*- lexical-binding: t; -*-
;;; Enhance Describe Commands
(use-package helpful
:ensure t
:bind (([remap describe-command] . helpful-command)
([remap describe-function] . helpful-callable)
([remap describe-key] . helpful-key)
([remap describe-symbol] . helpful-symbol)
([remap describe-variable] . helpful-variable)
(("C-h C-p" . helpful-at-point))))
^L
;;; Open Manpage for Symbol
(defun mm-documentation-man-at-point ()
"Open a UNIX manual page for the symbol at point."
(declare (modes (c-mode c++-mode c-ts-mode c++-ts-mode)))
(interactive)
(if-let ((symbol
(pcase major-mode
((or 'c-mode 'c++-mode)
(thing-at-point 'symbol :no-properties))
((or 'c-ts-mode 'c++-ts-mode)
(when-let ((node (treesit-thing-at-point "identifier" 'nested)))
(treesit-node-text node :no-properties))))))
(man symbol)
(message "No symbol at point.")))
(dolist (mode '(c-mode c++-mode c-ts-mode c++-ts-mode))
(with-eval-after-load mode
(require 'man)))
(provide 'mm-documentation)
|
