From 03d82a841ee91a3269d1d6ca2f521d8d02406a28 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Sun, 2 Jan 2011 16:44:43 +0330 Subject: [PATCH] recoding began --- src/lib/menu.el | 17 +++++++---------- src/lib/modes.el | 2 +- src/shit-ide.el | 1 - 3 files changed, 8 insertions(+), 12 deletions(-) diff --git a/src/lib/menu.el b/src/lib/menu.el index 19ea21a..5a1e8ea 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -34,21 +34,18 @@ ) -(defun init-menu () "Initializing Shit IDE menu" +(defun menu/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) - - (pymenu) - (elmenu) +;; (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) ) (init-menu) \ No newline at end of file diff --git a/src/lib/modes.el b/src/lib/modes.el index a93538c..fab7c15 100644 --- a/src/lib/modes.el +++ b/src/lib/modes.el @@ -57,6 +57,6 @@ This mode provide a basic configuration for an IDE." :group 'shit-group (if (not shit-mode) - + (menu/init-menu) ) ) \ No newline at end of file diff --git a/src/shit-ide.el b/src/shit-ide.el index 2f135cf..29d73de 100644 --- a/src/shit-ide.el +++ b/src/shit-ide.el @@ -14,7 +14,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . -(setq shit-mode 0) (setq DEBUG 1) (setq ROOTPATH nil) (setq LIBPATH nil)