;; Red Hat Linux default .emacs initialization file

;; Are we running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

; Suppression de la barre d'icônes
(tool-bar-mode nil)

;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)

;;coloration syntaxique
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)

;; Mise en valeur de la région quand elle est active.
(setq-default transient-mark-mode t)

;; Ça, si c'est là, ça sert probablement à quelque chose.
(setq minibuffer-max-depth nil)

;;empêcher les émission de son
(setq visible-bell t)

;; Automatically turn on auto-fill-mode when editing text files
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; Auto-fill in all major modes
(setq-default auto-fill-function 'do-auto-fill)

;; on se met en mode Text pour une grande partie des fichiers.
(setq default-major-mode 'text-mode)

;;mode utf-8 par défaut
(setq set-language-environment "utf-8")

; Make Emacs UTF-8 compatible for both display and editing:
(setq prefer-coding-system 'utf-8)
(setq set-terminal-coding-system 'utf-8)
(setq set-keyboard-coding-system 'utf-8)

;; Gestion de la roulette de la souris avec plusieurs vitesses
;; (inspiration venant de http://www.emacsfr.org/phpwiki/index.php?.emacs)
;; Shift + roulette : petite vitesse
;; Roulette seule : vitesse moyenne
;; Control + roulette : grande vitesse
;; Enable wheelmouse support by default
(if (not running-xemacs)
    (require 'mwheel) ; Emacs
  (mwheel-install) ; XEmacs
)

(defun flo-scroll-one-line-up ()
  "Scroll text of current window upward one line."
  (interactive)
  (scroll-up 1))
(defun flo-scroll-one-line-down ()
  "Scroll text of current window downward one line."
  (interactive)
  (scroll-down 1))
(defalias 'flo-scroll-down-small-amount 'flo-scroll-one-line-down)
(defalias 'flo-scroll-up-small-amount 'flo-scroll-one-line-up)
(defun flo-scroll-down-medium-amount ()
  (interactive)
  (scroll-down 5))
(defun flo-scroll-up-medium-amount ()
  (interactive)
  (scroll-up 5))
(defun flo-scroll-down-large-amount ()
  (interactive)
  (scroll-down))
(defun flo-scroll-up-large-amount ()
  (interactive)
  (scroll-up))

(global-set-key [S-mouse-4] 'flo-scroll-down-small-amount)
(global-set-key [S-mouse-5] 'flo-scroll-up-small-amount)
(global-set-key [mouse-4] 'flo-scroll-down-medium-amount)
(global-set-key [mouse-5] 'flo-scroll-up-medium-amount)
(global-set-key [C-mouse-4] 'flo-scroll-down-large-amount)
(global-set-key [C-mouse-5] 'flo-scroll-up-large-amount)

;; Pour que le curseur ne clignote plus
(blink-cursor-mode 0)

;; Pour avoir l'affichage du numéro de colonne :
(setq column-number-mode t)

;; Pour que kill-line kille la ligne _et_ son newline quand elle est
;; invoquée en début de ligne :
(setq kill-whole-line t)

;; Pour que le coller avec la souris se fasse à l'endroit où se trouve
;; le curseur et pas à l'endroit où se trouve le pointeur de souris
(setq mouse-yank-at-point t)

;;complétion case insensitive
(setq completion-ignore-case t)

; Fixer la taille de la police employée sous X
; selon le sens du défilement.
(setq scroll-preserve-screen-position t)

; C'est fastidieux de taper « yes » pour confirmer, raccourcissons
; cela à « y » (idem pour « no », désormais « n »).
(fset 'yes-or-no-p 'y-or-n-p)

; Supprimer les fichiers de sauvegarde en quittant.
; (vous savez, ces fameux fichiers dont le nom se termine par « ~ »)
(setq make-backup-files nil)

;;reftex
(require 'tex-site)
(setq reftex-save-parse-info t)
(setq reftex-use-multiple-selection-buffers t)
(setq reftex-plug-into-AUCTeX t)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode

; Montrer la correspondance des parenthèses
; (systématiquement et non seulement après la frappe)
(require 'paren)
(show-paren-mode t)
(setq blink-matching-paren t)
(setq blink-matching-paren-on-screen t)
(setq show-paren-style 'expression)
(setq blink-matching-paren-dont-ignore-comments t)

; mode de minuit -- daily cleanup for long-running Emacs sessions
(require 'midnight)

; Filladapt (mode mineur) - http://www.wonderworks.com/download/filladapt.el
(require 'filladapt)

; Pour l'impression, du papier au format A4 est utilisé
(setq ps-paper-type 'a4)

; Si cette variable est différente de 'nil', lorsque l'on est à la fin
; d'une ligne, le déplacement vertical du curseur s'accompagne d'un
; déplacement horizontal pour atteindre la fin de la ligne courante.
; Si cette variable vaut 'nil', le déplacement est strictement vertical.
(setq track-eol nil)

;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

;; indentation automagique
(setq indent-line-function 'indent-relative-maybe)

; Mise en surbrillance des lignes sélectionnées et écrasement de ces
; dernières lorsqu'on saisit du texte dans la foulée.
(progn
  (delete-selection-mode 1)
  (transient-mark-mode 1)
  )

; correction orthographique
; aspell est un bon correcteur orthographique
(setq ispell-program-name "aspell")
; utilisation du dictionnaire français par défaut
(ispell-change-dictionary "francais")
(setq ispell-dictionary "francais")
(setq flyspell-default-dictionary "francais")
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)

; boxquote
;; ,----
;; | permet d'encadrer
;; | du texte ainsi
;; | ça fait très joli
;; `----
(require 'boxquote)

; Tramp
; accès à des fichiers distants
; port net/tramp ou http://www.freesoftware.fsf.org/tramp/
(require 'tramp)

; ibuffer - un bon mode pour parcourir la liste des buffers
; ftp://ftp.cis.ohio-state.edu/pub/emacs-lisp/archive/ibuffer.el
(require 'ibuffer)

; Utilisation de perldoc comme man : M-x perldoc
; http://groups.google.com/groups?q=perldoc+group:*emacs*&hl=en&safe=off&rnum=2&selm=vafwvxccr73.fsf%40petty.cs.uni-dortmund.de
(defun perldoc (man-args)
  (interactive "sPerlDoc: ")
  (require 'man)
  (let ((manual-program "perldoc"))
    (man man-args)))