(bugfix): add workaround for undocumented file-truename
behavior (#470)
This prevents and error being generated when the agenda is displayed. Fixes #408
This commit is contained in:
parent
ea1ba21825
commit
e33c144298
1 changed files with 5 additions and 5 deletions
10
org-roam.el
10
org-roam.el
|
@ -163,12 +163,12 @@ Like `file-name-extension', but does not strip version number."
|
|||
(defun org-roam--org-roam-file-p (&optional file)
|
||||
"Return t if FILE is part of Org-roam system, nil otherwise.
|
||||
If FILE is not specified, use the current buffer's file-path."
|
||||
(let ((path (or file
|
||||
(if-let ((path (or file
|
||||
(buffer-file-name))))
|
||||
(and path
|
||||
(org-roam--org-file-p path)
|
||||
(f-descendant-of-p (file-truename path)
|
||||
(file-truename org-roam-directory)))))
|
||||
(save-match-data
|
||||
(org-roam--org-file-p path)
|
||||
(f-descendant-of-p (file-truename path)
|
||||
(file-truename org-roam-directory)))))
|
||||
|
||||
(defun org-roam--list-files (dir)
|
||||
"Return all Org-roam files located within DIR, at any nesting level.
|
||||
|
|
Loading…
Reference in a new issue