some mistakes in code fixed
This commit is contained in:
parent
a33c88e9e4
commit
93233433d3
5
TODO
5
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
|
|
@ -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")
|
||||
)
|
||||
)
|
||||
)
|
|
@ -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)
|
|
@ -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))
|
||||
|
@ -37,9 +40,11 @@
|
|||
(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))
|
||||
)
|
||||
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in New Issue