branch: externals/denote
commit 6f3649eff4cd5ca2ab1c92e468730c6d9340e0c8
Merge: e7478b1627 3d24ea54eb
Author: Protesilaos Stavrou <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #683 from swflint/enable-preview
Enable preview of denote links
---
denote.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/denote.el b/denote.el
index 69bb7c8b0b..682e641922 100644
--- a/denote.el
+++ b/denote.el
@@ -6977,6 +6977,17 @@ backend."
;; The `eval-after-load' part with the quoted lambda is adapted from
;; Elfeed: <https://github.com/skeeto/elfeed/>.
+(declare-function org-link-preview-file "ol" (ov path link))
+
+;;;###autoload
+(defun denote-link-preview-file (ov path link)
+ "Use `org-link-preview-file' for OV, PATH, and LINK.
+
+ Resolve the PATH using `denote-directory-files'."
+ (when-let ((files (denote-directory-files (rx-to-string (list 'and 'bol
path)))))
+ (when (length= files 1)
+ (org-link-preview-file ov (car files) link))))
+
;;;###autoload
(eval-after-load 'org
`(funcall
@@ -6987,6 +6998,7 @@ backend."
(with-no-warnings
(org-link-set-parameters
"denote"
+ :preview #'denote-link-preview-file
:follow #'denote-link-ol-follow
:face #'denote-get-link-face
:help-echo #'denote-link-ol-help-echo
