awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): fix relative link replacement (#1233)

Browse Source
This commit is contained in:
Jethro Kuan
2020-11-04 15:25:08 +08:00
committed by GitHub
parent bc5c41d212
commit b2cc997976
2 changed files with 12 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
org-roam.el
View File

@ -1315,30 +1315,21 @@ update with NEW-DESC."
old-path new-path old-desc new-desc))))
(replace-match new-link)))))
(defun org-roam--get-relative-link-replacement (old-path)
"Create file-relative link for link at point if needed.
File relative links are assumed to originate from OLD-PATH. The
replaced links are made relative to the current buffer."
(when-let ((link (org-element-lineage (org-element-context) '(link) t)))
(let ((type (org-element-property :type link))
(path (org-element-property :path link)))
(when (and (string= type "file")
(f-relative-p path)
(org-in-regexp org-link-bracket-re 1))
(let* ((file-path (expand-file-name path (file-name-directory old-path)))
(new-path (org-roam-link-get-path file-path)))
(concat type ":" new-path))))))
(defun org-roam--fix-relative-links (old-path)
"Fix file-relative links in current buffer.
File relative links are assumed to originate from OLD-PATH. The
replaced links are made relative to the current buffer."
(save-excursion
(goto-char (point-min))
(while (re-search-forward org-link-any-re nil t)
(when-let ((new-link (save-match-data
(org-roam--get-relative-link-replacement old-path))))
(replace-match new-link nil t nil 1)))))
(org-with-point-at 1
(let (link new-link type path)
(while (re-search-forward org-link-bracket-re nil t)
(when (setq link (save-match-data (org-element-lineage (org-element-context) '(link) t)))
(setq type (org-element-property :type link))
(setq path (org-element-property :path link))
(when (and (string= type "file")
(f-relative-p path))
(setq new-link
(concat type ":" (org-roam-link-get-path (expand-file-name path (file-name-directory old-path)))))
(replace-match new-link nil t nil 1)))))))
(defcustom org-roam-rename-file-on-title-change t
"If non-nil, alter the filename on title change.