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

some changes in project.el

This commit is contained in:
lxsameer 2010-12-27 19:55:37 +03:30
parent dcbf00f4b6
commit 38768c93e7
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/lib/project.el
View File

@ -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))
(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: "))
)

2
src/plugins/cproject.el
View File

@ -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)
)
)
)