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

menus added

This commit is contained in:
lxsameer 2011-05-23 02:35:56 +04:30
parent 166eac6f30
commit 9c7b7704e4
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/modes/django-mode.el
View File

@ -65,22 +65,23 @@ binding for Kuso IDE django plugin"
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
(defun init-keymap () (defun init-keymap ()
"Initialize the keymap for django plugin." "Initialize the keymap for django plugin."
;;(define-key django-map (kbd "\C-x p d") 'django-region) (define-key django-map (kbd "<f6>") 'django-runserver)
;; (define-key django-map (kbd "\C-x p f") 'django-buffer) ;; (define-key django-map (kbd "\C-x p f") 'django-buffer)
) )
(defun init-menus () (defun init-menus ()
"Initialize menu entry for django plugin." "Initialize menu entry for django plugin."
;; (define-key-after global-map [menu-bar edit sep1] '("--") 'paste-from-menu) (define-key-after global-map [menu-bar django] (cons "Django" (make-sparse-keymap "django-map")))
;; (define-key-after global-map [menu-bar edit djangoreg] '("Django Selected" . django-region) 'sep1)
;; (define-key-after global-map [menu-bar edit djangobuf] '("Django Buffer" . django-buffer) 'djangoreg) (define-key-after global-map [menu-bar django runserver] '("Development Server" . django-runserver))
(define-key-after global-map [menu-bar django runserver-extra] '("Development Server Extended" . django-runserver-extra) 'runserver)
(define-key-after global-map [menu-bar django sep2] '("--") 'runserver-extra)
;; (define-key-after global-map [menu-bar edit sep2] '("--") 'djangobuf)
) )
(defun destruct-menus () (defun destruct-menus ()
"Remove menus from menubar" "Remove menus from menubar"
;; (global-unset-key [menu-bar edit sep1]) (global-unset-key [menu-bar django])
;; (global-unset-key [menu-bar edit sep2]) ;; (global-unset-key [menu-bar edit sep2])
;; (global-unset-key [menu-bar edit djangoreg]) ;; (global-unset-key [menu-bar edit djangoreg])
;; (global-unset-key [menu-bar edit djangobuf]) ;; (global-unset-key [menu-bar edit djangobuf])
@ -95,7 +96,7 @@ binding for Kuso IDE django plugin"
"colorizing the region from start to end." "colorizing the region from start to end."
(ansi-color-apply-on-region start end) (ansi-color-apply-on-region start end)
) )
(defun* django-runserver (&optional (extra "")) (defun* django-runserver (&optional (extra ""))
"Run the project development server in a new buffer" "Run the project development server in a new buffer"
(interactive) (interactive)
@ -117,7 +118,7 @@ binding for Kuso IDE django plugin"
(interactive "sEnter extra arguments for runserver: ") (interactive "sEnter extra arguments for runserver: ")
(django-runserver args) (django-runserver args)
) )
(django-runserver
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
;; Minor Modes ;; Minor Modes
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
@ -136,6 +137,7 @@ GNUEmacs."
;; before initiazing mode ;; before initiazing mode
(run-hooks 'django-preinit-hook) (run-hooks 'django-preinit-hook)
(init-keymap) (init-keymap)
(message "sdfsdfsdf")
(init-menus) (init-menus)
;;(put 'django-region 'menu-enable nil) ;;(put 'django-region 'menu-enable nil)
;;(force-mode-line-update) ;;(force-mode-line-update)