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): fix org-roam--find-file picking up temporary files (#98)

Browse Source 
Fixes #96
This commit is contained in:
Jethro Kuan
2020-02-17 12:07:08 +08:00
committed by GitHub
parent 9ae03532da
commit 58590a0e9d
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
org-roam-utils.el
View File

@ -38,13 +38,23 @@
(require 'subr-x) (require 'subr-x)
(require 'cl-lib) (require 'cl-lib)
(defun org-roam--file-name-extension (filename)
"Return file name extension for FILENAME.
Like file-name-extension, but does not strip version number."
(save-match-data
(let ((file (file-name-nondirectory filename)))
(if (and (string-match "\\.[^.]*\\'" file)
(not (eq 0 (match-beginning 0))))
(substring file (+ (match-beginning 0) 1))))))
(defun org-roam--org-file-p (path) (defun org-roam--org-file-p (path)
"Check if PATH is pointing to an org file." "Check if PATH is pointing to an org file."
(let ((ext (file-name-extension path))) (let ((ext (org-roam--file-name-extension path)))
(or (string= ext "org") (or (string= ext "org")
(and (and
(string= ext "gpg") (string= ext "gpg")
(string= (file-name-extension (file-name-sans-extension path)) "org"))))) (string= (org-roam--file-name-extension (file-name-sans-extension path)) "org")))))
(defun org-roam--find-files (dir) (defun org-roam--find-files (dir)
"Return all `org-roam' files in `DIR'." "Return all `org-roam' files in `DIR'."