shit-mode functionallity skel done.
This commit is contained in:
parent
ed5f2574a0
commit
9991be174d
|
@ -48,4 +48,4 @@
|
||||||
;; (define-key-after global-map [menu-bar file new-proj phpproj] (cons "PHP" (make-sparse-keymap "php-proj")) 'pyproj)
|
;; (define-key-after global-map [menu-bar file new-proj phpproj] (cons "PHP" (make-sparse-keymap "php-proj")) 'pyproj)
|
||||||
)
|
)
|
||||||
|
|
||||||
(init-menu)
|
(menu/init-menu)
|
|
@ -1,4 +1,4 @@
|
||||||
fff;; Shit - My personal emacs IDE configuration
|
;; Shit - 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
|
||||||
|
@ -41,7 +41,8 @@ fff;; Shit - My personal emacs IDE configuration
|
||||||
(defvar shit-map (make-sparse-keymap)
|
(defvar shit-map (make-sparse-keymap)
|
||||||
"Default keymap for shit-mode minor mode that hold the global key
|
"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
|
binding for shit IDE. each language plugin will have their own minor-mode
|
||||||
and keymap for their actions.")
|
and keymap for their actions."
|
||||||
|
)
|
||||||
|
|
||||||
;; ---------------------------------------------------------------------
|
;; ---------------------------------------------------------------------
|
||||||
;; Groups
|
;; Groups
|
||||||
|
@ -64,6 +65,13 @@ and keymap for their actions.")
|
||||||
:tag '"C Plugin")
|
:tag '"C Plugin")
|
||||||
|
|
||||||
;; ----------------------------------------------------------------------
|
;; ----------------------------------------------------------------------
|
||||||
|
;; Functions
|
||||||
|
;; ----------------------------------------------------------------------
|
||||||
|
(defun tmplog () ""
|
||||||
|
(interactive)
|
||||||
|
(log ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
|
||||||
|
)
|
||||||
|
;; ----------------------------------------------------------------------
|
||||||
;; Minor Modes
|
;; Minor Modes
|
||||||
;; ----------------------------------------------------------------------
|
;; ----------------------------------------------------------------------
|
||||||
(define-minor-mode shit-mode
|
(define-minor-mode shit-mode
|
||||||
|
@ -71,7 +79,7 @@ and keymap for their actions.")
|
||||||
This mode provide a basic configuration for an IDE."
|
This mode provide a basic configuration for an IDE."
|
||||||
:init-value nil
|
:init-value nil
|
||||||
:lighter " Shit"
|
:lighter " Shit"
|
||||||
:keymap 'shit-map
|
:keymap shit-map
|
||||||
:global t
|
:global t
|
||||||
:group 'shit-group
|
:group 'shit-group
|
||||||
|
|
||||||
|
@ -80,7 +88,7 @@ This mode provide a basic configuration for an IDE."
|
||||||
(let ()
|
(let ()
|
||||||
;; before initiazing mode
|
;; before initiazing mode
|
||||||
(run-hooks shit-preinit-mode-hook)
|
(run-hooks shit-preinit-mode-hook)
|
||||||
|
(define-key shit-map (kbd "\C-c \C-c") 'tmplog)
|
||||||
;; after mode was initialized
|
;; after mode was initialized
|
||||||
(run-hooks shit-postinit-mode-hook)
|
(run-hooks shit-postinit-mode-hook)
|
||||||
)
|
)
|
||||||
|
|
|
@ -108,16 +108,14 @@ function."
|
||||||
(defun start-shit ()
|
(defun start-shit ()
|
||||||
"A peace of shit configuration that tune emacs to be an IDE."
|
"A peace of shit configuration that tune emacs to be an IDE."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (/= shit-mode 1)
|
|
||||||
(progn
|
(let ()
|
||||||
(setq shit-mode 1)
|
(log "Starting shit mode . . .")
|
||||||
(log "Starting shit mode . . .")
|
(init-shit)
|
||||||
(init-shit)
|
(load-dir LIBPATH)
|
||||||
(load-dir LIBPATH)
|
(load-dir PLUGINPATH)
|
||||||
(load-dir PLUGINPATH)
|
;;(load-lib "menu.el")
|
||||||
;;(load-lib "menu.el")
|
)
|
||||||
)
|
|
||||||
)
|
|
||||||
)
|
)
|
||||||
|
|
||||||
(start-shit)
|
(start-shit)
|
||||||
|
|
Loading…
Reference in New Issue