FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

user preferences take affect in new-project

This commit is contained in:
Sameer Rahmani 2011-01-04 22:53:04 +03:30
parent c8478674f8
commit 8d46774a79
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/lib/project.el
View File

@ -24,6 +24,7 @@
;; ::project:: -- project proper name
;; ::unixname:: -- project unix name (escaped for shell)
;; ::desc:: -- project description
;; --------------------------------------------------------------------
;; Variables
;; --------------------------------------------------------------------
@ -35,7 +36,10 @@
"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
;; ----------------------------------------------------------------------
@ -63,13 +67,15 @@
(if (not (member project-license known-licenses))
(progn
(setq project-license nil)
(setq project-author nil)
(setq project-author-email nil)
(setq project-desc nil)
)
(progn
(setq project-author (read-string "Project Author: "))
(setq project-author-email (read-string "Project Author Email: "))
(if (not project-author)
(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: "))
)
)