awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Improve narf/project-has-files

Browse Source
This commit is contained in:
Henrik Lissner
2016-02-13 01:12:25 -05:00
parent a670dad95f
commit 6fd3f3965e
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/defuns/defuns-project.el
View File

@ -25,13 +25,12 @@ determine if a directory is a project."
;;;###autoload ;;;###autoload
(defun narf/project-has-files (files &optional root) (defun narf/project-has-files (files &optional root)
"Return non-nil if `file' exists in the project root." "Return non-nil if FILES exist in the project root."
(let ((root (or root (narf/project-root))) (let ((root (or root (narf/project-root)))
(files (if (listp files) files (list files))) (files (if (listp files) files (list files)))
found-p file) (found-p (if files t)))
(while (and files (not found-p)) (while found-p
(setq file (pop files)) (setq found-p (file-exists-p (narf/project-path-to (pop files) root))))
(setq found-p (file-exists-p (narf/project-path-to file root))))
found-p)) found-p))
;;;###autoload ;;;###autoload