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

File link conversion tracks the value of org-link-file-path-type

Browse source
This commit is contained in:
Alexandre Rousseau 2024-04-22 11:27:40 -04:00
parent 59e6c43f9b
commit 6f1773a9b7
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
denote-org-extras.el
View file

@ -240,6 +240,15 @@ description."
(_ (error "`%s' is an unknown link type" type)))
(format "\\[\\[\\(?1:%s:\\)\\(?:\\(?2:.*?\\)\\(?3:::.*\\)?\\]\\|\\]\\)\\(?4:\\[\\(?:.*?\\)\\]\\)?\\]" group-1)))
;;;###autoload
(defun denote-org-extras-get-path-by-id (id)
"Return the path, relative or absolute, as indicated by
org-link-file-path-type, to the denote file matching id."
(if (or (eql org-link-file-path-type 'adaptive)
(eql org-link-file-path-type 'relative))
(denote-get-relative-path-by-id id)
(denote-get-path-by-id id)))
;;;###autoload
(defun denote-org-extras-convert-links-to-file-type ()
"Convert denote: links to file: links in the current Org buffer.
@ -253,7 +262,7 @@ resolve to a file in the variable `denote-directory'."
(let* ((id (match-string-no-properties 2))
(search (or (match-string-no-properties 3) ""))
(desc (or (match-string-no-properties 4) ""))
(file (save-match-data (denote-get-path-by-id id))))
(file (save-match-data (denote-org-extras-get-path-by-id id))))
(when id
(let ((new-text (if desc
(format "[[file:%s%s]%s]" file search desc)