2001-11-06 12:27:03 +00:00
|
|
|
;; -*- lisp -*-
|
1999-10-16 11:58:04 +00:00
|
|
|
;;
|
|
|
|
|
;; @(#)psgml-startup.el -- psgml startup elisp file.
|
|
|
|
|
;; -- by shige@FreeBSD.ORG
|
|
|
|
|
|
|
|
|
|
;; setup load-path
|
2000-12-22 17:54:39 +00:00
|
|
|
(if (not (fboundp 'normal-top-level-add-subdirs-to-load-path))
|
1999-10-16 11:58:04 +00:00
|
|
|
(setq load-path (append '(
|
|
|
|
|
"@@PREFIX@@/@@EMACS_LIBDIR@@/site-lisp/psgml"
|
|
|
|
|
) load-path)))
|
|
|
|
|
|
|
|
|
|
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
|
|
|
|
|
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
|
|
|
|
|
|
2001-11-12 01:46:22 +00:00
|
|
|
(setq auto-mode-alist
|
|
|
|
|
(append (list '("\\.s?html?\\'" . sgml-mode))
|
|
|
|
|
auto-mode-alist))
|
|
|
|
|
|
1999-10-16 11:58:04 +00:00
|
|
|
(setq sgml-custom-dtd
|
|
|
|
|
'(("HTML" "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">")
|
|
|
|
|
("HTML 2.0" "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">")
|
|
|
|
|
("HTML 2.0 Level 1"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0 Level 1//EN\">")
|
|
|
|
|
("HTML 2.0 Level 2"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0 Level 2//EN\">")
|
|
|
|
|
("HTML 2.0 Strict Level 1"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0 Strict Level 1//EN\">")
|
|
|
|
|
("HTML 2.0 Strict Level 2"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0 Strict Level 2//EN\">")
|
|
|
|
|
("HTML 3.2" "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">")
|
|
|
|
|
("HTML 4.0" "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">")
|
|
|
|
|
("HTML 4.0 Transitional"
|
1999-10-18 20:43:01 +00:00
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">")
|
1999-10-16 11:58:04 +00:00
|
|
|
("HTML 4.0 Frameset"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Frameset//EN\">")
|
2000-10-27 15:50:27 +00:00
|
|
|
("HTML 4.01" "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">")
|
|
|
|
|
("HTML 4.01 Transitional"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">")
|
|
|
|
|
("HTML 4.01 Frameset"
|
|
|
|
|
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\">")
|
2001-11-06 12:27:03 +00:00
|
|
|
("XHTML 1.0 Strict"
|
|
|
|
|
"<!DOCTYPE XHTML PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\">")
|
|
|
|
|
("XHTML 1.0 Transitional"
|
|
|
|
|
"<!DOCTYPE XHTML PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\">")
|
|
|
|
|
("XHTML 1.0 Frameset"
|
|
|
|
|
"<!DOCTYPE XHTML PUBLIC \"-//W3C//DTD XHTML 1.0 Frameset//EN\">")
|
1999-10-16 11:58:04 +00:00
|
|
|
("DocBook V2.4.1"
|
|
|
|
|
"<!DOCTYPE DOCBOOK PUBLIC \"-//Davenport//DTD DocBook V2.4.1//EN\">")
|
|
|
|
|
("DocBook V3.0"
|
|
|
|
|
"<!DOCTYPE DOCBOOK PUBLIC \"-//Davenport//DTD DocBook V3.0//EN\">")
|
|
|
|
|
("DocBook V3.1"
|
2000-02-09 13:26:40 +00:00
|
|
|
"<!DOCTYPE DOCBOOK PUBLIC \"-//OASIS//DTD DocBook V3.1//EN\">")
|
2000-10-27 15:50:27 +00:00
|
|
|
("DocBook V4.0"
|
|
|
|
|
"<!DOCTYPE DOCBOOK PUBLIC \"-//OASIS//DTD DocBook V4.0//EN\">")
|
|
|
|
|
("DocBook V4.1"
|
|
|
|
|
"<!DOCTYPE DOCBOOK PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\">")
|
1999-10-16 11:58:04 +00:00
|
|
|
("LINUXDOC"
|
|
|
|
|
"<!DOCTYPE LINUXDOC PUBLIC \"-//FreeBSD//DTD linuxdoc//EN\">")
|
|
|
|
|
("LINUXDOC 1.0"
|
|
|
|
|
"<!DOCTYPE LINUXDOC PUBLIC \"-//FreeBSD//DTD linuxdoc 1.0//EN\">")
|
|
|
|
|
("LINUXDOC 1.1"
|
|
|
|
|
"<!DOCTYPE LINUXDOC PUBLIC \"-//FreeBSD//DTD linuxdoc 1.1//EN\">")
|
|
|
|
|
("Article"
|
|
|
|
|
"<!DOCTYPE Article PUBLIC \"ISO 12083:1993//DTD Article//EN\">")
|
|
|
|
|
("Book"
|
|
|
|
|
"<!DOCTYPE Book PUBLIC \"ISO 12083:1993//DTD Book//EN\">")
|
|
|
|
|
("Mathematics"
|
|
|
|
|
"<!DOCTYPE Mathematics PUBLIC \"ISO 12083:1993//DTD Mathematics//EN\">")
|
|
|
|
|
("Serial"
|
|
|
|
|
"<!DOCTYPE Serial PUBLIC \"ISO 12083:1993//DTD Serial//EN\">")
|
|
|
|
|
))
|
|
|
|
|
|
2001-11-12 01:46:22 +00:00
|
|
|
(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)))
|
|
|
|
|
|
1999-10-16 11:58:04 +00:00
|
|
|
(provide 'psgml-startup)
|
