;;Copyright (C) 1997-1999 by Mathieu ARNOLD

;; This file is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free
;; Software Foundation; either version 2, or (at your option) any later
;; version.


;; On lance gnuserv
(gnuserv-start)

;; pour les accents, et tout ce qui s'en suit...
(iso-accents-mode t)
(require 'iso-insert)
(standard-display-european 1)
(set-input-mode nil nil 1)

;; flyspell, c'est vraiment trop pratique c'est une couche supplémentaire pour
;; ispell, il surligne les mots incorrects en mode texte, et sous X, il permet
;; la correction avec un clik du bouton du milieu de la souris.  on le trouve
;; sur http://kaolin.unice.fr/~serrano
(require 'flyspell)


;; La, je me définis quelques modes perso
(defun mon-java-mode ()
  "Mode Java perso."
  (interactive)
  (java-mode)
  (c-set-style "java")
  (setq c-basic-offset 8)
  )

(defun mon-c-mode ()
  "Mode C perso."
  (interactive)
  (c-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 8)
  )

(defun mon-c++-mode ()
  "mode C++ perso."
  (interactive)
  (c++-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 8)
  )

;; On charge automatiquement mes modes pour les fichiers concernés
(setq auto-mode-alist (cons '("/*/.*\\.[ch]$" . mon-c-mode)
			    auto-mode-alist))

(setq auto-mode-alist (cons '("/*/.*\\.C$" . mon-c-mode)
			    auto-mode-alist))

(setq auto-mode-alist (cons '("/*/.*\\.java$" . mon-java-mode)
			    auto-mode-alist))

;; en C, on va automatiquement a la ligne quand on tape un ; ou une accolade
(setq c-auto-newline t) 

;; on met des couleurs partout
(setq global-font-lock-mode t)

;; hum, je sais plus 
(setq transient-mark-mode t)

;; lorsqu'un erreur survient, on passe la fenetre en vidéo inverse
(setq visible-bell t)

;;on affiche l'heure en mode 24h
(display-time)
(setq display-time-24hr-format t)

;; Le sgml
(add-to-list 'load-path "/usr/lib/xemacs-20.4/lisp/psgml")
(autoload 'sgml-mode "psgml" "Mode majeur SGML." t)

(setq sgml-validate-command "nsgmls -s %s %s"
      sgml-trace-entity-lookup t
      sgml-set-face t
      sgml-live-element-indicator t
      sgml-indent-data t
      sgml-indent-step 0)

;; lorsqu'on sauve, en fait, il va copier l'ancien fichier puis sauver
(setq backup-by-copying t) 

;; on autorise le controle de version (CVS)
(setq version-control t) 

;; ca, ca ne marche pas.
(setq-default set-face-font '"-*-Lucidatypewriter-Medium-R-*-*-*-120-*-*-*-*-iso8859-1")


;; quelques définitions de touches
(global-set-key [f7] 'kill-this-buffer)
(global-set-key [delete] 'delete-backward-char)
(global-set-key [kp-enter] 'newline-and-indent)


;; On affiche les lignes, les colonnes, et heu, je sais pu
(line-number-mode 1)
(column-number-mode 1)
(setq scroll-step 1)

;; Le menu buffer n'a pas de taille maximum
(setq buffers-menu-max-size nil)

;; TeX & LaTeX...
(setq tex-dvi-view-command "xdvi")
(setq tex-show-queue-command "lpstat -O")
(setq tex-dvi-print-command "dvips")
(setq tex-alt-dvi-print-command 
      '(format "dvips * -o %s" (read-string "Name of postscript file:")))


;; Trucs automatiquement générés par xemacs.....

;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/mat/.xemacs-options")))
;; ============================
;; End of Options Menu Settings


(custom-set-variables
 '(sgml-omittag-transparent t)
 '(display-time-display-pad "grey35")
 '(gnuserv-done-function (quote bury-buffer))
 '(version-control t)
 '(fill-column 78)
 '(cperl-auto-newline t)
 '(backup-by-copying t)
 '(completions-merging-modes (quote (lisp c)))
 '(c-strict-syntax-p t)
 '(display-time-24hr-format t)
 '(flyspell-default-dictionary "francais")
 '(delete-old-versions (quote other))
 '(scroll-step 1)
 '(delete-key-deletes-forward nil)
 '(undo-high-threshold 300000)
 '(compilation-window-height 10)
 '(kill-ring-max 50)
 '(hyper-apropos-shrink-window t)
 '(flyspell-global-modes t)
 '(gnuserv-done-temp-file-function (quote bury-buffer))
 '(cperl-auto-newline-after-colon t)
 '(display-time-form-list (quote (dayname " " day " " monthname " " year " " 24-hours ":" minutes " " timezone " " load)))
 '(sgml-inhibit-indent-tags nil)
 '(focus-follows-mouse t)
 '(global-flyspell-mode nil nil (flyspell))
 '(toolbar-news-reader (quote gnus))
 '(shell-multiple-shells t)
 '(flyspell-mode-line-string " FlySpell")
 '(sgml-markup-faces (quote ((start-tag . start-tag) (end-tag . end-tag) (comment . comment) (pi . pi) (sgml . sgml) (doctype . doctype) (entity . entity) (shortref . shortref))))
 '(comint-completion-autolist t)
 '(cperl-indent-level 4)
 '(cperl-info-on-command-no-prompt t)
 '(toolbar-mail-reader (quote gnus))
 '(mark-ring-max 50)
 '(sgml-auto-activate-dtd nil)
 '(kill-whole-line nil)
 '(global-mark-ring-max 20)
 '(display-time-load-list (quote (0.5 0.8 1.1 1.8 2.6 5)))
 '(sgml-warn-about-undefined-elements t)
 '(display-time-mail-file (quote Non-nil))
 '(cperl-hairy t)
 '(undo-threshold 200000)
 '(user-mail-address "arn_mat@club-internet.fr" t)
 '(query-user-mail-address nil)
 '(html-helper-address-string "<a href=\"mailto:arn_mat@club-internet.fr\">Mathieu Arnold</a>")
 '(exec-path (quote ("/usr/local/ssl/bin" "/usr/local/bin" "/bin" "/usr/bin" "/usr/local/bin" "/usr/X11R6/bin" "/usr/games" "/usr/local/vnc" "/home/mat/bin" "/usr/lib/xemacs-20.4/i386-pc-linux/")))
 '(save-completions-retention-time 43800)
 '(whitespace-mode nil nil (whitespace-mode)))
(custom-set-faces
 '(ediff-current-diff-face-B ((((class color)) (:foreground "white" :background "blue"))))
 '(ediff-current-diff-face-A ((((class color)) (:foreground "firebrick" :background "green"))))
 '(doctype ((t (:bold t :underline t :foreground "brown"))) t)
 '(shell-prompt-face ((t (:underline t))) t)
 '(font-lock-preprocessor-face ((t (:foreground "blue" :background "white"))) t)
 '(font-lock-variable-name-face ((t (:foreground "blue" :background "green"))) t)
 '(start-tag ((t (:bold t :foreground "red"))) t)
 '(end-tag ((t (:bold t :foreground "red"))) t)
 '(comment ((t (:italic t :foreground "darkgreen"))) t)
 '(sgml ((t nil)) t)
 '(entity ((t (:bold t :foreground "brown"))) t)
 '(bold ((t (:bold t :foreground "#FF0000"))) t)
 '(bold-italic ((t (:bold t :italic t))) t)
 '(ediff-fine-diff-face-A ((((class color)) (:foreground "Navy" :background "red"))))
 '(blue ((t (:foreground "blue"))) t)
 '(italic ((t (:italic t :foreground "#005599"))) t)
 '(font-lock-function-name-face ((t (:foreground "blue" :background "red"))) t)
 '(pi ((t (:italic t))) t))