diff options
| author | Martin Polden <mpolden@mpolden.no> | 2021-09-05 09:54:42 +0200 |
|---|---|---|
| committer | Martin Polden <mpolden@mpolden.no> | 2021-09-05 10:00:38 +0200 |
| commit | 6e59eea72855185edf6d3dab4085db31853b59d9 (patch) | |
| tree | e59c2f60b4020ae813dd682d29baa8b29958b68f /lisp/init-markdown.el | |
| parent | b1c347e5fbafbcef1f1d8146194a8d6553bde79e (diff) | |
markdown: Add helper for browsing fontified links
Diffstat (limited to 'lisp/init-markdown.el')
| -rw-r--r-- | lisp/init-markdown.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/init-markdown.el b/lisp/init-markdown.el index f8f029f..03214ee 100644 --- a/lisp/init-markdown.el +++ b/lisp/init-markdown.el @@ -2,6 +2,17 @@ ;;; Commentary: ;;; Code: +(defun mpolden/browse-help-at-point () + "Browse help URL at point. + +The URL is extracted from the help text found at point, if any." + ;; markdown-mode fontifies links by adding them to the help-echo property + ;; allows visiting links in documentation shown by eglot/eldoc + (interactive) + (let ((url (get-text-property (point) 'help-echo))) + (if url (browse-url url) + (error "No URL found")))) + (use-package markdown-mode :ensure t :commands gfm-mode |