;;;   Couleurs
;;;   Sun - Mai 98

;; compatibilite Emacs/XEmacs
(defvar xemacs-p
  (string-match "XEmacs\\|Lucid"  emacs-version))

;;; Couleurs diverses
(if xemacs-p
    (progn
      (set-face-background 'default "moccasin"))
  (transient-mark-mode t)			; Région en couleur
  (set-face-background 'region "grey84")	; Couleur d'une région
  (set-background-color "moccasin")	; Couleur du fond
  (set-face-foreground 'modeline "Yellow") ; texte Barre d'affichage
  ;(set-face-background 'modeline "Black")	 ; fond Barre d'affichage
  ;(set-cursor-color "black")		; Couleur du curseur
  ;(set-mouse-color "black")		; Couleur du curseur de la souris
  ;(set-foreground-color "black")		; Couleur du texte
  )

(require 'font-lock)
;;; Mode Font lock
(if xemacs-p nil
  (global-font-lock-mode t))
(condition-case ()
    (make-face-bold font-lock-function-name-face)
  (error nil))
;; modify-face face foreground background stipple
;; bold-p italic-p underline-p &optional inverse-p frame
; (modify-face font-lock-comment-face "firebrick" nil nil nil t nil)
; (modify-face font-lock-string-face "grey30" nil nil nil nil nil)
; (modify-face font-lock-keyword-face "BlueViolet" nil nil nil nil nil)
; (modify-face font-lock-function-name-face "Blue" nil nil t nil nil)
; (modify-face font-lock-variable-name-face "Purple" nil nil nil nil nil)
; (modify-face font-lock-type-face "red" nil nil nil nil nil)
; (modify-face font-lock-reference-face "Coral" nil nil t t nil)
; (modify-face font-lock-warning-face "Pink" nil nil t nil nil)
; (modify-face font-lock-builtin-face "Orchid" nil nil t nil nil)
; (modify-face font-lock-constant-face ...)


;(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
;(setq font-lock-auto-fontify t)
;(setq font-lock-maximum-decoration t)



;;; Config perso

(cond ((= emacs-major-version 19)
       (make-face 'font-lock-comment-face)
       (set-face-foreground 'font-lock-comment-face "red")
       (make-face-italic 'font-lock-comment-face nil 'noerr)))

(cond ((not (facep 'font-lock-title-face))
       (defvar font-lock-title-face 'font-lock-title-face)
       (copy-face 'bold 'font-lock-title-face)))
(cond ((not (facep 'font-lock-include-face))
       (defvar font-lock-include-face 'font-lock-include-face)
       (copy-face 'default 'font-lock-include-face)
       (set-face-foreground 'font-lock-include-face "purple")
       (make-face-bold 'font-lock-include-face)))
;       (modify-face font-lock-include-face "purple" nil nil t nil nil)))

(condition-case ()
    (progn
      (cond ((not xemacs-p)

;; Rajout de quelques mode clés et du changement de couleur
;; pour les "gros" commentaires (;;;) 
(font-lock-add-keywords
 'emacs-lisp-mode
 '(("^;;;.*$" 0 font-lock-title-face t)
   ("^\\s *(\\(provide\\|require\\|\\(auto\\)?load\\).*$" 0 font-lock-include-face prepend)
   ))

; (font-lock-add-keywords
;  'caml-mode
;  '(("[ \t]*\\(and\\|let\\|method\\([ \t]+virtual\\)?\\|class\\([ \t]+virtual\\)?\\|val\\([ \t]+mutable\\)?\\)[ \t]+\\([^ \t\n]+\\)" 5 font-lock-function-name-face prepend)))


;; Rajout de quelques mode clés et du changement de couleur
;; pour les "gros" commentaires (###) 
(font-lock-add-keywords
 'sh-mode
 '(("^###.*$" 0 font-lock-title-face t)
   ("\\<alias\\>[ \t]\\([^=]+\\)=" 1 font-lock-function-name-face)
   ("\\<\\(select\\)\\>" 1 font-lock-keyword-face)
   ("\\<\\(false\\|true\\|shopt\\|disown\\|time\\|printf\\)\\>" 1
    font-lock-builtin-face)
   ))

;; permet d'afficher le nobreakspace souligné en mode html
;; (par defaut, le nobreakspace s'affiche comme un espace sous X
(copy-face 'underline 'html-nbsp-face)
(set-face-foreground 'html-nbsp-face "Salmon")
(font-lock-add-keywords
 'html-mode
 '((" " 0 'html-nbsp-face t)))
)))
(error nil))