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

syncdb done with comint

This commit is contained in:
lxsameer 2011-05-23 13:45:51 +04:30
parent 47dedf1263
commit b39c891585
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,6 +17,12 @@
;; django plugin ;; django plugin
(require 'cl) (require 'cl)
(require 'comint)
;; -------------------------------------------------------------------
;; Constant
;; -------------------------------------------------------------------
(defconst *python* "/usr/bin/python")
;; ------------------------------------------------------------------- ;; -------------------------------------------------------------------
;; Variables ;; Variables
@ -96,6 +102,7 @@ binding for Kuso IDE django plugin"
(setq project-path (read-directory-name "Project source tree: ")) (setq project-path (read-directory-name "Project source tree: "))
) )
(defun manage-command (buffername command-process-name command) (defun manage-command (buffername command-process-name command)
"Run the given command in e new buffer." "Run the given command in e new buffer."
(let (fullcommand lastslash) (let (fullcommand lastslash)
@ -106,12 +113,11 @@ binding for Kuso IDE django plugin"
(ansi-color-for-comint-mode-on) (ansi-color-for-comint-mode-on)
(switch-to-buffer newcommand-buffer) (switch-to-buffer newcommand-buffer)
(add-hook 'after-change-functions 'buffer-change-colorizing t t) (add-hook 'after-change-functions 'buffer-change-colorizing t t)
(setq lastslash (substring project-path (- (length project-path) 1) (length project-path))) (setq fullcommand (expand-file-name "manage.py" project-path))
(message lastslash) ;;(setq fullcommand (concat fullcommand " " command))
(if (not (string= lastslash "/")) (setq project-path (concat project-path "/")))
(setq fullcommand (concat "python " project-path "manage.py " command))
(message fullcommand) (message fullcommand)
(setq commandp (start-process-shell-command command-process-name newcommand-buffer fullcommand)) ;;(setq commandp (start-process-shell-command command-process-name newcommand-buffer fullcommand))
(setq commandp (apply 'make-comint-in-buffer command-process-name newcommand-buffer *python* nil (list fullcommand command)))
) )
) )
@ -119,7 +125,10 @@ binding for Kuso IDE django plugin"
"Run the django syndb" "Run the django syndb"
(interactive) (interactive)
(let (params) (let (params)
(setq params (concat "syncdb " extra)) (if (not (string= extra ""))
(setq params (concat "syncdb " extra))
(setq params "syncdb")
)
(manage-command "*Syncdb*" "syncdb" params) (manage-command "*Syncdb*" "syncdb" params)
) )
) )
@ -139,7 +148,10 @@ binding for Kuso IDE django plugin"
"Run the project development server in a new buffer" "Run the project development server in a new buffer"
(interactive) (interactive)
(let (params) (let (params)
(setq params (concat "runserver " extra)) (if (not (string= extra ""))
(setq params (concat "runserver " extra))
(setq params "runserver")
)
(manage-command "*Runserver*" "Runserver" params) (manage-command "*Runserver*" "Runserver" params)
) )
) )