From 8d46774a79459d1e709e0a69dd797fa58af5c1f1 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Tue, 4 Jan 2011 22:53:04 +0330 Subject: [PATCH] user preferences take affect in new-project --- src/lib/project.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/src/lib/project.el b/src/lib/project.el index cc98920..38d30e0 100644 --- a/src/lib/project.el +++ b/src/lib/project.el @@ -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: ")) ) )