license lookup bug fixed

This commit is contained in:
lxsameer 2010-12-27 19:50:02 +03:30
parent 5b668c15aa
commit dcbf00f4b6
3 changed files with 5 additions and 3 deletions

3
TODO
View File

@ -1,4 +1,5 @@
* Remove unkown filetypes from filelist in load-dir * Remove unkown filetypes from filelist in load-dir
* Add some option for user to choose between liceenses * Add some option for user to choose between liceenses
* Review license templates * Review license templates
* build the debian folder nad required files for deb packages * build the debian folder nad required files for deb packages
* escape project name for a unix name

View File

@ -20,7 +20,7 @@
;; I do not like users who use non-free licenses ;; I do not like users who use non-free licenses
;; TODO: gather a complete list of free software licenses ;; TODO: gather a complete list of free software licenses
;; TODO: build a hash variable from licenses ;; TODO: build a hash variable from licenses
(setq known-licenses '(gpl bsd cc)) (setq known-licenses '("gpl" "bsd" "cc"))
;; Each project plugin should use this function for initializing a versy ;; Each project plugin should use this function for initializing a versy
;; basic New Project environment. ;; basic New Project environment.

View File

@ -49,7 +49,8 @@
(interactive) (interactive)
(c-new-project) (c-new-project)
(setq current-template-file (concat TEMPLATESPATH "c/generic_c/main.c.tmpl")) (setq current-template-file (concat TEMPLATESPATH "c/generic_c/main.c.tmpl"))
(if (project-license)
(if project-license
(let (license-data license-file) (let (license-data license-file)
(setq license-file (concat TEMPLATESPATH (concat "licenses/" (concat project-license ".tmpl")))) (setq license-file (concat TEMPLATESPATH (concat "licenses/" (concat project-license ".tmpl"))))
(setq license-data (io/read license-file)) (setq license-data (io/read license-file))