[Projects] Fix predicates to check for existing projects
This commit is contained in:
parent
2bae031158
commit
1f08b83cf8
|
@ -23,14 +23,17 @@
|
||||||
|
|
||||||
(defun projects-project-exists-p (short-name)
|
(defun projects-project-exists-p (short-name)
|
||||||
"Check whether a project named SHORT-NAME already exists"
|
"Check whether a project named SHORT-NAME already exists"
|
||||||
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name) ".projectile")
|
(or
|
||||||
projects-main-project-directory)))
|
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
|
||||||
|
".git")
|
||||||
|
projects-main-project-directory))
|
||||||
|
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
|
||||||
|
".projectile")
|
||||||
|
projects-main-project-directory))))
|
||||||
|
|
||||||
(defun projects-existing-projects ()
|
(defun projects-existing-projects ()
|
||||||
"Return list of all short-names of existing projects"
|
"Return list of all short-names of existing projects"
|
||||||
(cl-remove-if-not (lambda (name)
|
(cl-remove-if-not #'projects-project-exists-p
|
||||||
(file-exists-p (expand-file-name (concat (file-name-as-directory name) ".projectile")
|
|
||||||
projects-main-project-directory)))
|
|
||||||
(directory-files projects-main-project-directory)))
|
(directory-files projects-main-project-directory)))
|
||||||
|
|
||||||
(defun projects-add-project (short-name long-name)
|
(defun projects-add-project (short-name long-name)
|
||||||
|
|
Loading…
Reference in New Issue