From 6e59eea72855185edf6d3dab4085db31853b59d9 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sun, 5 Sep 2021 09:54:42 +0200 Subject: markdown: Add helper for browsing fontified links --- lisp/init-markdown.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'lisp/init-markdown.el') 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 -- cgit v1.2.3