;; -*- lisp -*- ;; ;; @(#)psgml-startup.el -- psgml startup elisp file. ;; -- by shige@FreeBSD.ORG ;; setup load-path (if (not (fboundp 'normal-top-level-add-subdirs-to-load-path)) (setq load-path (append '( "%%PSGML_LISPDIR%%" ) load-path))) (defalias 'sgml-mode 'psgml-mode) (defalias 'xml-mode 'pxml-mode) (autoload 'psgml-mode "psgml" "Major mode to edit SGML files." t) (autoload 'pxml-mode "psgml" "Major mode to edit XML files." t) (setq auto-mode-alist (append '( ("\\.s?html?\\'" . sgml-mode) ("\\.xml\\'" . xml-mode) ) auto-mode-alist)) (setq sgml-custom-dtd '(("HTML" "") ("HTML 2.0" "") ("HTML 2.0 Level 1" "") ("HTML 2.0 Level 2" "") ("HTML 2.0 Strict Level 1" "") ("HTML 2.0 Strict Level 2" "") ("HTML 3.2" "") ("HTML 4.0" "") ("HTML 4.0 Transitional" "") ("HTML 4.0 Frameset" "") ("HTML 4.01" "") ("HTML 4.01 Transitional" "") ("HTML 4.01 Frameset" "") ("XHTML 1.0 Strict" "\n") ("XHTML 1.0 Transitional" "\n") ("XHTML 1.0 Frameset" "\n") ("DocBook V2.4.1" "") ("DocBook V3.0" "") ("DocBook V3.1" "") ("DocBook V4.0" "") ("DocBook V4.1" "") ("LINUXDOC" "") ("LINUXDOC 1.0" "") ("LINUXDOC 1.1" "") ("Article" "") ("Book" "") ("Mathematics" "") ("Serial" "") )) (setq-default sgml-auto-activate-dtd t) (setq-default sgml-set-face t) (make-face 'sgml-comment-face) (make-face 'sgml-doctype-face) (make-face 'sgml-end-tag-face) (make-face 'sgml-entity-face) (make-face 'sgml-ignored-face) (make-face 'sgml-ms-end-face) (make-face 'sgml-ms-start-face) (make-face 'sgml-pi-face) (make-face 'sgml-sgml-face) (make-face 'sgml-short-ref-face) (make-face 'sgml-start-tag-face) (set-face-foreground 'sgml-comment-face "dark green") (set-face-foreground 'sgml-doctype-face "maroon") (set-face-foreground 'sgml-end-tag-face "SlateBlue") (set-face-foreground 'sgml-entity-face "OrangeRed4") (set-face-foreground 'sgml-ignored-face "maroon") (set-face-background 'sgml-ignored-face "gray90") (set-face-foreground 'sgml-ms-end-face "maroon") (set-face-foreground 'sgml-ms-start-face "maroon") (set-face-foreground 'sgml-pi-face "maroon") (set-face-foreground 'sgml-sgml-face "maroon") (set-face-foreground 'sgml-short-ref-face "goldenrod") (set-face-foreground 'sgml-start-tag-face "SlateBlue") (setq-default sgml-markup-faces '((comment . sgml-comment-face) (doctype . sgml-doctype-face) (end-tag . sgml-end-tag-face) (entity . sgml-entity-face) (ignored . sgml-ignored-face) (ms-end . sgml-ms-end-face) (ms-start . sgml-ms-start-face) (pi . sgml-pi-face) (sgml . sgml-sgml-face) (short-ref . sgml-short-ref-face) (start-tag . sgml-start-tag-face))) (provide 'psgml-startup)