some changes in project.el
This commit is contained in:
parent
dcbf00f4b6
commit
38768c93e7
|
@ -25,6 +25,8 @@
|
||||||
;; Each project plugin should use this function for initializing a versy
|
;; Each project plugin should use this function for initializing a versy
|
||||||
;; basic New Project environment.
|
;; basic New Project environment.
|
||||||
(defun new-project () "New project basic function"
|
(defun new-project () "New project basic function"
|
||||||
|
|
||||||
|
;; Project name
|
||||||
(setq project-name (read-string "Project Name: "))
|
(setq project-name (read-string "Project Name: "))
|
||||||
;; Shit IDE use unix-project-name for dealing with project OS activity stuffs
|
;; Shit IDE use unix-project-name for dealing with project OS activity stuffs
|
||||||
(setq unix-project-name (downcase (replace-regexp-in-string " " "_" project-name)))
|
(setq unix-project-name (downcase (replace-regexp-in-string " " "_" project-name)))
|
||||||
|
@ -39,8 +41,17 @@
|
||||||
;; TODO: find a way to ask a multi choices question
|
;; TODO: find a way to ask a multi choices question
|
||||||
(setq project-license (read-string "Project License: "))
|
(setq project-license (read-string "Project License: "))
|
||||||
(if (not (member project-license known-licenses))
|
(if (not (member project-license known-licenses))
|
||||||
(setq project-license nil)
|
(progn
|
||||||
|
(setq project-license nil)
|
||||||
|
(setq project-author nil)
|
||||||
|
(setq project-home-page nil)
|
||||||
|
(setq project-author-email nil)
|
||||||
|
)
|
||||||
|
(progn
|
||||||
|
(setq project-author (read-string "Project Author: "))
|
||||||
|
(setq project-author-email (read-string "Project Author Email: "))
|
||||||
|
(setq project-home-page (read-string "Home Page: "))
|
||||||
|
)
|
||||||
)
|
)
|
||||||
(setq project-author (read-string "Project Author: "))
|
|
||||||
(setq project-home-page (read-string "Home Page: "))
|
|
||||||
)
|
)
|
|
@ -54,7 +54,7 @@
|
||||||
(let (license-data license-file)
|
(let (license-data license-file)
|
||||||
(setq license-file (concat TEMPLATESPATH (concat "licenses/" (concat project-license ".tmpl"))))
|
(setq license-file (concat TEMPLATESPATH (concat "licenses/" (concat project-license ".tmpl"))))
|
||||||
(setq license-data (io/read license-file))
|
(setq license-data (io/read license-file))
|
||||||
(log license-data)
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in New Issue