;;
;; Dans mon répertoire, j'ai la version 1.1.6 du mode
;; psgml, ce qui change du 1.0.1 de XEmacs.
;(setq load-path (append 
;		 (list (concat seb-lisp-dir "/sgml-mode/")) 
;		 load-path))

;(setq sgml-data-directory 
;      "/opt/xemacs21/lib/xemacs/xemacs-packages/etc/psgml")
;(setq sgml-catalog-files
;      '("/etc/sgml.catalog"
;       "/usr/lib/sgml/catalog"))
       


; Although psgml is set up for autoloading, we just go ahead
; and always require it anyway.

(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )
(require 'psgml)

;;--- SGML colorizing with psgml

;;   Create a new face for each different category of thing that
;; psgml can highlight.  These are based on the defaults in
;; psgml 1.0a10, except that we usually say "default" instead of
;; "bold", since we're generally going to use colors instead of bold
;; type.
;;   sgml-sgml-face is the only one that's not self-explanatory: it's
;; applied to the entire SGML declaration.

(copy-face 'default 'sgml-start-tag-face)
(copy-face 'default 'sgml-end-tag-face)
(copy-face 'italic 'sgml-comment-face)
(copy-face 'bold 'sgml-pi-face)
(copy-face 'bold 'sgml-sgml-face)
(copy-face 'bold 'sgml-doctype-face)
(copy-face 'default 'sgml-entity-face)
(copy-face 'bold 'sgml-shortref-face)

;;   Make various modifications to the faces.  See the documentation for
;; the face modification commands in the Emacs manual for more on this,
;; and the file faces.el in the Emacs lisp directory.
;;   Individual users can make further modifications to the appropriate
;; faces in their .emacs files, using any of the commands for
;; modifying faces.
;;   In Emacs or Xemacs, use M-x list-colors-display to get a display showing
;; the names and appearance of all the available colors. There is also
;; a text file associated with most Unix X implementations called
;; rgb.txt: this lists the color names, but won't show you what they
;; look like.

;(set-face-foreground 'sgml-start-tag-face "blue")
;(set-face-foreground 'sgml-end-tag-face "LightSteelBlue")
(set-face-foreground 'sgml-start-tag-face "DarkBlue")
(set-face-foreground 'sgml-end-tag-face "blue")
(set-face-foreground 'sgml-entity-face "DarkRed")

;; Use the new faces in psgml highlighting.

(setq-default sgml-set-face t)

(setq sgml-markup-faces '((start-tag    . sgml-start-tag-face)
                          (end-tag      . sgml-end-tag-face)
                          (comment      . sgml-comment-face)
                          (pi           . sgml-pi-face)
                          (sgml         . sgml-sgml-face)
                          (doctype      . sgml-doctype-face)
                          (entity       . sgml-entity-face)
                          (shortref     . sgml-shortref-face)))

;;; End of file




(message "Ajout de XML à la config")
(setq auto-mode-alist
      (append (list (cons "\\.xml\\'" 'xml-mode))
              auto-mode-alist))
(autoload 'xml-mode "psgml" nil t)


 
;; $Id: dot_emacs,v 1.5 1999/02/15 17:43:33 tkg Exp $

;; DTD mode

;(setq load-path (append 
;		 (list (concat seb-lisp-dir "/tdtd/")) 
;		 load-path))
;(autoload 'dtd-mode "tdtd" "Major mode for SGML and XML DTDs." t)
;(autoload 'dtd-etags "tdtd"
;  "Execute etags on FILESPEC and match on DTD-specific regular expressions."
;  t)
;(autoload 'dtd-grep "tdtd" "Grep for PATTERN in files matching FILESPEC." t)

;; Turn on font lock when in DTD mode

;(add-hook 'dtd-mode-hooks
;	  'turn-on-font-lock)

;(setq auto-mode-alist
;      (append
;       (list
;	'("\\.dcl$" . dtd-mode)
;	'("\\.dec$" . dtd-mode)
;	'("\\.dtd$" . dtd-mode)
;	'("\\.ele$" . dtd-mode)
;	'("\\.ent$" . dtd-mode)
;	'("\\.mod$" . dtd-mode))
;       auto-mode-alist))

;; To use resize-minibuffer-mode, uncomment this and include in your .emacs:
;;(resize-minibuffer-mode)