user preferences take affect in new-project
This commit is contained in:
parent
c8478674f8
commit
8d46774a79
|
@ -24,6 +24,7 @@
|
||||||
;; ::project:: -- project proper name
|
;; ::project:: -- project proper name
|
||||||
;; ::unixname:: -- project unix name (escaped for shell)
|
;; ::unixname:: -- project unix name (escaped for shell)
|
||||||
;; ::desc:: -- project description
|
;; ::desc:: -- project description
|
||||||
|
|
||||||
;; --------------------------------------------------------------------
|
;; --------------------------------------------------------------------
|
||||||
;; Variables
|
;; Variables
|
||||||
;; --------------------------------------------------------------------
|
;; --------------------------------------------------------------------
|
||||||
|
@ -35,7 +36,10 @@
|
||||||
"The free software licenses for using as the project license."
|
"The free software licenses for using as the project license."
|
||||||
)
|
)
|
||||||
|
|
||||||
|
;; If user defined the developer details in user preferences Kuso use them
|
||||||
|
;; as default values
|
||||||
|
(setq project-author developer-name)
|
||||||
|
(setq project-author-email developer-email)
|
||||||
;; ----------------------------------------------------------------------
|
;; ----------------------------------------------------------------------
|
||||||
;; Functions
|
;; Functions
|
||||||
;; ----------------------------------------------------------------------
|
;; ----------------------------------------------------------------------
|
||||||
|
@ -63,13 +67,15 @@
|
||||||
(if (not (member project-license known-licenses))
|
(if (not (member project-license known-licenses))
|
||||||
(progn
|
(progn
|
||||||
(setq project-license nil)
|
(setq project-license nil)
|
||||||
(setq project-author nil)
|
|
||||||
(setq project-author-email nil)
|
|
||||||
(setq project-desc nil)
|
(setq project-desc nil)
|
||||||
)
|
)
|
||||||
(progn
|
(progn
|
||||||
(setq project-author (read-string "Project Author: "))
|
(if (not project-author)
|
||||||
(setq project-author-email (read-string "Project Author Email: "))
|
(setq project-author (read-string "Project Author: "))
|
||||||
|
)
|
||||||
|
(if (not project-author-email)
|
||||||
|
(setq project-author-email (read-string "Project Author Email: "))
|
||||||
|
)
|
||||||
(setq project-desc (read-string "Description: "))
|
(setq project-desc (read-string "Description: "))
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in New Issue