(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:
Jürgen Hötzel 2020-04-15 20:53:43 +02:00 committed by GitHub
parent ea1ba21825
commit e33c144298
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -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.