awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-22 16:20:55 -05:00
Code Issues Packages Projects Releases Wiki Activity

Avoid filesystem IO when computing slipbox for a file path

Browse Source
This commit is contained in:
Chris Barrett
2022-09-25 19:52:56 +13:00
parent 4ea787c213
commit 6bc6b32173
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-roam-slipbox.el
View File

@@ -115,8 +115,8 @@ tag applied."
(defun org-roam-slipbox-from-file (file) (defun org-roam-slipbox-from-file (file)
(condition-case nil (condition-case nil
(let ((dir (f-dirname file))) (let ((dir (directory-file-name (file-name-directory file))))
(if (f-same-p dir org-roam-directory) (if (equal dir org-roam-directory)
org-roam-slipbox-default org-roam-slipbox-default
(org-roam-slipbox--sanitize-tag (file-name-nondirectory dir)))) (org-roam-slipbox--sanitize-tag (file-name-nondirectory dir))))
(error org-roam-slipbox-default))) (error org-roam-slipbox-default)))