diff --git a/src/lib/menu.el b/src/lib/menu.el index 5a1e8ea..edf8904 100644 --- a/src/lib/menu.el +++ b/src/lib/menu.el @@ -48,4 +48,4 @@ ;; (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 +(menu/init-menu) \ No newline at end of file diff --git a/src/lib/modes.el b/src/lib/modes.el index 61e8f3c..54bc348 100644 --- a/src/lib/modes.el +++ b/src/lib/modes.el @@ -1,4 +1,4 @@ -fff;; Shit - My personal emacs IDE configuration +;; Shit - My personal emacs IDE configuration ;; Copyright (C) 2010 Sameer Rahmani ;; ;; This program is free software: you can redistribute it and/or modify @@ -41,7 +41,8 @@ fff;; Shit - My personal emacs IDE configuration (defvar shit-map (make-sparse-keymap) "Default keymap for shit-mode minor mode that hold the global key binding for shit IDE. each language plugin will have their own minor-mode -and keymap for their actions.") +and keymap for their actions." +) ;; --------------------------------------------------------------------- ;; Groups @@ -64,6 +65,13 @@ and keymap for their actions.") :tag '"C Plugin") ;; ---------------------------------------------------------------------- +;; Functions +;; ---------------------------------------------------------------------- +(defun tmplog () "" + (interactive) + (log ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>") + ) +;; ---------------------------------------------------------------------- ;; Minor Modes ;; ---------------------------------------------------------------------- (define-minor-mode shit-mode @@ -71,7 +79,7 @@ and keymap for their actions.") This mode provide a basic configuration for an IDE." :init-value nil :lighter " Shit" - :keymap 'shit-map + :keymap shit-map :global t :group 'shit-group @@ -80,7 +88,7 @@ This mode provide a basic configuration for an IDE." (let () ;; before initiazing mode (run-hooks shit-preinit-mode-hook) - + (define-key shit-map (kbd "\C-c \C-c") 'tmplog) ;; after mode was initialized (run-hooks shit-postinit-mode-hook) ) diff --git a/src/shit-ide.el b/src/shit-ide.el index 8ecf505..8c896b9 100644 --- a/src/shit-ide.el +++ b/src/shit-ide.el @@ -108,16 +108,14 @@ function." (defun start-shit () "A peace of shit configuration that tune emacs to be an IDE." (interactive) - (if (/= shit-mode 1) - (progn - (setq shit-mode 1) - (log "Starting shit mode . . .") - (init-shit) - (load-dir LIBPATH) - (load-dir PLUGINPATH) - ;;(load-lib "menu.el") - ) - ) + + (let () + (log "Starting shit mode . . .") + (init-shit) + (load-dir LIBPATH) + (load-dir PLUGINPATH) + ;;(load-lib "menu.el") + ) ) (start-shit)