(display-time)                                  ; Show TIME
(setq display-time-day-and-date t)              ; Show date also.
(setq line-number-mode t)                       ; Show line number.
;(load "term/vt100")                            ; set term vt100
(set-default 'fill-column 85)                   ; Wrap at this column
(turn-on-auto-fill)                             ; AutoFill
;(setq inhibit-startup-message t)                ; do not show
(setq lpr-switches '("-Plp"))                   ; printer
(setq default-major-mode 'text-mode)            ; default mode
;(setq require-final-newline 'yes)              ; require a new line after saving?
(global-set-key [?\C-h] 'delete-backward-char)
(global-set-key [?\C-x ?h] 'help-command)
(global-unset-key "\C-d")
(define-key global-map "\C-d\C-g" 'goto-line)
(keyboard-translate ?\C-h ?\C-?)

; (setq pop-up-frames t) pop up windows instead of split screen

(add-to-list 'load-path "/usr/local/share/emacs/site-lisp")
;(add-to-list 'load-path "/usr/local/lib/xemacs/xemacs-packages/")
;s(add-to-list 'load-path "/usr/share/emacs/20.7/lisp/progmodes/")
(add-to-list 'load-path (expand-file-name "/opt/jde-2.2.6/lisp"))
(add-to-list 'load-path (expand-file-name "/opt/semantic-1.3.2"))
(add-to-list 'load-path (expand-file-name "/opt/speedbar-0.13a"))
(add-to-list 'load-path (expand-file-name "/opt/elib-1.0"))
(add-to-list 'load-path "/opt/eieio-0.15")


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

; Turn on wrap mode for text documents
(add-hook 'text-mode-hook 'turn-on-auto-fill)

; Turn on wrap mode for all modes
; (setq-default auto-fill-function 'do-auto-fill)

; Load the appropriate modes for the different file types:
(setq auto-mode-alist (cons '("\.js$" . c-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.cgi$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.java$" . java-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.php3$" . php-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.phtml$" . php-mode) auto-mode-alist))
;(setq auto-mode-alist (cons '("\.html$" . html-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\.cool$" . perl-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist (cons '("python" . python-mode) interpreter-mode-alist))

; Set the sgml mode to pgsml - http://www.lysator.liu.se/~lenst/about_psgml/
;(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )

; Set the c-mode to the set-style of K&R
(add-hook 'c-mode-hook '(lambda () (c-set-style "K&R")))

; Autoload c-mode to cc-mode automatically
;(autoload 'c-mode "cc-mode")                

; Autoload Python's mode
(autoload 'python-mode "python-mode" "Python editing mode." t)

; Autoload PHP mode
(autoload 'php-mode "php-mode" "PHP editing mode" t)

; Autoload html-helper mode
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)

; What color the comments for any programming mode should be:
; dark grey
(setq font-lock-face-attributes '((font-lock-comment-face "black")))

; Add color to all types
(global-font-lock-mode 1)

(require 'font-lock )
(add-hook 'font-lock-mode-hook  'turn-on-fast-lock )
(setq-default font-lock-maximum-decoration t )
(setq global-font-lock-mode t)
(setq font-lock-support-mode 'lazy-lock-mode)

; Add maximum decoration
(setq font-lock-maximum-decoration t)

; set your email address here:
(custom-set-variables '(user-mail-address "afra@localhost.localdomain" t) '(query-user-mail-address nil)) (custom-set-faces)

;;; Set JDE (for JAVA) variables


(setq defer-loading-jde nil)
(if defer-loading-jde
    (progn
      (autoload 'jde-mode "jde" "JDE mode." t)
      (setq auto-mode-alist
            (append
             '(("\\.java\\'" . jde-mode))
             auto-mode-alist)))

  (require 'jde))
;; Sets the basic indentation for Java source files
;; to two spaces.
(defun my-jde-mode-hook ()
  (setq c-basic-offset 2))

(add-hook 'jde-mode-hook 'my-jde-mode-hook)

(custom-set-variables
'(jde-run-applet-viewer "appletviewer")
'(jde-compile-option-debug (quote ("all" (t nil nil))))
'(jde-compile-option-sourcepath (quote ("./" "../")))
'(jde-compile-option-deprecation t)
'(jde-quote-classpath nil)
'(jde-db-source-directories (quote (".")))
'(jde-jdk-doc-url "http://java.sun.com/products/jdk/1.2/docs/api/overview-summary.html")
'(jde-compile-option-sourcepath (quote ("./")))
'(jde-appletviewer-option-vm-args (quote ("-classpath" "/opt/jdk1.3/")))
'(jde-global-classpath (quote ("./" "../" "/opt/jdk1.3")))
'(jde-enable-abbrev-mode t))
 (custom-set-faces)

(setq load-path 
          (nconc 
            '( 
               "/opt/jde-2.2.6/lisp" 
             ) 
             load-path))