FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

menu library cleaned

This commit is contained in:
Sameer Rahmani 2011-01-03 09:18:02 +03:30
parent 070e83e668
commit dbac9c9125
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/lib/menu.el
View File

@ -1,4 +1,4 @@
;; Shit - My personal emacs IDE configuration ;; Kuso - My personal emacs IDE configuration
;; Copyright (C) 2010 Sameer Rahmani <lxsameer@gnu.org> ;; Copyright (C) 2010 Sameer Rahmani <lxsameer@gnu.org>
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
@ -28,15 +28,15 @@
(defun elmenu () "draw elisp project menu" (defun elmenu () "draw elisp project menu"
;; Elisp menu ;; Elisp menu
(define-key global-map [Ctrl-x p e s] 'shit-plugin) (define-key global-map [Ctrl-x p e s] 'kuso-plugin)
(define-key global-map [menu-bar file new-proj elproj splug] '("Shit plugin" . shit-plugin)) (define-key global-map [menu-bar file new-proj elproj splug] '("Kuso plugin" . kuso-plugin))
(define-key global-map [Ctrl-x p e g] 'elgeneric) (define-key global-map [Ctrl-x p e g] 'elgeneric)
(define-key global-map [menu-bar file new-proj elproj elgeneric] '("Generic project" . elgeneric)) (define-key global-map [menu-bar file new-proj elproj elgeneric] '("Generic project" . elgeneric))
) )
(defun menu/init-menu () "Initializing Shit IDE menu" (defun menu/init-menu () "Initializing Kuso IDE menu"
;; New Project Menu ;; New Project Menu
(define-key-after global-map [menu-bar file new-proj] (cons "New Project" (make-sparse-keymap "new project")) 'new-file) (define-key-after global-map [menu-bar file new-proj] (cons "New Project" (make-sparse-keymap "new project")) 'new-file)
;; New Project sub menus ;; New Project sub menus
@ -51,7 +51,7 @@
) )
(defun menu/destruct-menu () (defun menu/destruct-menu ()
"Remove Shit provided menu form emacs menus" "Remove Kuso provided menu form emacs menus"
(global-unset-key [menu-bar file new-proj]) (global-unset-key [menu-bar file new-proj])
) )