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

Merge pull request #40 from jethrokuan/fix/path

Browse Source 
Fix interactive commands using the wrong paths
This commit is contained in:
Jethro Kuan
2020-02-10 12:00:48 +08:00
committed by GitHub
parent 32865d3d0c fbc5944d12
commit 66ba96289f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
org-roam.el
View File

@ -150,7 +150,7 @@ If `ABSOLUTE', return the absolute file-path. Else, return the relative file-pat
(interactive (list (completing-read "File: " (interactive (list (completing-read "File: "
(mapcar #'org-roam--get-id (mapcar #'org-roam--get-id
(org-roam--find-all-files))))) (org-roam--find-all-files)))))
(let ((file-path (org-roam--get-file-path id))) (let ((file-path (org-roam--get-file-path id t)))
(unless (file-exists-p file-path) (unless (file-exists-p file-path)
(make-empty-file file-path)) (make-empty-file file-path))
(find-file file-path))) (find-file file-path)))
@ -311,7 +311,7 @@ This is equivalent to removing the node from the graph."
"Create a new file named `SLUG'. "Create a new file named `SLUG'.
`SLUG' is the short file name, without a path or a file extension." `SLUG' is the short file name, without a path or a file extension."
(interactive "sNew filename (without extension): ") (interactive "sNew filename (without extension): ")
(find-file (org-roam--get-file-path slug))) (find-file (org-roam--get-file-path slug t)))
(defun org-roam-today () (defun org-roam-today ()
"Create the file for today." "Create the file for today."