emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Enable preview of denote links

Browse source 
Preview will only happen if there is one file with the denote ID/path,
and will work with any format supported by `org-link-preview-file`.
This commit is contained in:
Samuel W. Flint 2026-02-24 10:13:06 -06:00
parent 9f5a16f625
commit 3d24ea54eb
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
denote.el
View file

@ -6993,6 +6993,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
@ -7003,6 +7014,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