diff --git a/src/lib/menu.el b/src/lib/menu.el index 92967a7..e7cb5f6 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -14,16 +14,47 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . +(defun cmenu () "draw c project menu" + ;; C/C++ submenus + (define-key global-map [Ctrl-x p c k ] 'kmodule) + (define-key global-map [menu-bar file new-proj cproj kmodule] '("Kernel Module" . kmodule)) + + (define-key global-map [menu-bar file new-proj cproj separator2] '("--")) + + (define-key global-map [Ctrl-x p c n ] 'make-cpp) + (define-key global-map [menu-bar file new-proj cproj cpp-make] '("Make project (C++)" . make-cpp)) + + (define-key global-map [Ctrl-x p c m ] 'make-c) + (define-key global-map [menu-bar file new-proj cproj c-make] '("Make project (C)" . make-c)) + + (define-key global-map [menu-bar file new-proj cproj separator1] '("--")) + + (define-key global-map [Ctrl-x p c p ] 'generic-cpp) + (define-key global-map [menu-bar file new-proj cproj cppgeneric] '("Generic project (C++)" . generic-cpp)) + + + (define-key global-map [Ctrl-x p c g] 'generic-c) + (define-key global-map [menu-bar file new-proj cproj cgeneric] '("Generic project (C)" . generic-c)) +) + + + + (defun init-menu () "Initializing Shit IDE menu" (log "Initinalizing Menus . . .") + ;; New Project Menu (define-key-after global-map [menu-bar file new-proj] (cons "New Project" (make-sparse-keymap "new project")) 'new-file) + + ;; New Project sub menus (define-key-after global-map [menu-bar file new-proj cproj] (cons "C/C++" (make-sparse-keymap "c-cpp-proj"))) (define-key-after global-map [menu-bar file new-proj pyproj] (cons "Python" (make-sparse-keymap "python-proj")) 'cproj) (define-key-after global-map [menu-bar file new-proj elproj] (cons "Elisp" (make-sparse-keymap "el-proj")) 'phpproj) (define-key-after global-map [menu-bar file new-proj jproj] (cons "Java" (make-sparse-keymap "j-proj")) 'elproj) (define-key-after global-map [menu-bar file new-proj jsproj] (cons "JS" (make-sparse-keymap "js-proj")) 'jproj) (define-key-after global-map [menu-bar file new-proj phpproj] (cons "PHP" (make-sparse-keymap "php-proj")) 'pyproj) - + + (cmenu) + (pymenu) ) (init-menu) \ No newline at end of file