Members/kokubo/emacs: .emacs.d/inf-groovy.el annotate

author	Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date	Mon, 21 Apr 2014 04:30:59 +0900
parents
children

rev	line source
0 2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1 ;;; --Emacs-Lisp--
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	2 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	3 ;;; Stuart Clayman sclayman@ee.ucl.ac.uk
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	4 ;;; 2006-08-01 v1
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	5 ;;; 2010-04-07 v2 fixes for new groovy-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	6 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	7 ;;; Inferior Groovy Mode - groovy process in a buffer.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	8 ;;; adapted from cmuscheme.el and inf-haskell.el
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	9 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	10 ;;; Usage:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	11 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	12 ;;; (1) modify .emacs to use groovy-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	13 ;;; for example :
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	14 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	15 ;;; (autoload 'groovy-mode "groovy-mode"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	16 ;;; "Mode for editing groovy source files" t)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	17 ;;; (setq auto-mode-alist
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	18 ;;; (append '(("\\.groovy$" . groovy-mode)) auto-mode-alist))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	19 ;;; (setq interpreter-mode-alist (append '(("groovy" . groovy-mode))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	20 ;;; interpreter-mode-alist))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	21 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	22 ;;; (2) set to load inf-groovy and set inf-groovy key definition in groovy-mode.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	23 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	24 ;;; (autoload 'groovy-mode "groovy-mode" "Groovy mode." t)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	25 ;;; (autoload 'run-groovy "inf-groovy" "Run an inferior Groovy process")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	26 ;;; (autoload 'inf-groovy-keys "inf-groovy" "Set local key defs for inf-groovy in groovy-mode")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	27 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	28 ;;; (add-hook 'groovy-mode-hook
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	29 ;;; '(lambda ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	30 ;;; (inf-groovy-keys)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	31 ;;; ))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	32 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	33 ;;; ;; can set groovy-home here, if not in environment
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	34 ;;; (setq inferior-groovy-mode-hook
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	35 ;;; '(lambda()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	36 ;;; (setq groovy-home "/Users/sclayman/Downloads/groovy-1.7.1/")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	37 ;;; ))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	38 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	39 ;;; (3) execute
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	40 ;;; M-x run-groovy
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	41 ;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	42
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	43 (require 'comint)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	44 (require 'compile)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	45 (require 'groovy-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	46
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	47 ;;;; for groovy
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	48 (defvar groovy-home (getenv "GROOVY_HOME"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	49
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	50 (defvar groovy-program-name "groovysh --color=false"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	51 "*Program invoked by the run-groovy command")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	52
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	53 (defvar inferior-groovy-first-prompt-pattern "^groovy:.> "
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	54 "first prompt regex pattern of groovy interpreter.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	55
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	56 (defvar inferior-groovy-prompt-pattern "^groovy:.> "
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	57 "prompt regex pattern of groovy interpreter.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	58
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	59 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	60 ;; mode variables
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	61 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	62 (defvar inferior-groovy-mode-hook nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	63 "*Hook for customising inferior-groovy mode.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	64
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	65 (defvar inferior-groovy-mode-map nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	66 "*Mode map for inferior-groovy-mode")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	67
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	68 (defconst inferior-groovy-error-regexp-alist
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	69 '(("SyntaxError: compile error\n^\\([^\(].\\):\\([1-9][0-9]\\):" 1 2)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	70 ("^\tfrom \\([^\(].\\):\\([1-9][0-9]\\)\\(:in `.*'\\)?$" 1 2)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	71
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	72 (cond ((not inferior-groovy-mode-map)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	73 (setq inferior-groovy-mode-map
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	74 (copy-keymap comint-mode-map))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	75 ; (define-key inferior-groovy-mode-map "\M-\C-x" ;gnu convention
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	76 ; 'groovy-send-definition)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	77 ; (define-key inferior-groovy-mode-map "\C-x\C-e" 'groovy-send-last-sexp)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	78 (define-key inferior-groovy-mode-map "\C-c\C-l" 'groovy-load-file)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	79 (define-key inferior-groovy-mode-map "\C-c\C-m" 'inferior-groovy-newline-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	80 ))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	81
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	82 (defun inf-groovy-keys ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	83 "Set local key defs for inf-groovy in groovy-mode"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	84 (define-key groovy-mode-map "\M-\C-x" 'groovy-send-definition)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	85 (define-key groovy-mode-map "\C-x\C-e" 'groovy-send-last-sexp)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	86 ;;(define-key groovy-mode-map "\C-c\M-b" 'groovy-send-block)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	87 ;;(define-key groovy-mode-map "\C-c\C-b" 'groovy-send-block-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	88 (define-key groovy-mode-map "\C-c\M-d" 'groovy-send-definition)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	89 (define-key groovy-mode-map "\C-c\C-x" 'groovy-send-definition-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	90 (define-key groovy-mode-map "\C-c\C-x" 'groovy-send-definition-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	91 (define-key groovy-mode-map "\C-c\M-r" 'groovy-send-region)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	92 (define-key groovy-mode-map "\C-c\C-r" 'groovy-send-region-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	93 (define-key groovy-mode-map "\C-c\C-z" 'switch-to-groovy)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	94 (define-key groovy-mode-map "\C-c\C-l" 'groovy-load-file)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	95 (define-key groovy-mode-map "\C-c\C-s" 'run-groovy)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	96 )
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	97
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	98 (defvar groovy-buffer nil "current groovy (actually groovysh) process buffer.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	99
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	100 (defun inferior-groovy-mode ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	101 "Major mode for interacting with an inferior groovy (groovysh) process.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	102
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	103 The following commands are available:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	104 \\{inferior-groovy-mode-map}
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	105
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	106 A groovy process can be fired up with M-x run-groovy.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	107
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	108 Customisation: Entry to this mode runs the hooks on comint-mode-hook and
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	109 inferior-groovy-mode-hook (in that order).
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	110
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	111 You can send text to the inferior groovy process from other buffers containing
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	112 Groovy source.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	113 switch-to-groovy switches the current buffer to the groovy process buffer.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	114 groovy-send-definition sends the current definition to the groovy process.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	115 groovy-send-region sends the current region to the groovy process.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	116
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	117 groovy-send-definition-and-go, groovy-send-region-and-go,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	118 switch to the groovy process buffer after sending their text.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	119 For information on running multiple processes in multiple buffers, see
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	120 documentation for variable groovy-buffer.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	121
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	122 Commands:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	123 Return after the end of the process' output sends the text from the
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	124 end of process to point.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	125 Return before the end of the process' output copies the sexp ending at point
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	126 to the end of the process' output, and sends it.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	127 Delete converts tabs to spaces as it moves back.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	128 Tab indents for groovy; with argument, shifts rest
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	129 of expression rigidly with the current line.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	130 C-M-q does Tab on each line starting within following expression.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	131 Paragraphs are separated only by blank lines. # start comments.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	132 If you accidentally suspend your process, use \\[comint-continue-subjob]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	133 to continue it."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	134 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	135 (comint-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	136 ;; Customise in inferior-groovy-mode-hook
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	137 (setq comint-prompt-regexp inferior-groovy-prompt-pattern)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	138 ;; (groovy-mode-variables)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	139 (setq major-mode 'inferior-groovy-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	140 (setq mode-name "Inferior Groovy")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	141 (setq mode-line-process '(":%s"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	142 (use-local-map inferior-groovy-mode-map)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	143 (define-key inferior-groovy-mode-map "\C-c\C-m" 'inferior-groovy-newline-and-go)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	144 (setq comint-input-filter (function groovy-input-filter))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	145 (setq comint-get-old-input (function groovy-get-old-input))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	146 (setq comint-use-prompt-regexp t) ;; added v2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	147 (setq comint-process-echoes t) ;; added v2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	148 (setq comint-eol-on-send t) ;; added v2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	149 (compilation-shell-minor-mode t)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	150 (make-local-variable 'compilation-error-regexp-alist)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	151 (setq compilation-error-regexp-alist inferior-groovy-error-regexp-alist)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	152 (run-hooks 'inferior-groovy-mode-hook))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	153
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	154 (defvar inferior-groovy-filter-regexp "\\`\\s \\S ?\\S ?\\s \\'"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	155 "*Input matching this regexp are not saved on the history list.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	156 Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	157
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	158 (defun inferior-groovy-newline-and-go()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	159 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	160 (comint-send-input)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	161 (let ((proc (groovy-proc)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	162 (comint-send-string proc "go\n")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	163
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	164 (defun groovy-input-filter (str)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	165 "Don't save anything matching inferior-groovy-filter-regexp"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	166 (not (string-match inferior-groovy-filter-regexp str)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	167
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	168 ;; adapted from replace-in-string in XEmacs (subr.el)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	169 (defun remove-in-string (str regexp)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	170 "Remove all matches in STR for REGEXP and returns the new string."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	171 (let ((rtn-str "") (start 0) match prev-start)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	172 (while (setq match (string-match regexp str start))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	173 (setq prev-start start
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	174 start (match-end 0)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	175 rtn-str (concat rtn-str (substring str prev-start match))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	176 (concat rtn-str (substring str start))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	177
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	178 (defun groovy-get-old-input ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	179 "Snarf the sexp ending at point"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	180 (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	181 (let ((end (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	182 (re-search-backward inferior-groovy-first-prompt-pattern)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	183 (remove-in-string (buffer-substring (point) end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	184 inferior-groovy-prompt-pattern)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	185 )))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	186
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	187 (defun groovy-args-to-list (string)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	188 (let ((where (string-match "[ \t]" string)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	189 (cond ((null where) (list string))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	190 ((not (= where 0))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	191 (cons (substring string 0 where)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	192 (groovy-args-to-list (substring string (+ 1 where)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	193 (length string)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	194 (t (let ((pos (string-match "[^ \t]" string)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	195 (if (null pos)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	196 nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	197 (groovy-args-to-list (substring string pos
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	198 (length string)))))))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	199
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	200 (defun run-groovy (cmd)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	201 "Run an inferior Groovy process, input and output via buffer groovy.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	202 If there is a process already running in `groovy', switch to that buffer.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	203 With argument, allows you to edit the command line (default is value
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	204 of `groovy-program-name'). Runs the hooks `inferior-groovy-mode-hook'
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	205 \(after the `comint-mode-hook' is run).
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	206 \(Type \\[describe-mode] in the process buffer for a list of commands.)"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	207
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	208 (interactive (list (if current-prefix-arg
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	209 (read-string "Run Groovy: " groovy-program-name)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	210 (concat groovy-home "/bin/" groovy-program-name))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	211 (if (not (comint-check-proc "groovy"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	212 (let ((cmdlist (groovy-args-to-list cmd)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	213 (set-buffer (apply 'make-comint "groovy" (car cmdlist)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	214 nil (cdr cmdlist)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	215 (inferior-groovy-mode)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	216 ;(setq groovy-program-name cmd)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	217 (setq groovy-buffer "groovy")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	218 (pop-to-buffer "groovy")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	219 (get-buffer-process groovy-buffer)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	220 )
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	221
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	222
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	223 (defun groovy-proc ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	224 "Returns the current groovy process. See variable groovy-buffer."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	225 (let ((proc (get-buffer-process (if (eq major-mode 'inferior-groovy-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	226 (current-buffer)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	227 groovy-buffer))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	228 (or proc
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	229 (call-interactively 'run-groovy))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	230
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	231 ;;; was (error "No current process. See variable groovy-buffer"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	232
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	233 (defun groovy-send-region (start end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	234 "Send the current region to the inferior Groovy process."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	235 (interactive "r")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	236
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	237 (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	238 (save-restriction
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	239 (let (( str (concat (buffer-substring start end) "\n"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	240 (proc (groovy-proc)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	241
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	242 (with-current-buffer (process-buffer proc)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	243 (while (and
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	244 (goto-char comint-last-input-end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	245 (not (re-search-forward comint-prompt-regexp nil t))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	246 (accept-process-output proc)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	247 (goto-char (process-mark proc))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	248 (insert-before-markers str)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	249 (move-marker comint-last-input-end (point))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	250 (comint-send-string proc str)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	251 (comint-send-string proc "go\n")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	252 )
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	253 )
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	254 )))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	255
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	256
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	257
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	258 (defun groovy-send-definition ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	259 "Send the current definition to the inferior Groovy process."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	260 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	261 (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	262 (c-end-of-defun)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	263 (let ((end (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	264 (c-beginning-of-defun)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	265 (groovy-send-region (point) end))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	266
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	267 (defun groovy-send-last-sexp ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	268 "Send the previous sexp to the inferior Groovy process."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	269 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	270 (groovy-send-region (save-excursion (backward-sexp) (point)) (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	271
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	272 ;; v2. current groovy-mode does not support beginning-of-block, end-of-block
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	273 ;; (defun groovy-send-block ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	274 ;; "Send the current block to the inferior Groovy process."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	275 ;; (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	276 ;; (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	277 ;; (groovy-end-of-block)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	278 ;; (end-of-line)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	279 ;; (let ((end (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	280 ;; (groovy-beginning-of-block)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	281 ;; (groovy-send-region (point) end))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	282
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	283 (defun switch-to-groovy (eob-p)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	284 "Switch to the groovy process buffer.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	285 With argument, positions cursor at end of buffer."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	286 (interactive "P")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	287 (if (get-buffer groovy-buffer)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	288 (pop-to-buffer groovy-buffer)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	289 (error "No current process buffer. See variable groovy-buffer."))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	290 (cond (eob-p
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	291 (push-mark)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	292 (goto-char (point-max)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	293
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	294 (defun groovy-send-region-and-go (start end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	295 "Send the current region to the inferior Groovy process.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	296 Then switch to the process buffer."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	297 (interactive "r")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	298 (groovy-send-region start end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	299
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	300 (switch-to-groovy t))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	301
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	302 (defun groovy-send-definition-and-go ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	303 "Send the current definition to the inferior Groovy.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	304 Then switch to the process buffer."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	305 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	306 (groovy-send-definition)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	307 (switch-to-groovy t))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	308
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	309 ;; (defun groovy-send-block-and-go ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	310 ;; "Send the current block to the inferior Groovy.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	311 ;; Then switch to the process buffer."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	312 ;; (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	313 ;; (groovy-send-block)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	314 ;; (switch-to-groovy t))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	315
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	316 (defvar groovy-source-modes '(groovy-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	317 "*Used to determine if a buffer contains Groovy source code.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	318 If it's loaded into a buffer that is in one of these major modes, it's
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	319 considered a groovy source file by groovy-load-file.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	320 Used by these commands to determine defaults.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	321
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	322 (defvar groovy-prev-l/c-dir/file nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	323 "Caches the last (directory . file) pair.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	324 Caches the last pair used in the last groovy-load-file command.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	325 Used for determining the default in the
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	326 next one.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	327
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	328 (defun groovy-load-file (file-name)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	329 "Load a Groovy file into the inferior Groovy process."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	330 (interactive (comint-get-source "Load Groovy file: " groovy-prev-l/c-dir/file
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	331 groovy-source-modes t)) ; T because LOAD
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	332 ; needs an exact name
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	333 (comint-check-source file-name) ; Check to see if buffer needs saved.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	334 (setq groovy-prev-l/c-dir/file (cons (file-name-directory file-name)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	335 (file-name-nondirectory file-name)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	336 (comint-send-string (groovy-proc) (concat "\\i "
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	337 file-name
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	338 "\n")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	339 ;;; Do the user's customisation...
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	340
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	341 (defvar inf-groovy-load-hook nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	342 "This hook is run when inf-groovy is loaded in.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	343 This is a good place to put keybindings.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	344
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	345 (run-hooks 'inf-groovy-load-hook)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	346
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	347 (provide 'inf-groovy)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	348
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	349 ;;; inf-groovy.el ends here

0

2764b4f45f9f 1st commit