On Tue, 8 Feb 2000, Ted Guild wrote:

> Trying to get JDEbug on Linux with Sun's 1.2 JDK to work.
> 
> Could someone who has it working send their JDE (and environment)
> settings from their .emacs? 
> 
> using:
> 
> emacs 20.4
> sun's jdk 1.2 rc2
> jde 2.1.6 beta 17
> 

Hi Ted,
    I have the same environment as you, I have attached my .emacs file,
please excuse all the junk in there.
JDK is installed in /opt/jdk1.2.2 on my system,
JDE-2.1.6beta17 is linked to at /home/markg/elisp/jde-latest
and the JDK API's are in /home/common/java/docs/api.

so if you copy the relevant stuff and change the paths it should work fine
(including JDEBug), well it does for me.

- Mark.

(server-start)

;; Custom key bindings

;; Sort out BS/DEL probs
(global-unset-key [backspace] )
(global-set-key [backspace] 'delete-backward-char)
(global-unset-key [delete] )
(global-set-key [delete] 'delete-char)

;; Meta-key is mapped to the Left Windows key for WM use.

;; Remove conflicting Meta keys -- DOESN'T WORK
;; Ideally swapping Meta and Alt would be better - but how?
;(global-unset-key [M-left] )
;(global-unset-key [M-right] )
;(global-unset-key [C-M-delete] )
;(global-unset-key [M-x] )

;; Add Alt keys
(global-set-key [A-x] 'execute-extended-command )
(global-set-key [C-A-backspace] 'backward-kill-sexp )
(global-set-key [A-left] 'backward-word )
(global-set-key [A-right] 'forward-word )

;; These really need to be in jde-mode only
(global-set-key [f5] 'jde-bug-step-over )
(global-set-key [f6] 'jde-bug-step-into )
(global-set-key [f7] 'jde-bug-step-out )
(global-set-key [f8] 'jde-bug-continue )

;; Add search paths for elisp packages
(setq load-path (cons "/home/markg/elisp" load-path))
(setq load-path (cons "/home/markg/elisp/jde-latest/lisp" load-path))
(setq load-path (cons "/home/markg/elisp/speedbar-0.8.1" load-path))
(setq load-path (cons "/home/markg/elisp/EDE-0.6" load-path))
(setq load-path (cons "/home/markg/elisp/eieio-0.14.1" load-path))
(setq load-path (cons "/home/markg/elisp/jutils" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))

;; Turn highlighting on
(global-font-lock-mode)

;; Highlighting for idl
(require 'idl-font-lock)

;; Add wheel mouse support
(require 'mwheel)

;; Add auto-modes
(setq auto-mode-alist
      (append '(("\\.java$"   . jde-mode)
                ("\\.todo$"   . todo-mode)
                ("\\.[hg]s$"  . haskell-mode)
                ("\\.hi$"     . haskell-mode)
                ("\\.l[hg]s$" . literate-haskell-mode)
                ("\\.g$"      . antlr-mode)
                ) auto-mode-alist))

;; Add autoload modes
(autoload 'jde-mode "jde" "Java Development Environment." t)
(autoload 'todo-mode "todo" "Mode for editing a TODO list." t)
(autoload 'multi-mode "multi-mode" "Allow multiple major modes in a buffer." t)
(autoload 'haskell-mode "haskell-mode" "Haskell script mode." t)
(autoload 'literate-haskell-mode "haskell-mode" "Literate-Haskell mode." t)
(autoload 'antlr-mode "antlr-mode" "ANTLR grammar mode." t)

(add-hook 'haskell-mode-hook 'turn-on-haskell-font-lock)
(add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan)
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
(add-hook 'haskell-mode-hook 'turn-on-haskell-hugs)

;; Emacs/W3 Configuration 
; (condition-case () (require 'w3-auto "w3-auto") (error nil))

;; Speedbar
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)

(define-key-after (lookup-key global-map [menu-bar tools])
  [speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])

;; Stuff for JDE
;(require 'jsee)
;(require 'jdok)
;(require 'jmaker)
;(require 'jpack)

;(defun javadoc-mode () (interactive)
;  (multi-mode 1
;             'jde-mode
;             '("/***" html-mode)
;             '("*/" jde-mode)))

;(setq auto-mode-alist
;      (cons '("\\.java$" . javadoc-mode)
;           auto-mode-alist))

(custom-set-variables
 '(jde-run-option-properties (quote (("java.compiler" . "NONE"))))
 '(url-be-asynchronous t)
 '(ps-print-only-one-header t)
 '(ps-top-margin 24)
 '(jde-compile-option-depend t)
 '(ps-header-offset 18)
 '(jde-help-docsets (quote (("javadoc" "/home/common/java/docs/api" nil))))
 '(jde-run-applet-viewer "appletviewer")
 '(jde-bug-jre-home "/opt/jdk1.2.2/jre")
 '(jde-compile-option-debug (quote ("all" (t t nil))))
 '(jde-compile-option-target (quote ("1.2")))
 '(ps-left-margin 24)
 '(jde-compile-option-depend-switch (quote ("-Xdepend")))
 '(url-privacy-level (quote (os agent)))
 '(jde-compile-option-sourcepath (quote ("/home/markg/prj")))
 '(w3-use-terminal-glyphs t)
 '(ps-number-of-columns 2)
 '(w3-do-incremental-display t)
 '(comint-input-ignoredups t)
 '(jde-bug-jdk-directory "/opt/jdk1.2.2/")
 '(jde-build-use-make t)
 '(jde-quote-classpath nil)
 '(ps-landscape-mode t)
 '(jde-run-read-app-args t)
 '(jde-db-source-directories (quote ("/home/markg/prj/" "/home/common/java/src/" 
"/usr/local/antlr/antlr")))
 '(jde-db-set-initial-breakpoint t)
 '(ps-paper-type (quote a4) t)
 '(jde-jdk-doc-url "file:/home/common/java/docs/index.html")
 '(jde-db-debugger (quote ("jdebug" . "Class")))
 '(w3-notify (quote newframe))
 '(jde-global-classpath (quote ("/home/markg/prj" "/usr/local/antlr")))
 '(ps-inter-column 24)
 '(jde-db-read-app-args t)
 '(jde-bug-jpda-directory "/opt/jdk1.2.2/")
 '(ps-right-margin 24)
 '(vc-default-init-version "0.1")
 '(ps-header-line-pad 0.1)
 '(ps-bottom-margin 24)
 '(w3-use-terminal-characters t))
(custom-set-faces)

Reply via email to