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

(bugfix): add workaround for undocumented file-truename behavior (#470)

Browse Source 
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
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
org-roam.el
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) (defun org-roam--org-roam-file-p (&optional file)
"Return t if FILE is part of Org-roam system, nil otherwise. "Return t if FILE is part of Org-roam system, nil otherwise.
If FILE is not specified, use the current buffer's file-path." If FILE is not specified, use the current buffer's file-path."
(let ((path (or file (if-let ((path (or file
(buffer-file-name)))) (buffer-file-name))))
(and path (save-match-data
(org-roam--org-file-p path) (org-roam--org-file-p path)
(f-descendant-of-p (file-truename path) (f-descendant-of-p (file-truename path)
(file-truename org-roam-directory))))) (file-truename org-roam-directory)))))
(defun org-roam--list-files (dir) (defun org-roam--list-files (dir)
"Return all Org-roam files located within DIR, at any nesting level. "Return all Org-roam files located within DIR, at any nesting level.