forked from FG42/FG42
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
|
||||
;; basic New Project environment.
|
||||
(defun new-project () "New project basic function"
|
||||
|
||||
;; Project name
|
||||
(setq project-name (read-string "Project Name: "))
|
||||
;; Shit IDE use unix-project-name for dealing with project OS activity stuffs
|
||||
(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
|
||||
(setq project-license (read-string "Project License: "))
|
||||
(if (not (member project-license known-licenses))
|
||||
(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: "))
|
||||
)
|
||||
)
|
||||
|
||||
)
|
|
@ -54,7 +54,7 @@
|
|||
(let (license-data license-file)
|
||||
(setq license-file (concat TEMPLATESPATH (concat "licenses/" (concat project-license ".tmpl"))))
|
||||
(setq license-data (io/read license-file))
|
||||
(log license-data)
|
||||
|
||||
)
|
||||
)
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue