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

Insert org-roam-links relative to current file (#78)

Browse Source 
Fixes #77
This commit is contained in:
Jethro Kuan
2020-02-14 23:14:38 +08:00
committed by GitHub
parent 60eeb3985a
commit 684ab67952
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
org-roam.el
View File

@ -261,11 +261,16 @@ Optionally pass it the title, for a smart file name."
(org-roam--find-all-files))) (org-roam--find-all-files)))
(title (completing-read "File: " completions)) (title (completing-read "File: " completions))
(absolute-file-path (or (cadr (assoc title completions)) (absolute-file-path (or (cadr (assoc title completions))
(org-roam--get-file-path (org-roam--get-new-id title) t)))) (org-roam--get-file-path (org-roam--get-new-id title) t)))
(current-file-path (-> (current-buffer)
(buffer-file-name)
(file-truename)
(file-name-directory))))
(unless (file-exists-p absolute-file-path) (unless (file-exists-p absolute-file-path)
(org-roam--make-file absolute-file-path title)) (org-roam--make-file absolute-file-path title))
(insert (format "[[%s][%s]]" (insert (format "[[%s][%s]]"
(concat "file:" (file-relative-name absolute-file-path org-roam-directory)) (concat "file:" (file-relative-name absolute-file-path
current-file-path))
(format org-roam-link-title-format title))))) (format org-roam-link-title-format title)))))
;;; Finding org-roam files ;;; Finding org-roam files