From 11cf61fef2d5a3537b8fdbf31043899c1270377a Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 11 Jul 2024 15:18:30 -0400 Subject: [PATCH] feat(org): display link at point in eldoc --- modules/lang/org/config.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index f3c096a98..44dc079e0 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -1126,6 +1126,15 @@ between the two." :hook (org-mode . org-eldoc-load) :init (setq org-eldoc-breadcrumb-separator " → ") :config + (defadvice! +org-eldoc--display-link-at-point-a (&rest _) + "Display help for doom-*: links in minibuffer when cursor/mouse is over it." + :before-until #'org-eldoc-documentation-function + (if-let ((url (thing-at-point 'url t))) + (format "LINK: %s" url) + (and (eq (get-text-property (point) 'help-echo) + #'+org-link-doom--help-echo-from-textprop) + (+org-link-doom--help-echo-from-textprop nil (current-buffer) (point))))) + ;; HACK Fix #2972: infinite recursion when eldoc kicks in 'org' or 'python' ;; src blocks. ;; TODO Should be reported upstream!