diff --git a/src/lib/menu.el b/src/lib/menu.el index 4d0f271..19ea21a 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -14,29 +14,6 @@ ;; 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 pymenu () "draw python project menu" ;; Python submenu @@ -69,8 +46,7 @@ (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) (elmenu) ) diff --git a/src/plugins/cproject.el b/src/plugins/cproject.el index f098713..3507b93 100644 --- a/src/plugins/cproject.el +++ b/src/plugins/cproject.el @@ -44,5 +44,7 @@ ) (defun generic-c () "Create a generic type C project" + (interactive) (c-new-project) -) \ No newline at end of file +) +(init-menus) \ No newline at end of file diff --git a/src/shit-ide.el b/src/shit-ide.el index bf61c50..e4fc4e0 100644 --- a/src/shit-ide.el +++ b/src/shit-ide.el @@ -32,6 +32,8 @@ (setq filelist (file-expand-wildcards load-elc)) (setq tmp (file-expand-wildcards load-el)) (setq filelist (append filelist tmp)) + (log (format "%s libraries found" filelist)) + ;; TODO: delete unkown filetypes from filelist (setq filelist (mapcar 'strip-el-ext filelist)) (mapcar 'load filelist) )