michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(emacs/lean-project.el): update prompt message, have standard as a defualt

Browse source 
close #1017
This commit is contained in:
Soonho Kong 2016-03-04 15:18:45 -05:00
parent 7e64405f5e
commit c50ab524a5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/emacs/lean-project.el
View file

@ -19,15 +19,15 @@
(defun lean-project-create (directory type) (defun lean-project-create (directory type)
(interactive (interactive
(list (read-directory-name "Specify the project root directory: ") (list (read-directory-name "Specify the project root directory: ")
(intern (completing-read "Project type:: " '(standard hott))))) (intern (completing-read "Project type (standard or hott): " '(standard hott) nil t))))
(let ((project-file (concat (file-name-as-directory directory) (let ((project-file (concat (file-name-as-directory directory)
lean-project-file-name)) lean-project-file-name))
(ext (pcase type (ext (pcase type
(`lean "lean")
(`standard "lean") (`standard "lean")
(`hlean "hlean")
(`hott "hlean") (`hott "hlean")
(_ (error "Unknown project type %S. Please select either standard or hott" type)))) (_ (progn
(message "Default 'standard' lean-project is created.")
"lean"))))
(default-contents (default-contents
(s-join "\n" (s-join "\n"
;; EXT is a placeholder. ;; EXT is a placeholder.