;;(setq debug-on-error t)
 
(recentf-mode)
 
;; chemins des fichiers Lisp supplementaires
(add-to-list 'load-path (expand-file-name "~/emacs-addon/jde-2.2.8/lisp" ))
(add-to-list 'load-path (expand-file-name "~/emacs-addon/semantic-1.4beta5" ))
(add-to-list 'load-path (expand-file-name "~/emacs-addon/speedbar-0.13a" ))
(add-to-list 'load-path (expand-file-name "~/emacs-addon/eieio-0.16" ))
(add-to-list 'load-path (expand-file-name "~/emacs-addon/elib-1.0" ))
(add-to-list 'load-path (expand-file-name "~/emacs-addon/divers" ))
 
 
;; pour JDE
(setq defer-loading-jde t)
 
(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))
 
(setq c-basic-offset 3)
 
;; pour la speedbar
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
 
;; pour le semantique
(require 'semantic-c) ; for C code integration
(require 'semantic-el) ; for Emacs Lisp code integration
(require 'semantic-make) ; for Makefile integration
(require 'semantic-imenu) ; if you use imenu or wich-function
(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
   ; for speedbar integration
(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t)
(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
   ; for editing .bnf parser files.
(autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic parsing." t)
   ; for semantic-minor-mode
 
;; pour pas changer les habitudes ...
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer)  
 
;; pour la selection au clavier
(if (fboundp 'pc-selection-mode)
    (pc-selection-mode)
  (require 'pc-select))
 
;; pour que quand y a une selection elle soit remplacé par ce qui est tapé
(delete-selection-mode 1)
 
;; pour les ctrl-c, ctrl-x, ctrl-v
 (require 'cua)
 (CUA-mode t)
 
;; pour la navigation entre les buffers
(global-set-key [(control tab)] 'bury-buffer)
 
 
;; affiche le numéro de colonne
(setq column-number-mode t)  
 
;; Mes touches favorites
(global-set-key [f4] 'goto-line)
(global-set-key [(f5)] 'speedbar-get-focus)
(global-set-key [f12] 'jde-complete-at-point-menu)
 
 
 
;; mode JSP
(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))
 
;; affichage date et heure
(setq display-time-string-forms
      '((format "[%s/%s/%s]-[%s:%s] " day month year 24-hours minutes )
        (if mail "==Mail==" load)))
(display-time)
 
;; ne bouge pas la position du parser avec srolling pg up, pg dn
(setq scroll-preserve-screen-position t)  
 
 
 
;;variable emacs
(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.
 '(global-font-lock-mode t nil (font-lock))
 '(jde-compile-option-classpath (quote ("E:\\sources\\java\\jsse.jar;E:\\sources\\java\\jcert.jar;E:\\sources\\java\\jnet.jar;E:\\sources\\java;D:\\utils\\Apache Tomcat 4.0\\common\\lib\\servlet.jar" )))
 '(jde-enable-abbrev-mode t)
 '(jde-import-group-function (quote jde-import-group-of))
 '(show-paren-mode t nil (paren)))
(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.
 )