some improvments
This commit is contained in:
parent
28f1ae2531
commit
3208e9a440
1
TODO
1
TODO
|
@ -4,5 +4,6 @@
|
||||||
* 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
|
* Add a config file for user to put his/her configuration there
|
||||||
|
* Disable EDE and other unused menu
|
||||||
* Allow templates file to store in subdirectories so new project can
|
* Allow templates file to store in subdirectories so new project can
|
||||||
have subdirectories
|
have subdirectories
|
|
@ -96,6 +96,7 @@
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
(defun insert-license ()
|
(defun insert-license ()
|
||||||
"Return the prepared license string."
|
"Return the prepared license string."
|
||||||
(if project-license
|
(if project-license
|
||||||
|
|
|
@ -45,6 +45,23 @@
|
||||||
(new-project)
|
(new-project)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
|
(defun compile ()
|
||||||
|
"Run the make command and return the putput"
|
||||||
|
(interactive)
|
||||||
|
(let (output)
|
||||||
|
(setq output (shell-command-to-string "make"))
|
||||||
|
(message output)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
(defun init-key-bindings ()
|
||||||
|
"Initialize the required key bindings for C/C++ project."
|
||||||
|
(define-key c-mode (kbd "\C-c \C-c") 'compile)
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
(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)
|
||||||
|
@ -60,5 +77,10 @@
|
||||||
(project/write-dest-file cur template-data)
|
(project/write-dest-file cur template-data)
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
(cd project-path)
|
||||||
|
(init-key-bindings)
|
||||||
|
(find-file (concat unix-project-name ".c"))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
(init-menus)
|
(init-menus)
|
Loading…
Reference in New Issue