awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-08 15:23:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #6 from jethrokuan/fix/insert-ext

Browse Source 
Add extension if none in org-roam-insert
This commit is contained in:
Jethro Kuan
2020-02-03 20:04:27 +08:00
committed by GitHub
parent 0adb2d00e5 48dcb19abc
commit 1cfaf66baf
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam.el
View File

@@ -56,8 +56,12 @@ Valid states are 'visible, 'exists and 'none."
(defun org-roam-insert (file-name)
"Find file `FILE-NAME', insert it as a link with the base file name as the link name."
(interactive (list (completing-read "File: " (deft-find-all-files-no-prefix))))
(let ((org-link-file-type 'relative))
(interactive (list (completing-read "File: "
(mapcar (lambda (f)
(file-name-sans-extension f))
(deft-find-all-files-no-prefix)))))
(let ((org-link-file-type 'relative)
(file-name (concat file-name ".org")))
(org-insert-link nil (concat "file:" (concat deft-directory file-name))
(concat org-roam-zettel-indicator (file-name-base file-name)))
(org-roam-add-backlink org-roam-hash-backlinks