yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 2 deletions
Show stats 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)))
(title (completing-read "File: " 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)
(org-roam--make-file absolute-file-path title))
(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)))))
;;; Finding org-roam files