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
|
* 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 "shell-quote-argument"
|
* 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))
|
(setq license-data (replace-regexp-in-string "::year::" (format-time-string "%Y") license-data))
|
||||||
(identity 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"
|
(defun generic-c () "Create a generic type C project"
|
||||||
(interactive)
|
(interactive)
|
||||||
(c-new-project)
|
(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 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))
|
(setq license-data (insert-license))
|
||||||
(log license-data)
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
(init-menus)
|
(init-menus)
|
|
@ -22,11 +22,14 @@
|
||||||
(setq TEMPLATESPATH nil)
|
(setq TEMPLATESPATH nil)
|
||||||
|
|
||||||
(defun strip-el-ext (STR) "strinp the lastest elist extension suffix"
|
(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 "\.el$" "" STR))
|
||||||
(setq ext (replace-regexp-in-string "\.elc$" "" ext))
|
(setq ext (replace-regexp-in-string "\.elc$" "" ext))
|
||||||
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
(defun load-dir (path) "Load entire directory"
|
(defun load-dir (path) "Load entire directory"
|
||||||
|
(let (load-elc load-el filelist tmp)
|
||||||
(setq load-elc (concat path "*.elc"))
|
(setq load-elc (concat path "*.elc"))
|
||||||
(setq load-el (concat path "*.el"))
|
(setq load-el (concat path "*.el"))
|
||||||
(setq filelist (file-expand-wildcards load-elc))
|
(setq filelist (file-expand-wildcards load-elc))
|
||||||
|
@ -36,10 +39,12 @@
|
||||||
;; TODO: delete unkown filetypes from filelist
|
;; TODO: delete unkown filetypes from filelist
|
||||||
(setq filelist (mapcar 'strip-el-ext filelist))
|
(setq filelist (mapcar 'strip-el-ext filelist))
|
||||||
(mapcar 'load filelist)
|
(mapcar 'load filelist)
|
||||||
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
(defun init-shit () "Inittialize Shit IDE environment"
|
(defun init-shit () "Inittialize Shit IDE environment"
|
||||||
(log "initializing SHIT . . .")
|
(log "initializing SHIT . . .")
|
||||||
|
(let (cur-path-list)
|
||||||
(setq cur-path-list (split-string load-file-name "/"))
|
(setq cur-path-list (split-string load-file-name "/"))
|
||||||
(nbutlast cur-path-list)
|
(nbutlast cur-path-list)
|
||||||
(setq ROOTPATH (concat (mapconcat 'identity cur-path-list "/") "/"))
|
(setq ROOTPATH (concat (mapconcat 'identity cur-path-list "/") "/"))
|
||||||
|
@ -50,6 +55,7 @@
|
||||||
(log (format "lib : %s" LIBPATH))
|
(log (format "lib : %s" LIBPATH))
|
||||||
(log (format "plugins : %s" PLUGINPATH))
|
(log (format "plugins : %s" PLUGINPATH))
|
||||||
(log (format "templates : %s" TEMPLATESPATH))
|
(log (format "templates : %s" TEMPLATESPATH))
|
||||||
|
)
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue