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

(fix): org-roam--list-files: canonicalize filenames (#735)

Browse Source
This commit is contained in:
Jethro Kuan
2020-05-30 20:32:32 +08:00
committed by GitHub
parent 195669ad10
commit 1d28b07a7c
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
org-roam-db.el
View File

@ -380,7 +380,7 @@ If FORCE, force a rebuild of the cache from scratch."
(when force (delete-file (org-roam-db--get))) (when force (delete-file (org-roam-db--get)))
(org-roam-db--close) ;; Force a reconnect (org-roam-db--close) ;; Force a reconnect
(org-roam-db) ;; To initialize the database, no-op if already initialized (org-roam-db) ;; To initialize the database, no-op if already initialized
(let* ((org-roam-files (seq-filter #'org-roam--org-roam-file-p (org-roam--list-all-files))) (let* ((org-roam-files (org-roam--list-all-files))
(current-files (org-roam-db--get-current-files)) (current-files (org-roam-db--get-current-files))
all-files all-links all-titles all-refs all-tags) all-files all-links all-titles all-refs all-tags)
(dolist (file org-roam-files) (dolist (file org-roam-files)

15
org-roam.el
View File

@ -349,12 +349,15 @@ Use external shell commands if defined in `org-roam-list-files-commands'."
`((consp symbolp) `((consp symbolp)
,wrong-type)))) ,wrong-type))))
(when path (cl-return))) (when path (cl-return)))
(if path (let* ((files (if path
(let ((fn (intern (concat "org-roam--list-files-" exe)))) (let ((fn (intern (concat "org-roam--list-files-" exe))))
(unless (fboundp fn) (user-error "%s is not an implemented search method" fn)) (unless (fboundp fn) (user-error "%s is not an implemented search method" fn))
(mapcar #'ansi-color-filter-apply (funcall fn path (format "\"%s\"" dir)))
(funcall fn path (format "\"%s\"" dir)))) (org-roam--list-files-elisp dir)))
(org-roam--list-files-elisp dir)))) (files (mapcar #'ansi-color-filter-apply files)) ; strip ansi codes
(files (seq-filter #'org-roam--org-roam-file-p files))
(files (mapcar #'expand-file-name files))) ; canonicalize names
files)))
(defun org-roam--list-all-files () (defun org-roam--list-all-files ()
"Return a list of all Org-roam files within `org-roam-directory'." "Return a list of all Org-roam files within `org-roam-directory'."