Hi all -
I am trying to get JDEE to work with Ant, but I don't seem to have the
variable jde-ant-program. From looking at the archives, I need to set
this. In the interium, I have set my project up to use 'ant' as the
make program command. It works, but it doesn't parse the compile error
output. I've included my .emacs and prj.el, in case that helps.
Thanks
Marc
(global-set-key "\C-c\C-c" 'comment-region) ;have to force it for some reason
(global-set-key [\C-tab] 'yic-next-buffer) ;forward reference
(global-set-key [\C-\S-tab] 'yic-prev-buffer) ;forward reference
(setq printer-name "//w200srv/W215-OFC")
(setq ps-printer-name "//w200srv/W215-OFC")
;(setq load-path (append ("c:/tools/emacs-20.7/site-lisp"
;
"c:/tools/emacs-20.7/site-lisp/jde-2.2.7.1/lisp"
;
"~/.lisp/vm"
;
"~/.lisp/cc-mode"
;
"~/.lisp/ada-mode")))
;; (add-to-list 'load-path (expand-file-name "c:/tools/emacs-21.1/site-lisp/"))
(add-to-list 'load-path (expand-file-name
"c:/tools/emacs-21.1/site-lisp/jde-2.2.9beta12/lisp"))
(add-to-list 'load-path (expand-file-name
"c:/tools/emacs-21.1/site-lisp/semantic-1.4beta7"))
(add-to-list 'load-path (expand-file-name
"c:/tools/emacs-21.1/site-lisp/speedbar-0.14beta1"))
(add-to-list 'load-path (expand-file-name "c:/tools/emacs-21.1/site-lisp/elib-1.0"))
(add-to-list 'load-path (expand-file-name
"c:/tools/emacs-21.1/site-lisp/eieio-0.17beta1"))
(add-to-list 'load-path (expand-file-name
"c:/tools/emacs-21.1/site-lisp/EDE-1.0.beta2"))
(add-to-list 'load-path (expand-file-name "c:/tools/emacs-21.1/site-lisp/ecb-1.32"))
(add-to-list 'load-path (expand-file-name "c:/home/emacs-lisp/mmm-mode-0.4.7/"))
(require 'jde)
;; (require 'csde) ;; Get error when attempting to load
(require 'ecb)
(require 'mmm-auto)
;; html-helper-mode settings
(require 'html-helper-mode)
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
;; (setq html-helper-address-string
;; "<a href=\"http://www.santafe.edu/~nelson/\";>Nelson Minar
<[EMAIL PROTECTED]></a>")
;;; mmm-mode settings
(setq mmm-global-mode 'maybe)
(add-to-list 'mmm-mode-ext-classes-alist
'(nil "\\.jsp\\'" jsp))
(add-to-list 'mmm-mode-ext-classes-alist
'(nil "\\.inc\\'" jsp))
(set-face-background 'mmm-default-submode-face nil)
(set-face-background 'mmm-default-submode-face "paleturquoise")
(set-face-foreground 'mmm-default-submode-face "magenta4")
; (load-library "php-mode-101")
(require 'font-lock)
;; Maximum colors
(setq font-lock-maximum-decoration t)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)
(setq auto-mode-alist
(cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
(cons '("python" . python-mode)
interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(c-basic-offset 2)
'(desktop-enable t nil (desktop))
'(ecb-compile-window-height 10)
'(ecb-compile-window-temporally-enlarge nil)
'(ecb-layout-nr 9)
'(ecb-tree-expand-symbol-before t)
'(font-lock-support-mode (quote ((t . lazy-lock-mode))))
'(jde-bug-jdk-directory "c:/tools/jdk1.3.1")
'(jde-bug-vm-includes-jpda-p t)
'(jde-compile-option-classpath (quote ("c:/home/projects/classes")))
'(jde-compile-option-directory "c:/home/classes")
'(jde-compile-option-extdirs nil)
'(jde-compiler "c:/tools/jdk1.3.1/bin/javac.exe")
'(jde-db-debugger (quote ("JDEbug" "" . "Executable")))
'(jde-db-source-directories (quote ("c:/home/projects/src")))
'(jde-run-application-class "")
'(jde-run-option-classpath (quote ("c:/home/projects/classes")))
'(jde-run-read-app-args t)
'(jde-run-working-directory "c:/home/")
'(mail-host-address "mitre.org")
'(mmm-major-mode-preferences (quote ((html html-mode) (perl cperl-mode perl-mode)
(javascript javascript-mode c++-mode) (java jde-mode java-mode c++-mode) (css css-mode
c++-mode))))
'(recentf-max-saved-items 35)
'(speedbar-use-images t)
'(tab-width 2)
'(transient-mark-mode t)
'(user-full-name "Marc Brooks")
'(user-mail-address "[EMAIL PROTECTED]"))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;;
;;}}}
;;{{{ Yes or No ?
;make the y or n suffice for a yes or no question
(fset 'yes-or-no-p 'y-or-n-p)
;;}}}
;;begin buffer-switching methods, which I bind to Ctrl-TAB and Ctrl-Shift-TAB
;; ----------------------------------------------------------------------
;; Original yic-buffer.el
;; From: [EMAIL PROTECTED] (young-il choo)
;; Date: 7 Aug 90 23:39:19 GMT
;;
;; Modified
;; ----------------------------------------------------------------------
(defun yic-ignore (str)
(or
;;buffers I don't want to switch to
(string-match "\\*Buffer List\\*" str)
(string-match "^TAGS" str)
(string-match "^\\*Messages\\*$" str)
(string-match "^\\*Completions\\*$" str)
(string-match "^ " str)
;;Test to see if the window is visible on an existing visible frame.
;;Because I can always ALT-TAB to that visible frame, I never want to
;;Ctrl-TAB to that buffer in the current frame. That would cause
;;a duplicate top-level buffer inside two frames.
(memq str
(mapcar
(lambda (x)
(buffer-name
(window-buffer
(frame-selected-window x))))
(visible-frame-list)))
))
(defun yic-next (ls)
"Switch to next buffer in ls skipping unwanted ones."
(let* ((ptr ls)
bf bn go
)
(while (and ptr (null go))
(setq bf (car ptr) bn (buffer-name bf))
(if (null (yic-ignore bn)) ;skip over
(setq go bf)
(setq ptr (cdr ptr))
)
)
;;begin buffer-switching methods, which I bind to Ctrl-TAB and Ctrl-Shift-TAB
;; ----------------------------------------------------------------------
;; Original yic-buffer.el
;; From: [EMAIL PROTECTED] (young-il choo)
;; Date: 7 Aug 90 23:39:19 GMT
;;
;; Modified
;; ----------------------------------------------------------------------
(defun yic-ignore (str)
(or
;;buffers I don't want to switch to
(string-match "\\*Buffer List\\*" str)
(string-match "^TAGS" str)
(string-match "^\\*Messages\\*$" str)
(string-match "^\\*Completions\\*$" str)
(string-match "^ " str)
;;Test to see if the window is visible on an existing visible frame.
;;Because I can always ALT-TAB to that visible frame, I never want to
;;Ctrl-TAB to that buffer in the current frame. That would cause
;;a duplicate top-level buffer inside two frames.
(memq str
(mapcar
(lambda (x)
(buffer-name
(window-buffer
(frame-selected-window x))))
(visible-frame-list)))
))
(defun yic-next (ls)
"Switch to next buffer in ls skipping unwanted ones."
(let* ((ptr ls)
bf bn go
)
(while (and ptr (null go))
(setq bf (car ptr) bn (buffer-name bf))
(if (null (yic-ignore bn)) ;skip over
(setq go bf)
(setq ptr (cdr ptr))
)
)
(if go
(switch-to-buffer go))))
(defun yic-prev-buffer ()
"Switch to previous buffer in current window."
(interactive)
(yic-next (reverse (buffer-list))))
(defun yic-next-buffer ()
"Switch to the other buffer (2nd in list-buffer) in current window."
(interactive)
(bury-buffer (current-buffer))
(yic-next (buffer-list)))
;;end of yic buffer-switching methods
(if go
(switch-to-buffer go))))
(defun yic-prev-buffer ()
"Switch to previous buffer in current window."
(interactive)
(yic-next (reverse (buffer-list))))
(defun yic-next-buffer ()
"Switch to the other buffer (2nd in list-buffer) in current window."
(interactive)
(bury-buffer (current-buffer))
(yic-next (buffer-list)))
;;end of yic buffer-switching methods
(setq auto-mode-alist (append '(
("\\.pl$" . perl-mode)
("\\.sh$" . sh-mode)
("\\.cgi$" . perl-mode)
( "\\.Z$" . uncompress-while-visiting)
( "\\.z$" . uncompress-while-visiting)
( "\\.gz$" . uncompress-while-visiting)
( "\\.tar$" . tar-mode)
( "\\.mocha$" . java-mode)
( "\\.jsp$" . html-helper-mode)
( "\\.inc$" . html-helper-mode)
( "\\.htm$" . html-helper-mode)
( "\\.jad$" . java-mode)
( "\\.js$" . javascript-mode)
) auto-mode-alist))
;; add recent files to menu
(require 'recentf)
(recentf-mode 1)
;; maps Control-C R to recent file list
(global-set-key "\C-cr" 'recentf-open-files)
;; ;; adding support for C#
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;; C# Mode support
;; ;;;
;; (autoload 'csharp-mode "cc-mode")
;; (c-add-style "myC#Style"
;; '("C#"
;; (c-basic-offset . 8)
;; (c-comment-only-line-offset . (0 . 0))
;; (c-offsets-alist . (
;; (c . c-lineup-C-comments)
;; (inclass . +)
;; (namespace-open . +)
;; (namespace-close . 0)
;; (innamespace . +)
;; (class-open . +)
;; (class-close . +)
;; (inclass . +)
;; (defun-open . +)
;; (defun-block-intro . +)
;; (inline-open . -)
;; (statement-block-intro . +)
;; (statement-cont . 0)
;; (substatement-open . 0)
;; (brace-list-intro . +)
;; ))
;; ))
;; (defun my-csharp-mode-hook ()
;; (cond (window-system
;; (turn-on-font-lock)
;; (c-set-style "myC#Style")
;; )))
;; (add-hook 'csharp-mode-hook 'my-csharp-mode-hook)
;; (setq auto-mode-alist
;; (append '(
;; ("\\.cs$" . csharp-mode)
;; ) auto-mode-alist ))
;; (setq compilation-error-regexp-alist
;; (append '(
;; ;C# Compiler
;; ;t.cs(6,18): error SC1006: Name of constructor must match name of class
;; ;
;; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)[,]\\([0-9]+\\)):
\\(error\\|warning\\) CS[0-9]+:" 1
;; 3 4)
;; )
;; compilation-error-regexp-alist))
;; ;; end C# support
(put 'upcase-region 'disabled nil)
(jde-project-file-version "1.0")
(jde-set-variables
'(jde-make-args "")
'(jde-make-working-directory "c:/home/projects/ossdev/")
'(jde-run-option-classpath (quote ("c:/home/projects/ossdev/lib/cal.zip"
"c:/home/projects/ossdev/classes" "c:/home/projects/classes")))
'(jde-compiler "c:/tools/jdk1.4/bin/javac.exe")
'(jde-make-program "ant")
'(jde-compile-option-directory "c:/home/projects/ossdev/classes")
'(jde-read-make-args t)
'(jde-build-use-make t)
'(jde-setnu-mode-enable t))
