gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests 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
Show Stats 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
(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)))
(files (if (listp files) files (list files)))
found-p file)
(while (and files (not found-p))
(setq file (pop files))
(setq found-p (file-exists-p (narf/project-path-to file root))))
(found-p (if files t)))
(while found-p
(setq found-p (file-exists-p (narf/project-path-to (pop files) root))))
found-p))
;;;###autoload