Ask for project type when creating new project

This commit is contained in:
Kiana Sheibani 2024-02-27 15:30:45 -05:00
parent 4f6fc2e5d7
commit 008bf1bc64
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -1190,9 +1190,14 @@ TYPE specifies the type of project to create. It can take the following values:
- `projectile', which creates a .projectile file in the project root. - `projectile', which creates a .projectile file in the project root.
- A string, which is used as a filename to create in the project root. - A string, which is used as a filename to create in the project root.
- A function, which is called with no arguments inside the root of the project. - A function, which is called with no arguments inside the root of the project.
When called interactively, this defaults to `git' unless a prefix arg is given.
If PARENTS is non-nil, the parents of the specified directory will also be created." If PARENTS is non-nil, the parents of the specified directory will also be created."
(interactive (list (read-directory-name "Create new project: ") 'git t)) (interactive (list (read-directory-name "Create new project: ")
(if current-prefix-arg
(intern (completing-read "Project type: "
'("git" "projectile") nil t))
'git) t))
(make-directory dir parents) (make-directory dir parents)
(let ((default-directory dir)) (let ((default-directory dir))
(pcase type (pcase type