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

modes.el cleaned

This commit is contained in:
Sameer Rahmani 2011-01-03 09:21:37 +03:30
parent dbac9c9125
commit b10c5e0f71
2 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/menu.el
View File

@ -1,4 +1,4 @@
;; Kuso - My personal emacs IDE configuration ;; Kuso - My personal emacs IDE
;; 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

60
src/lib/modes.el
View File

@ -1,4 +1,4 @@
;; Shit - My personal emacs IDE configuration ;; Kuso - My personal emacs IDE
;; 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
@ -14,45 +14,45 @@
;; You should have received a copy of the GNU General Public License ;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; This file will define the most popular modes for ShitIDE ;; This file will define the most popular modes for KusoIDE
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
;; Hooks ;; Hooks
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
(defvar shit-preinit-mode-hook '() (defvar kuso-preinit-mode-hook '()
"This hook runs before initializing the 'shit-mode' minor mode." "This hook runs before initializing the 'kuso-mode' minor mode."
) )
(defvar shit-postinit-mode-hook '() (defvar kuso-postinit-mode-hook '()
"This hook runs after 'shit-mode' minor mode initialized." "This hook runs after 'kuso-mode' minor mode initialized."
) )
(defvar shit-prerm-mode-hook '() (defvar kuso-prerm-mode-hook '()
"This hook runs before deactivating 'shit-mode' minor mode." "This hook runs before deactivating 'kuso-mode' minor mode."
) )
(defvar shit-postrm-mode-hook '() (defvar kuso-postrm-mode-hook '()
"This hook runs after 'shit-mode' minor mode deactivated." "This hook runs after 'kuso-mode' minor mode deactivated."
) )
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
;; Keymaps ;; Keymaps
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
(defvar shit-map (make-sparse-keymap) (defvar kuso-map (make-sparse-keymap)
"Default keymap for shit-mode minor mode that hold the global key "Default keymap for kuso-mode minor mode that hold the global key
binding for Shit IDE. each language plugin will have their own minor-mode binding for Kuso IDE. each language plugin will have their own minor-mode
and keymap for their actions." and keymap for their actions."
) )
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
;; Groups ;; Groups
;; --------------------------------------------------------------------- ;; ---------------------------------------------------------------------
(defgroup shit-group nil (defgroup kuso-group nil
"Default values for ShitIDE configuration will are categorized here.") "Default values for KusoIDE configuration will are categorized here.")
(defgroup shit-features nil (defgroup kuso-features nil
"This group contains all the optional components of ShitIDE." "This group contains all the optional components of KusoIDE."
:group 'shit-group :group 'kuso-group
) )
@ -63,37 +63,37 @@ and keymap for their actions."
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
;; Minor Modes ;; Minor Modes
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
(define-minor-mode shit-mode (define-minor-mode kuso-mode
"Toggle Shit mode. "Toggle Kuso mode.
This mode provide a basic configuration for an IDE." This mode provide a basic configuration for an IDE."
:lighter " Shit" :lighter " Kuso"
:keymap shit-map :keymap kuso-map
:global t :global t
:group 'shit-group :group 'kuso-group
(if shit-mode (if kuso-mode
;; shit-mode is not loaded ;; kuso-mode is not loaded
(let () (let ()
;; before initiazing mode ;; before initiazing mode
(run-hooks shit-preinit-mode-hook) (run-hooks kuso-preinit-mode-hook)
;; i really found toolbar and scrollbar useless so i disabled them ;; i really found toolbar and scrollbar useless so i disabled them
(if tool-bar-mode (tool-bar-mode)) (if tool-bar-mode (tool-bar-mode))
(if scroll-bar-mode (scroll-bar-mode)) (if scroll-bar-mode (scroll-bar-mode))
(menu/init-menu) (menu/init-menu)
;; after mode was initialized ;; after mode was initialized
(run-hooks shit-postinit-mode-hook) (run-hooks kuso-postinit-mode-hook)
) )
;; shit-mode already loaded ;; kuso-mode already loaded
(let () (let ()
;; before deactivating mode ;; before deactivating mode
(run-hooks shit-prerm-mode-hook) (run-hooks kuso-prerm-mode-hook)
;; return everything to normal ;; return everything to normal
(if (not tool-bar-mode) (tool-bar-mode)) (if (not tool-bar-mode) (tool-bar-mode))
(if (not scroll-bar-mode) (scroll-bar-mode)) (if (not scroll-bar-mode) (scroll-bar-mode))
(menu/destruct-menu) (menu/destruct-menu)
;; after deactivating mode ;; after deactivating mode
(run-hooks shit-postrm-mode-hook) (run-hooks kuso-postrm-mode-hook)
) )
) )
) )