some mistakes in code fixed

TODO

@@ -1,5 +1,6 @@
 * Remove unkown filetypes from filelist in load-dir
 * Add some option for user to choose between liceenses
 * Review license templates
-* build the debian folder nad required files for deb packages
-* escape project name for a unix name "shell-quote-argument"
+* Build the debian folder nad required files for deb packages
+* Escape project name for a unix name "shell-quote-argument"
+* Add a config file for user to put his/her configuration there

src/lib/project.el

@@ -72,5 +72,8 @@
 	(setq license-data (replace-regexp-in-string "::year::" (format-time-string "%Y") license-data))
 	(identity license-data)
 	)
+    (let (license-data)
+      (setq license-data "Put you GOD DAMN, FUCKing license here")
+      )
     )
 )

src/plugins/cproject.el

@@ -48,10 +48,12 @@
 (defun generic-c () "Create a generic type C project"
   (interactive)
   (c-new-project)
-  (let (current-template-file license-data)
+  (let (current-template-file license-data filelist)
     (setq current-template-file (concat TEMPLATESPATH "c/generic_c/main.c.tmpl"))
+    (setq filelist (file-expand-wildcards load-elc))
+    ;; add the license header
     (setq license-data (insert-license))
-    (log license-data)
+    
     )
 )
 (init-menus)

src/shit-ide.el

@@ -22,11 +22,14 @@
 (setq TEMPLATESPATH nil)
 
 (defun strip-el-ext (STR) "strinp the lastest elist extension suffix"
+  (let (ext)
   (setq ext (replace-regexp-in-string "\.el$" "" STR))
   (setq ext (replace-regexp-in-string "\.elc$" "" ext))
+  )
 )
 
 (defun load-dir (path) "Load entire directory"
+  (let (load-elc load-el filelist tmp)
   (setq load-elc (concat path "*.elc"))
   (setq load-el (concat path "*.el"))
   (setq filelist (file-expand-wildcards load-elc))
@@ -36,10 +39,12 @@
   ;; TODO: delete unkown filetypes from filelist 
   (setq filelist (mapcar 'strip-el-ext filelist))
   (mapcar 'load filelist)
+  )
 )
 
 (defun init-shit () "Inittialize Shit IDE environment"
   (log "initializing SHIT . . .")
+  (let (cur-path-list)
   (setq cur-path-list (split-string load-file-name "/"))
   (nbutlast cur-path-list)
   (setq ROOTPATH (concat (mapconcat 'identity cur-path-list "/") "/"))
@@ -50,6 +55,7 @@
   (log (format "lib : %s" LIBPATH))
   (log (format "plugins : %s" PLUGINPATH))
   (log (format "templates : %s" TEMPLATESPATH))
+  )
   
 )