From 48dcb19abc1b81eb4f2e2e480d103ffa845259df Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Mon, 3 Feb 2020 19:58:33 +0800 Subject: [PATCH] Add extension if none in org-roam-insert --- org-roam.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/org-roam.el b/org-roam.el index ff72f25..5de6814 100644 --- a/org-roam.el +++ b/org-roam.el @@ -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