Mark,
Thank you. Got mine working over lunch, but without the JDEbug menu
only mention I found in release notes for this variable was dated for
beta5 release and it didn't work.
'(jde-db-debugger (quote ("jdb" . "Class")))
Got it so I could involk M-x jde-bug-debug-app but with no menu with
'(jde-db-debugger (quote ("jde.debugger.Jdebug" . "Class")))
Got the menu to appear by using what you use
'(jde-db-debugger (quote ("jdebug" . "Class")))
Got some other goodies (jde and other) from your dot emacs to play
with. Put mine at the end in case there is anything of interest for
you.
Again thanks.
Ted
>From: Mark Gibson <[EMAIL PROTECTED]>
>
>
>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)
;;Ted Guild's [EMAIL PROTECTED] .emacs file
;;to byte comile this file M-x set-variable byte-compile-dynamic-docstring nil
;some things are commented out for sake of load time
;;where all my lisp files reside
(setq load-path (append load-path '("~/elisp")))
(setq load-path (append load-path '("~/elisp/elib")))
(setq load-path (append load-path '("~/elisp/eieio-0.12")))
(setq load-path (append load-path '("~/elisp/zenirc")))
;;who wants to type out "yes" all the time?
;;actually develops bad habits for when not in your ideal emacs env
;;(fset 'yes-or-no-p 'y-or-n-p)
;;FFAP find file at point dired, urls in e-mail, etc to browser
(require 'ffap) ; load the package
(require 'ff-paths) ;;complement w/ more stuff
;; old version (ffap-bindings) ; do default key bindings
(global-set-key "\C-x\C-f" 'find-file-at-point) ;newer ffap
;;F1 is help already
;; Make F2 be `undo'
;;same command in xemacs but acts weird complaining about region not being active?
;;(global-set-key [f2] 'undo)
;; Make F3 open a shell
(global-set-key [f3] 'shell)
;; Make F4 read mail
(global-set-key [f4] 'rmail)
;; Make F5 hippie-expand, those damn hippies
(global-set-key [f5] 'hippie-expand)
;; Make F6 ! /bin/sh
;;(global-set-key [f6] '(dired-do-shell-command "sh"))
;;and another for perl and/or java
;look into abbrevs more
;;didn't work M-/ is the default, works fine
;;(global-set-key [f6] 'dabbrev-expand)
;;?what for
;;(global-set-key [f6] 'overwrite-mode)
;;JDE maillist but good for all modes
;;courtesy of [EMAIL PROTECTED]
;;huh? well for the time being it's not messing anything up
;(defun my-tab (&optional pre-arg)
; " If preceeding character is part of a word then dabbrev-expand,
;else if right of non whitespace on line then tab-to-tab-stop,
;else if last command was a tab or return then dedent one step,
;else indent 'correctly'
; First, it determines the context around the point (current cursor
; location).
; If the preceeding character is part of a word, it tried to dynamically
; expand that word. It uses the dabbrev package to do that. Dabbrev
; looks backwards in the buffer to match that word. Each successive TAB
; press will use a preceeding match. It will search backwards through the
; buffer to the beginning, then from the point to the end of the buffer,
; then all other buffers of the same mode (java in this case) and then
; buffers of other modes. Just keep hitting TAB.
; If the preceeding character is whitespace, it will move to the next tab
; stop, if that is defined, or it will look at the previous line, and move
; over to the next non-whitespace following whitespace column. Nice way
; to align things. This is the indent-relative method.
; Otherwise, if it's at the beginning of a line, it indent the whole line
; according to the current mode's indentation method. This latter is the
; usual binding for TAB within emacs.
; "
; (interactive "*P")
; (cond ((= (char-syntax (preceding-char)) ?w)
; (let ((case-fold-search t)) (dabbrev-expand pre-arg)))
; ((> (current-column) (current-indentation))
; (indent-relative))
; (t (indent-according-to-mode)))
; (setq this-command 'my-tab))
;;What to do with other F-ing keys? Hmmm
;; send html e-mail to browser, courtesy of [EMAIL PROTECTED]
(fset 'my-html-to-browser
[?\C-s ?< ?h ?t ?m ?l C-left left ?\C- ?\C-s ?< ?/ ?h ?t ?m ?l ?> ?\C-m ?\M-x
?b ?r ?o ?w ?s ?e ?- ?u ?r ?l ?- ?o ?f ?- ?r ?e ?g ?i ?o ?n return])
(define-key global-map "\C-ch" 'my-html-to-browser)
;;money grubbing keepers of almighty words, need an "open" webster server MIT's closed
down
;;(autoload 'webster "webster" "look up a word in Webster's 7th edition" t)
;;dict mode is a free webster rip, including jargon defs, etc.
;;online dictionary if connected to public network
;;enter word or lookup one at point
;;requires dict binary package and lisp
(load "dict")
;;SSH
(load "ssh")
;;watch for all password prompts and make invisible
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
;; VKILL PS/KILL combo - a dired like mode
(autoload 'vkill "vkill" nil t)
(autoload 'list-unix-processes "vkill" nil t)
;;printer settings
(setq ps-font-size 11)
(setq ps-print-header nil)
;;Hide those ^M ^Z but save them in there for SMB mounts
;;emacs 20.4.1 has dos-mode by default
;(require 'dos-mode)
;;getris didn't work, but tetris does
;(load "tetris")
;;hangman game
;(load "hangman")
;;run term games like cribbage in M-x terminal
;;multi-mode
(autoload 'multi-mode
"multi-mode"
"Allowing multiple major modes in a buffer."
t)
(defun jsp-mode () (interactive)
(multi-mode 1
'html-mode
;;'("<%" java-mode)
'("<%" jde-mode)
'("%>" html-mode)))
(setq auto-mode-alist
(cons '("\\.jsp$" . jsp-mode)
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;JDE is installed
;;just wait for it, JDEbug and all will be nice but we're way beta
;; (setq load-path
;; (nconc
;; '("~/elisp/jde-2.1.6beta8/lisp")
;; load-path))
(setq load-path
(nconc '(
;"~/elisp/jde-2.1.5"
"~/elisp/jde-2.1.6/lisp"
)
load-path))
(require 'jde)
;;command flow, nice feature
;works, in 2.1.6 betas?
;(load "jde-cflow")
;;part of jde-cflow options, prompts for condition then leaves you in code block
;(setq tempo-interactive t)
;;Phil Lord of UK's mode
;;(load "jde-philflow")
;;setserial interface
;;JDE try to use makefiles if they exist - perhaps made by jmaker
;(setq jde-build-use-make t)
;;jikes compiler options for emacs output, makefiles and debug flag
;(custom-set-variables
;jikes only
; '(jde-compile-option-command-line-args "+E +M")
; '(jde-compile-option-debug (quote ("all" (t nil nil)))))
;(custom-set-faces)
;;javadoc generating tool M-x `jdok-generate-javadoc-template' or `C-cj'
;;get standard doc stubs for your methods and params
;works, in 2.1.6?
;(require 'jdok)
;;java makefile generator M-x `jmaker-generate-makefile' or M-x
`jmaker-generate-meta-makefile'
;included in jde 2.1.6beta
;(require 'jmaker)
;;package header base on dir and classpath M-x `jpack-package-update'
;(require 'jpack)
;;generate javadocs for this file and view M-x `jsee-browse-api-doc' or `C-f1'
;(require 'jsee)
;;javahelp - making java docs searchable from JDE
;works, derivative in 2.1.6
;(setq javahelp-directories
'("/usr/local/doc/jdk1.1.6/docs/api/:~/lib:/usr/local/lib/java"))
;(setq max-specpdl-size 50000)
;(setq max-lisp-eval-depth 50000)
;(load "javahelp")
;(setq javahelp-verbosity-level 5)
;(global-set-key '[f12] 'javahelp-search)
;;TIMECARD MODE
; (global-set-key "\C-x\C-t" (make-sparse-keymap)) ; if you also use v18
; (global-set-key "\C-x\C-t\C-i" 'timecard-checkin)
; (global-set-key "\C-x\C-t\C-o" 'timecard-checkout)
; (global-set-key "\C-x\C-t\C-t" 'timecard-find-timecard)
; (setq timecard-define-menus t) ; only if you want menus
; (autoload 'timecard-find-timecard "timecard-mode" nil t)
; (autoload 'timecard-checkin "timecard-mode" nil t)
; (autoload 'timecard-checkout "timecard-mode" nil t)
; (autoload 'timecard-mode "timecard-mode" nil t)
;END OF TIME
;;dired sort
;;bunch of funky sort capabilities
(add-hook 'dired-mode-hook '(lambda () (require 'dired-sort)))
;;balance - check book like
; (autoload 'balance-mode "balance")
; (setq auto-mode-alist
; (append '(("\\.bal$" . balance-mode)) auto-mode-alist))
;;end balance
;;spreadsheet
; (setq auto-mode-alist (cons '("\\.sp$" . spread-mode)
; auto-mode-alist))
; (autoload 'spread-mode "spread")
;;end spreadsheet
;;all - match & replace regex in buffer
(autoload 'all "all" nil t)
;;end all
;;global replace - uses C-h f grep output on dirs
(autoload 'global-replace-lines "global-replace"
"Put back grepped lines" t)
(autoload 'global-replace "global-replace"
"query-replace across files" t)
(autoload 'global-grep-and-replace "global-replace"
"grep and query-replace across files" t)
;;end of global replace
;;russian.el
;(setq-default russian-buffer-name "8koi")
;(setq-default russian-mode-name "8koi")
;(setq russian-keyboard-name "ascii")
;(setq russian-font-name "8koi");
;(require 'russian)
;; gets files with .koi .iso .alt in russian mode
;;(add-hook 'find-file-hooks 'russian-auto-mode)
;;(define-key global-map (read-kbd-macro "C-c r") 'russian-mode)
;;end russian.el
;;We'll Try Russian.el first, above
;;Russian, KOI8 in /usr/X11/lib/fonts/cyrillic
;; (autoload 'cyrillic-mode "cyr.el" "Cyrillic mode" t)
;; (autoload 'cyrillic-translit-mode "cyr.el" "Toggle Translit display" t)
;; (autoload 'cyrillic-minibuffer-mode "cyr.el" nil 'INTERACTIVE)
;; (autoload 'cyrillic-translit-region "cyr.el" "Transliterate destructively" t)
;; (autoload 'cyrillic-set-translit-table "~/el/cyr.el" nil 'INTERACTIVE)
;;; (autoload 'cyrillic-mode "cyr.el" "Cyrillic mode" t)
;;; (autoload 'cyrillic-mode "cyr.el" "Toggle Translit" t)
;;; (setq cyrillic-mode-on t)
;;;
;;; (global-set-key "\C-xc" 'cyrillic-mode
;;Start EMACS with:
;;(calendar)
;(diary)
;(shell)
;;put time in mode line *note needed for appts
(display-time)
;;flash instead of bing
(setq visible-bell t)
;;get colum number in addition to line number
(setq column-number-mode t)
;;Appointment reminders
;(add-hook 'diary-mode 'appt-make-list)
;(diary 0)
;;Found on USENET, but now forgot what it does
;(add-hook 'diary-display-hook
; (lambda ()
; (require 'appt)
; (cond
; ((fboundp 'appt-initialize)
; (appt-initialize))
; (t
; (appt-make-list)))))
;;Also found, but separate entry no-english post
;;Set how long before appt to notify
;; (defcustom appt-message-warning-time 60
;; "*Time in minutes before an appointment that the warning begins."
;; :type 'integer
;; :group 'appt)
;;F-ing backspace/help crap use F1 for help
(define-key global-map "\C-h" 'backward-delete-char)
(setq search-delete-char (string-to-char "\C-h"))
;;Delete key deletes forward - xemacs
;;(setq delete-key-deletes-forward t)
;;use F1 for help not C-_
;;(define-key global-map "\C-_" 'help-command)
;;(setq help-char (string-to-char "\C-_~"))
;;get rid of ^M's that occur in some shell output, hides them in DOS files too
(add-hook 'comint-output-filter-functions
'comint-strip-ctrl-m)
;;SQL.EL try it out, author claims it'll be a part of emacs > 20.3??
;;TG 9/1/99 trying sql-mode w/ emacs 20.4 instead
;;(autoload 'sql-mode "sql" "SQL mode." t)
;This actually calls sql-mode when you load a file with the sql extension:
;;TG 9/1/99
;;(add-to-list 'auto-mode-alist '("\\.sql$" . sql-mode))
;;(add-to-list 'auto-mode-alist '("\\.ddl$" . sql-mode))
;The alternative without add-to-list is the following:
;(setq auto-mode-alist (nconc '(("\\.sql$" . sql-mode)) auto-mode-alist))
;Master mode enhance sql.el above
;I wrote a minor mode that can be used to remote-control a SQLi buffer from a SQL
buffer,
;ie. scrolling the SQLi buffer without leaving the SQL buffer.
;This is the way to install Master mode in conjunction with SQL mode:
;;(autoload 'master-mode "master" "Master mode minor mode." t)
;;(add-hook 'sql-mode-hook
;; (function (lambda ()
;; (master-mode t)
;; (master-set-slave sql-buffer))))
;;(add-hook 'sql-set-sqli-hook
;; (function (lambda ()
;; (master-set-slave sql-buffer))))
;;ORACLE/SQL mode
;;works, but lets try the above
;(setq pls-mode-hook '(lambda () (font-lock-mode 1)))
;(setq font-lock-use-maximum-decoration t)
;;(setq pls-font-lock-keywords-spec t)
;(autoload 'pls-mode "pls-mode" "PL/SQL Editing Mode" t)
;(autoload 'diana-mode "pls-mode" "DIANA for PL/SQL Browsing Mode" t)
;(setq auto-mode-alist
; (append '(("\\.pls$" . pls-mode)
; ("\\.sql$" . pls-mode)
; ("\\.SQL$" . pls-mode)
; ("\\.ddl$" . pls-mode)
; ("\\.pld$" . diana-mode)
; ) auto-mode-alist))
;; Teraspell
(load "teraspell_1_linux/lisp/emacs-config") ;; Teraspell
;;MAIL settings RMAIL and mail
;;mailcrypt for pgp or gnupg
(load-library "mailcrypt")
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'mail-mode-hook 'mc-install-write-mode)
(add-hook 'rmail-show-message-hook 'mc-install-read-mode)
(add-hook 'rmail-summary-mode-hook 'mc-install-read-mode)
(mc-setversion "2.6") ;; Alternately, "5.0", "2.6" or "gpg"
(setq mc-pgp-keydir "~/.pgp/")
;;~/.mailrc by default is address book
;;reply-to
(setq mail-default-reply-to "[EMAIL PROTECTED]")
(setq user-full-name "Ted Guild")
(setq user-mail-address "[EMAIL PROTECTED]")
;;cite reply, but how to auto cite
(setq mail-yank-prefix ">")
(setq mail-yank-ignored-headers "^[^F][^r]")
;;was working seems persistent and don't need to reset?
;;(setq mail-from-style angles)
(setq mail-signature-file "~/.signature")
;;end of header config
;;file to append outgoing mail
(setq mail-archive-file-name "~/mail/out")
;;autosign instead of C-c C-w gets ~/.signature
(setq mail-signature t)
;;control reply to other recips
;;works but want both options
;;(setq rmail-dont-reply-to-names ".")
; r reply-to just sender R reply to ALL
(defun rmail-reply-no-cc ()
"Reply to the current message, only to the current sender"
(interactive)
(rmail-reply t))
(defun rmail-summary-reply-no-cc ()
"Reply to the current message, only to the current sender"
(interactive)
(rmail-summary-reply t))
(add-hook 'rmail-mode-hook
'(lambda()
(define-key rmail-mode-map "r" 'rmail-reply-no-cc)
(define-key rmail-mode-map "R" 'rmail-reply)
))
(add-hook 'rmail-summary-mode-hook
'(lambda()
(define-key rmail-summary-mode-map "r" 'rmail-summary-reply-no-cc)
(define-key rmail-summary-mode-map "R" 'rmail-summary-reply)
))
;;auto word wrap email out
(add-hook 'mail-mode-hook 'turn-on-auto-fill)
;;other RMAIL files and directory
(setq rmail-secondary-file-directory "~/mail")
(setq rmail-secondary-file-regexp ".*\\.rm")
;;get rid of mesg in primary RMAIL after it gets moved to another
(setq rmail-delete-after-output t)
;;regex filter on mail for output rmail comand
;;learn procmail for real powerful filters
(setq rmail-output-file-alist
(append '(("\\@unum.com" . "~/mail/unum.rm")
("\\@idexx.com" . "~/mail/idexx.rm")
("\\@unix911.com" . "~/mail/ugu.rm")
("\\@neis.net" . "~/mail/neis.rm")
("\\@guilds.net" . "~/mail/pers.rm")
("\\@@ramtrust.com" . "~/mail/lens.rm")
("\\@lens-inc.com" . "~/mail/mmom.rm")
("\\@assetworks.com" . "~/mail/assetwk.rm")
("\\[EMAIL PROTECTED]" . "~/mail/jde.rm")
("\\@w3.org" . "~/mail/w3.rm")
("\\[EMAIL PROTECTED]" . "~/mail/isp.rm")
("\\[EMAIL PROTECTED]" . "~/mail/edu.rm")
) rmail-output-file-alist))
;;MIME MIME oh what to do about MIMEs - kill em like the ones in the park for now
;; RMIME
;; from rmime.el:
;; * Note have metamail (not metamail.el) rpm installed (in RedHat by default)
;; and my ~elisp/rmime.el has extract hack added - "e"
(add-hook 'rmail-show-message-hook 'rmime-format)
(add-hook 'rmail-edit-mode-hook 'rmime-cancel)
(autoload 'rmime-format "rmime" "" nil)
(load "mime-compose")
;;ZEN IRC
(load-library "zenirc")
(setq zenirc-nick-default "ted-mit")
(setq zenirc-user-full-name-default "Ted Guild")
(setq zenirc-user-login-name-default "ted-mit")
(setq zenirc-fingerdata "Ted Guild <[EMAIL PROTECTED]>")
(setq zenirc-server-default "localhost")
(setq zenirc-timestamp t
zenirc-timestamp-prefix "["
zenirc-timestamp-suffix "]")
;;; `nick!user@host'... after the first time it's just shown as `nick'
(load-library "zenirc-format")
(load-library "zenirc-history")
(load-library "zenirc-color")
(setq zen-color-alist
(append '(("^\[Tt\]ed\[?, \]" . "green")) zenirc-color-alist))
(load-library "zenirc-fill")
(setq zenirc-fill-mode t)
(load-library "zenirc-complete")
;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))
(require 'w3-auto "w3-auto")
;;SSLeay installed, use it for https connects in W3 mode
(setq ssl-program-name "/usr/local/ssl/bin/s_client")
;(setq ssl-program-arguments '("-host" host "-port" service "-verify" "4"))
;;"-CApath /usr/local/ssl/certs" ;;removed
;;ssleay s_client params??
;;(setq ssl-program-arguments '("-CApath /usr/local/ssl/certs"))
;;festival speech synthesizer output
; (autoload 'say-minor-mode "festival" "Menu for using Festival." t)
; (say-minor-mode t)
;; (setq auto-mode-alist
;; (append '(("\\.festivalrc$" . scheme-mode)) auto-mode-alist))
;;can't involk upper or lower case regions for safety by default
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
;(rmail)
;;psgml
; (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
; (autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(load "init_pcl_cvs")
;;colorize - at EOF in case not X
(global-font-lock-mode t)
(set-background-color "DarkSlateGrey")
(set-foreground-color "Wheat")
(set-cursor-color "purple")
(setq font-lock-maximum-decoration t)
;(load "sgml-mode")
;(load "jde")
;;; Commands added by calc-private-autoloads on Fri Jan 14 13:32:05 2000.
(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'full-calc "calc" "Full-screen Calculator" t)
(autoload 'full-calc-keypad "calc" "Full-screen X Calculator" t)
(autoload 'calc-eval "calc" "Use Calculator from Lisp")
(autoload 'defmath "calc" nil t t)
(autoload 'calc "calc" "Calculator Mode" t)
(autoload 'quick-calc "calc" "Quick Calculator" t)
(autoload 'calc-keypad "calc" "X windows Calculator" t)
(autoload 'calc-embedded "calc" "Use Calc inside any buffer" t)
(autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
(autoload 'calc-grab-region "calc" "Grab region of Calc data" t)
(autoload 'calc-grab-rectangle "calc" "Grab rectangle of data" t)
(setq load-path (nconc load-path (list "~/elisp/calc-2.02f")))
(global-set-key "\e#" 'calc-dispatch)
;;; End of Calc autoloads.
(custom-set-variables
'(jde-help-docsets (quote (("javadoc" "/home/ted/doc/guilds" nil) ("javadoc"
"/home/ted/doc/w3c/java" nil))))
'(jde-compile-option-debug (quote ("all" (t nil nil))))
'(jde-build-use-make t)
'(jde-db-source-directories (quote ("/home/ted/lib")))
'(jde-db-debugger (quote ("jde.debugger.Jdebug" . "Class")))
'(jde-enable-abbrev-mode t)
'(jde-db-option-verbose (quote (nil nil nil)))
'(jde-bug-jpda-directory "/usr/local/java")
'(jde-compile-option-verbose t))
(custom-set-faces)
--
Ted Guild
Software Developer
http://www.guilds.net
[EMAIL PROTECTED]
