733 lines
22 KiB
EmacsLisp
733 lines
22 KiB
EmacsLisp
|
;; This file contains an example of the functions that are defined by
|
|||
|
|
;; `mumamo-fetch-major-mode-setup'. The file was written using utf-8.
|
|||
|
|
|
|||
|
|
;; The functions are given names like mumamo-eval-in-MODE. The code
|
|||
|
|
;; that was evaled to define the function is saved in the property
|
|||
|
|
;; `mumamo-defun' on the function symbol. This code was used to insert
|
|||
|
|
;; the function code below:
|
|||
|
|
(insert (pp-to-string (get 'mumamo-eval-in-html-mode 'mumamo-defun)))
|
|||
|
|
|
|||
|
|
;; I have inserted comments by hand below:
|
|||
|
|
(defun mumamo-eval-in-html-mode (body)
|
|||
|
|
;; The parameter BODY is evaled at the end of the let form
|
|||
|
|
;; below. The let bound variables are from two sources:
|
|||
|
|
;;
|
|||
|
|
;; 1) Buffer local variables (minus some that do not fit/disturbs,
|
|||
|
|
;; see `mumamo-get-relevant-buffer-local-vars'.
|
|||
|
|
;;
|
|||
|
|
;; 2) From the list in `mumamo-fetch-major-mode-setup'. This list
|
|||
|
|
;; contains variables that are often set buffer locally for
|
|||
|
|
;; fontification indentation etc. Unfortunately not all of these
|
|||
|
|
;; are automatic buffer locals.
|
|||
|
|
(let
|
|||
|
|
;; These variables are from the list in
|
|||
|
|
;; `mumamo-fetch-major-mode-setup':
|
|||
|
|
((sgml-xml-mode nil)
|
|||
|
|
(indent-line-function 'sgml-indent-line)
|
|||
|
|
(indent-region-function nil)
|
|||
|
|
(normal-auto-fill-function 'do-auto-fill)
|
|||
|
|
(comment-start "<!-- ")
|
|||
|
|
(comment-end " -->")
|
|||
|
|
(comment-start-skip "<!--[ ]*")
|
|||
|
|
(comment-end-skip "[ ]*--[ \n]*>")
|
|||
|
|
(comment-multi-line nil)
|
|||
|
|
(comment-line-break-function 'sgml-comment-indent-new-line)
|
|||
|
|
(paragraph-start "[ ]*$\\|[ ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>")
|
|||
|
|
(paragraph-separate "[ ]*$\\|[ ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$")
|
|||
|
|
(paragraph-ignore-fill-prefix nil)
|
|||
|
|
(adaptive-fill-mode t)
|
|||
|
|
(adaptive-fill-regexp "[ ]*")
|
|||
|
|
(font-lock-multiline nil)
|
|||
|
|
(font-lock-extend-after-change-region-function nil)
|
|||
|
|
(font-lock-extend-region-functions
|
|||
|
|
'(font-lock-extend-region-wholelines font-lock-extend-region-multiline))
|
|||
|
|
(font-lock-comment-start-skip nil)
|
|||
|
|
(font-lock-comment-end-skip nil)
|
|||
|
|
(font-lock-set-defaults)
|
|||
|
|
(font-lock-defaults
|
|||
|
|
'((sgml-font-lock-keywords sgml-font-lock-keywords-1 sgml-font-lock-keywords-2)
|
|||
|
|
nil t nil nil
|
|||
|
|
(font-lock-syntactic-keywords . sgml-font-lock-syntactic-keywords)))
|
|||
|
|
(font-lock-beginning-of-syntax-function nil)
|
|||
|
|
(font-lock-syntactic-face-function
|
|||
|
|
'#[(state)
|
|||
|
|
"\3038\203 \207\n\207"
|
|||
|
|
[state font-lock-string-face font-lock-comment-face 3]
|
|||
|
|
2])
|
|||
|
|
(font-lock-mark-block-function nil)
|
|||
|
|
(font-lock-extra-managed-props nil)
|
|||
|
|
(font-lock-fontify-buffer-function 'jit-lock-refontify)
|
|||
|
|
(font-lock-unfontify-buffer-function 'font-lock-default-unfontify-buffer)
|
|||
|
|
(font-lock-fontify-region-function 'font-lock-default-fontify-region)
|
|||
|
|
(font-lock-unfontify-region-function 'font-lock-default-unfontify-region)
|
|||
|
|
(jit-lock-after-change-extend-region-functions
|
|||
|
|
'(font-lock-extend-jit-lock-region-after-change t))
|
|||
|
|
(syntax-begin-function nil)
|
|||
|
|
(fill-paragraph-function nil)
|
|||
|
|
(comment-use-global-state nil)
|
|||
|
|
(multibyte-syntax-as-symbol 'multibyte-syntax-as-symbol)
|
|||
|
|
(parse-sexp-ignore-comments 'parse-sexp-ignore-comments)
|
|||
|
|
(parse-sexp-lookup-properties 'parse-sexp-lookup-properties)
|
|||
|
|
|
|||
|
|
;; These variables are fetched with
|
|||
|
|
;; `mumamo-get-relevant-buffer-local-vars':
|
|||
|
|
(text-mode-variant t)
|
|||
|
|
(skeleton-transformation-function 'identity)
|
|||
|
|
(skeleton-further-elements
|
|||
|
|
'((completion-ignore-case t)))
|
|||
|
|
(skeleton-end-hook
|
|||
|
|
'#[nil "l\206 \301=\206 \242\301=?\206 \302 \207"
|
|||
|
|
[v2 n newline-and-indent]
|
|||
|
|
2])
|
|||
|
|
(sgml-xml-mode nil)
|
|||
|
|
(sgml-unclosed-tags
|
|||
|
|
'("body" "colgroup" "dd" "dt" "head" "html" "li" "option" "p" "tbody" "td" "tfoot" "th" "thead" "tr"))
|
|||
|
|
(sgml-tag-help
|
|||
|
|
'(("!" . "Empty declaration for comment")
|
|||
|
|
("![" . "Embed declarations with parser directive")
|
|||
|
|
("!attlist" . "Tag attributes declaration")
|
|||
|
|
("!doctype" . "Document type (DTD) declaration")
|
|||
|
|
("!element" . "Tag declaration")
|
|||
|
|
("!entity" . "Entity (macro) declaration")
|
|||
|
|
("a" . "Anchor of point or link elsewhere")
|
|||
|
|
("abbrev" . "?")
|
|||
|
|
("acronym" . "?")
|
|||
|
|
("address" . "Formatted mail address")
|
|||
|
|
("array" . "Math array")
|
|||
|
|
("au" . "?")
|
|||
|
|
("b" . "Bold face")
|
|||
|
|
("base" . "Base address for URLs")
|
|||
|
|
("big" . "Font size")
|
|||
|
|
("blink" . "Blinking text")
|
|||
|
|
("blockquote" . "Indented quotation")
|
|||
|
|
("body" . "Document body")
|
|||
|
|
("box" . "Math fraction")
|
|||
|
|
("br" . "Line break")
|
|||
|
|
("caption" . "Table caption")
|
|||
|
|
("center" . "Centered text")
|
|||
|
|
("changed" . "Change bars")
|
|||
|
|
("cite" . "Citation of a document")
|
|||
|
|
("code" . "Formatted source code")
|
|||
|
|
("dd" . "Definition of term")
|
|||
|
|
("del" . "?")
|
|||
|
|
("dfn" . "?")
|
|||
|
|
("dir" . "Directory list (obsolete)")
|
|||
|
|
("dl" . "Definition list")
|
|||
|
|
("dt" . "Term to be definined")
|
|||
|
|
("em" . "Emphasized")
|
|||
|
|
("embed" . "Embedded data in foreign format")
|
|||
|
|
("fig" . "Figure")
|
|||
|
|
("figa" . "Figure anchor")
|
|||
|
|
("figd" . "Figure description")
|
|||
|
|
("figt" . "Figure text")
|
|||
|
|
("font" . "Font size")
|
|||
|
|
("form" . "Form with input fields")
|
|||
|
|
("group" . "Document grouping")
|
|||
|
|
("h1" . "Most important section headline")
|
|||
|
|
("h2" . "Important section headline")
|
|||
|
|
("h3" . "Section headline")
|
|||
|
|
("h4" . "Minor section headline")
|
|||
|
|
("h5" . "Unimportant section headline")
|
|||
|
|
("h6" . "Least important section headline")
|
|||
|
|
("head" . "Document header")
|
|||
|
|
("hr" . "Horizontal rule")
|
|||
|
|
("html" . "HTML Document")
|
|||
|
|
("i" . "Italic face")
|
|||
|
|
("img" . "Graphic image")
|
|||
|
|
("input" . "Form input field")
|
|||
|
|
("ins" . "?")
|
|||
|
|
("isindex" . "Input field for index search")
|
|||
|
|
("kbd" . "Keybard example face")
|
|||
|
|
("lang" . "Natural language")
|
|||
|
|
("li" . "List item")
|
|||
|
|
("link" . "Link relationship")
|
|||
|
|
("math" . "Math formula")
|
|||
|
|
("menu" . "Menu list (obsolete)")
|
|||
|
|
("mh" . "Form mail header")
|
|||
|
|
("nextid" . "Allocate new id")
|
|||
|
|
("nobr" . "Text without line break")
|
|||
|
|
("ol" . "Ordered list")
|
|||
|
|
("option" . "Selection list item")
|
|||
|
|
("over" . "Math fraction rule")
|
|||
|
|
("p" . "Paragraph start")
|
|||
|
|
("panel" . "Floating panel")
|
|||
|
|
("person" . "?")
|
|||
|
|
("pre" . "Preformatted fixed width text")
|
|||
|
|
("q" . "?")
|
|||
|
|
("rev" . "Reverse video")
|
|||
|
|
("s" . "?")
|
|||
|
|
("samp" . "Sample text")
|
|||
|
|
("select" . "Selection list")
|
|||
|
|
("small" . "Font size")
|
|||
|
|
("sp" . "Nobreak space")
|
|||
|
|
("strong" . "Standout text")
|
|||
|
|
("sub" . "Subscript")
|
|||
|
|
("sup" . "Superscript")
|
|||
|
|
("table" . "Table with rows and columns")
|
|||
|
|
("tb" . "Table vertical break")
|
|||
|
|
("td" . "Table data cell")
|
|||
|
|
("textarea" . "Form multiline edit area")
|
|||
|
|
("th" . "Table header cell")
|
|||
|
|
("title" . "Document title")
|
|||
|
|
("tr" . "Table row separator")
|
|||
|
|
("tt" . "Typewriter face")
|
|||
|
|
("u" . "Underlined text")
|
|||
|
|
("ul" . "Unordered list")
|
|||
|
|
("var" . "Math variable face")
|
|||
|
|
("wbr" . "Enable <br> within <nobr>")))
|
|||
|
|
(sgml-tag-face-alist
|
|||
|
|
'(("b" . bold)
|
|||
|
|
("big" . bold)
|
|||
|
|
("blink" . highlight)
|
|||
|
|
("cite" . italic)
|
|||
|
|
("em" . italic)
|
|||
|
|
("h1" bold underline)
|
|||
|
|
("h2" bold-italic underline)
|
|||
|
|
("h3" italic underline)
|
|||
|
|
("h4" . underline)
|
|||
|
|
("h5" . underline)
|
|||
|
|
("h6" . underline)
|
|||
|
|
("i" . italic)
|
|||
|
|
("rev" . modeline)
|
|||
|
|
("s" . underline)
|
|||
|
|
("small" . default)
|
|||
|
|
("strong" . bold)
|
|||
|
|
("title" bold underline)
|
|||
|
|
("tt" . default)
|
|||
|
|
("u" . underline)
|
|||
|
|
("var" . italic)))
|
|||
|
|
(sgml-tag-alist
|
|||
|
|
'(("a"
|
|||
|
|
("name")
|
|||
|
|
("href"
|
|||
|
|
("ftp:")
|
|||
|
|
("file:")
|
|||
|
|
("finger:")
|
|||
|
|
("gopher:")
|
|||
|
|
("http:")
|
|||
|
|
("mailto:")
|
|||
|
|
("news:")
|
|||
|
|
("rlogin:")
|
|||
|
|
("telnet:")
|
|||
|
|
("tn3270:")
|
|||
|
|
("wais:")
|
|||
|
|
("/cgi-bin/"))
|
|||
|
|
("rel"
|
|||
|
|
("next")
|
|||
|
|
("previous")
|
|||
|
|
("parent")
|
|||
|
|
("subdocument")
|
|||
|
|
("made"))
|
|||
|
|
("rev"
|
|||
|
|
("next")
|
|||
|
|
("previous")
|
|||
|
|
("parent")
|
|||
|
|
("subdocument")
|
|||
|
|
("made"))
|
|||
|
|
("title"))
|
|||
|
|
("base" t "href"
|
|||
|
|
("ftp:")
|
|||
|
|
("file:")
|
|||
|
|
("finger:")
|
|||
|
|
("gopher:")
|
|||
|
|
("http:")
|
|||
|
|
("mailto:")
|
|||
|
|
("news:")
|
|||
|
|
("rlogin:")
|
|||
|
|
("telnet:")
|
|||
|
|
("tn3270:")
|
|||
|
|
("wais:")
|
|||
|
|
("/cgi-bin/"))
|
|||
|
|
("dir"
|
|||
|
|
(nil n
|
|||
|
|
("List item: " "<li>" str
|
|||
|
|
(if sgml-xml-mode "</li>")
|
|||
|
|
n)))
|
|||
|
|
("font" nil "size"
|
|||
|
|
("-1")
|
|||
|
|
("+1")
|
|||
|
|
("-2")
|
|||
|
|
("+2")
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7"))
|
|||
|
|
("form"
|
|||
|
|
(n _ n "<input type=\"submit\" value=\"\""
|
|||
|
|
(if sgml-xml-mode " />" ">"))
|
|||
|
|
("action"
|
|||
|
|
("ftp:")
|
|||
|
|
("file:")
|
|||
|
|
("finger:")
|
|||
|
|
("gopher:")
|
|||
|
|
("http:")
|
|||
|
|
("mailto:")
|
|||
|
|
("news:")
|
|||
|
|
("rlogin:")
|
|||
|
|
("telnet:")
|
|||
|
|
("tn3270:")
|
|||
|
|
("wais:")
|
|||
|
|
("/cgi-bin/"))
|
|||
|
|
("method"
|
|||
|
|
("get")
|
|||
|
|
("post")))
|
|||
|
|
("h1"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("h2"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("h3"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("h4"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("h5"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("h6"
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("hr" t
|
|||
|
|
("size"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("width")
|
|||
|
|
("noshade" t)
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("img" t
|
|||
|
|
("align"
|
|||
|
|
("top")
|
|||
|
|
("middle")
|
|||
|
|
("bottom")
|
|||
|
|
("baseline")
|
|||
|
|
("texttop")
|
|||
|
|
("absmiddle")
|
|||
|
|
("absbottom"))
|
|||
|
|
("src")
|
|||
|
|
("alt")
|
|||
|
|
("width" "1")
|
|||
|
|
("height" "1")
|
|||
|
|
("border" "1")
|
|||
|
|
("vspace" "1")
|
|||
|
|
("hspace" "1")
|
|||
|
|
("ismap" t))
|
|||
|
|
("input" t
|
|||
|
|
("size"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("maxlength"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("checked" t)
|
|||
|
|
("name")
|
|||
|
|
("type"
|
|||
|
|
("text")
|
|||
|
|
("password")
|
|||
|
|
("checkbox")
|
|||
|
|
("radio")
|
|||
|
|
("submit")
|
|||
|
|
("reset"))
|
|||
|
|
("value"))
|
|||
|
|
("link" t
|
|||
|
|
("href"
|
|||
|
|
("ftp:")
|
|||
|
|
("file:")
|
|||
|
|
("finger:")
|
|||
|
|
("gopher:")
|
|||
|
|
("http:")
|
|||
|
|
("mailto:")
|
|||
|
|
("news:")
|
|||
|
|
("rlogin:")
|
|||
|
|
("telnet:")
|
|||
|
|
("tn3270:")
|
|||
|
|
("wais:")
|
|||
|
|
("/cgi-bin/"))
|
|||
|
|
("rel"
|
|||
|
|
("next")
|
|||
|
|
("previous")
|
|||
|
|
("parent")
|
|||
|
|
("subdocument")
|
|||
|
|
("made"))
|
|||
|
|
("rev"
|
|||
|
|
("next")
|
|||
|
|
("previous")
|
|||
|
|
("parent")
|
|||
|
|
("subdocument")
|
|||
|
|
("made"))
|
|||
|
|
("title"))
|
|||
|
|
("menu"
|
|||
|
|
(nil n
|
|||
|
|
("List item: " "<li>" str
|
|||
|
|
(if sgml-xml-mode "</li>")
|
|||
|
|
n)))
|
|||
|
|
("ol"
|
|||
|
|
(nil n
|
|||
|
|
("List item: " "<li>" str
|
|||
|
|
(if sgml-xml-mode "</li>")
|
|||
|
|
n))
|
|||
|
|
("type"
|
|||
|
|
("A")
|
|||
|
|
("a")
|
|||
|
|
("I")
|
|||
|
|
("i")
|
|||
|
|
("1")))
|
|||
|
|
("p" t
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right")))
|
|||
|
|
("select"
|
|||
|
|
(nil n
|
|||
|
|
("Text: " "<option>" str
|
|||
|
|
(if sgml-xml-mode "</option>")
|
|||
|
|
n))
|
|||
|
|
("name")
|
|||
|
|
("size"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("multiple" t))
|
|||
|
|
("table"
|
|||
|
|
(nil n
|
|||
|
|
((completing-read "Cell kind: "
|
|||
|
|
'(("td")
|
|||
|
|
("th"))
|
|||
|
|
nil t "t")
|
|||
|
|
"<tr><" str 62 _
|
|||
|
|
(if sgml-xml-mode
|
|||
|
|
(concat "<" str "></tr>"))
|
|||
|
|
n))
|
|||
|
|
("border" t
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("width" "10")
|
|||
|
|
("cellpadding"))
|
|||
|
|
("td" t
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right"))
|
|||
|
|
("valign"
|
|||
|
|
("top")
|
|||
|
|
("middle")
|
|||
|
|
("bottom")
|
|||
|
|
("baseline"))
|
|||
|
|
("colspan"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("rowspan"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("nowrap" t))
|
|||
|
|
("textarea"
|
|||
|
|
("name")
|
|||
|
|
("rows"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("cols"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9")))
|
|||
|
|
("th" t
|
|||
|
|
("align"
|
|||
|
|
("left")
|
|||
|
|
("center")
|
|||
|
|
("right"))
|
|||
|
|
("valign"
|
|||
|
|
("top")
|
|||
|
|
("middle")
|
|||
|
|
("bottom")
|
|||
|
|
("baseline"))
|
|||
|
|
("colspan"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("rowspan"
|
|||
|
|
("1")
|
|||
|
|
("2")
|
|||
|
|
("3")
|
|||
|
|
("4")
|
|||
|
|
("5")
|
|||
|
|
("6")
|
|||
|
|
("7")
|
|||
|
|
("8")
|
|||
|
|
("9"))
|
|||
|
|
("nowrap" t))
|
|||
|
|
("ul"
|
|||
|
|
(nil n
|
|||
|
|
("List item: " "<li>" str
|
|||
|
|
(if sgml-xml-mode "</li>")
|
|||
|
|
n))
|
|||
|
|
("type"
|
|||
|
|
("disc")
|
|||
|
|
("circle")
|
|||
|
|
("square")))
|
|||
|
|
("!["
|
|||
|
|
("ignore" t)
|
|||
|
|
("include" t))
|
|||
|
|
("!attlist")
|
|||
|
|
("!doctype")
|
|||
|
|
("!element")
|
|||
|
|
("!entity")
|
|||
|
|
("abbrev")
|
|||
|
|
("acronym")
|
|||
|
|
("address")
|
|||
|
|
("array"
|
|||
|
|
(nil n
|
|||
|
|
("Item: " "<item>" str
|
|||
|
|
(if sgml-xml-mode "</item>")
|
|||
|
|
n))
|
|||
|
|
"align")
|
|||
|
|
("au")
|
|||
|
|
("b")
|
|||
|
|
("big")
|
|||
|
|
("blink")
|
|||
|
|
("blockquote" n)
|
|||
|
|
("body" n
|
|||
|
|
("background" ".gif")
|
|||
|
|
("bgcolor" "#")
|
|||
|
|
("text" "#")
|
|||
|
|
("link" "#")
|
|||
|
|
("alink" "#")
|
|||
|
|
("vlink" "#"))
|
|||
|
|
("box"
|
|||
|
|
(nil _ "<over>" _
|
|||
|
|
(if sgml-xml-mode "</over>")))
|
|||
|
|
("br" t
|
|||
|
|
("clear"
|
|||
|
|
("left")
|
|||
|
|
("right")))
|
|||
|
|
("caption"
|
|||
|
|
("valign"
|
|||
|
|
("top")
|
|||
|
|
("bottom")))
|
|||
|
|
("center" n)
|
|||
|
|
("cite")
|
|||
|
|
("code" n)
|
|||
|
|
("dd" t)
|
|||
|
|
("del")
|
|||
|
|
("dfn")
|
|||
|
|
("div")
|
|||
|
|
("dl"
|
|||
|
|
(nil n
|
|||
|
|
("Term: " "<dt>" str
|
|||
|
|
(if sgml-xml-mode "</dt>")
|
|||
|
|
"<dd>" _
|
|||
|
|
(if sgml-xml-mode "</dd>")
|
|||
|
|
n)))
|
|||
|
|
("dt"
|
|||
|
|
(t _
|
|||
|
|
(if sgml-xml-mode "</dt>")
|
|||
|
|
"<dd>"
|
|||
|
|
(if sgml-xml-mode "</dd>")
|
|||
|
|
n))
|
|||
|
|
("em")
|
|||
|
|
("head" n)
|
|||
|
|
("html"
|
|||
|
|
(n "<head>\n" "<title>"
|
|||
|
|
(setq str
|
|||
|
|
(read-input "Title: "))
|
|||
|
|
"</title>\n" "</head>\n" "<body>\n<h1>" str "</h1>\n" _ "\n<address>\n<a href=\"mailto:" user-mail-address "\">"
|
|||
|
|
(user-full-name)
|
|||
|
|
"</a>\n</address>\n" "</body>"))
|
|||
|
|
("i")
|
|||
|
|
("ins")
|
|||
|
|
("isindex" t
|
|||
|
|
("action")
|
|||
|
|
("prompt"))
|
|||
|
|
("kbd")
|
|||
|
|
("lang")
|
|||
|
|
("li" t)
|
|||
|
|
("math" n)
|
|||
|
|
("nobr")
|
|||
|
|
("option" t
|
|||
|
|
("value")
|
|||
|
|
("label")
|
|||
|
|
("selected" t))
|
|||
|
|
("over" t)
|
|||
|
|
("person")
|
|||
|
|
("pre" n)
|
|||
|
|
("q")
|
|||
|
|
("rev")
|
|||
|
|
("s")
|
|||
|
|
("samp")
|
|||
|
|
("small")
|
|||
|
|
("span" nil
|
|||
|
|
("class"
|
|||
|
|
("builtin")
|
|||
|
|
("comment")
|
|||
|
|
("constant")
|
|||
|
|
("function-name")
|
|||
|
|
("keyword")
|
|||
|
|
("string")
|
|||
|
|
("type")
|
|||
|
|
("variable-name")
|
|||
|
|
("warning")))
|
|||
|
|
("strong")
|
|||
|
|
("sub")
|
|||
|
|
("sup")
|
|||
|
|
("title")
|
|||
|
|
("tr" t)
|
|||
|
|
("tt")
|
|||
|
|
("u")
|
|||
|
|
("var")
|
|||
|
|
("wbr" t)))
|
|||
|
|
(sgml-saved-validate-command nil)
|
|||
|
|
(sgml-face-tag-alist
|
|||
|
|
'((bold . "b")
|
|||
|
|
(italic . "i")
|
|||
|
|
(underline . "u")
|
|||
|
|
(modeline . "rev")))
|
|||
|
|
(sgml-empty-tags
|
|||
|
|
'("area" "base" "basefont" "br" "col" "frame" "hr" "img" "input" "isindex" "link" "meta" "param" "wbr"))
|
|||
|
|
(sgml-display-text
|
|||
|
|
'((img . "[/]")
|
|||
|
|
(hr . "----------")
|
|||
|
|
(li . "o ")))
|
|||
|
|
(sentence-end-base "[.?!][]\"'””)}]*\\(<[^>]*>\\)*")
|
|||
|
|
(require-final-newline t)
|
|||
|
|
(paragraph-start "[ ]*$\\|[ ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>")
|
|||
|
|
(paragraph-separate "[ ]*$\\|[ ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$")
|
|||
|
|
(outline-regexp "^.*<[Hh][1-6]\\>")
|
|||
|
|
(outline-level
|
|||
|
|
'#[nil "\300\225Sf\207"
|
|||
|
|
[0]
|
|||
|
|
1])
|
|||
|
|
(outline-heading-end-regexp "</[Hh][1-6]>")
|
|||
|
|
(nxhtml-minor-mode-major-mode 'html-mode)
|
|||
|
|
(nxhtml-minor-mode t)
|
|||
|
|
(major-mode 'html-mode)
|
|||
|
|
(jit-lock-after-change-extend-region-functions
|
|||
|
|
'(font-lock-extend-jit-lock-region-after-change t))
|
|||
|
|
(indent-line-function 'sgml-indent-line)
|
|||
|
|
(imenu-create-index-function 'html-imenu-index)
|
|||
|
|
(font-lock-syntactic-keywords 'sgml-font-lock-syntactic-keywords)
|
|||
|
|
(font-lock-multiline nil)
|
|||
|
|
(fill-nobreak-predicate
|
|||
|
|
'(sgml-fill-nobreak t))
|
|||
|
|
(facemenu-end-add-face nil)
|
|||
|
|
(facemenu-add-face-function 'sgml-mode-facemenu-add-face-function)
|
|||
|
|
(comment-start-skip "<!--[ ]*")
|
|||
|
|
(comment-start "<!-- ")
|
|||
|
|
(comment-line-break-function 'sgml-comment-indent-new-line)
|
|||
|
|
(comment-indent-function 'sgml-comment-indent)
|
|||
|
|
(comment-end-skip "[ ]*--[ \n]*>")
|
|||
|
|
(comment-end " -->")
|
|||
|
|
(char-property-alias-alist
|
|||
|
|
'((face font-lock-face)))
|
|||
|
|
(auto-composition-mode-major-mode 'html-mode)
|
|||
|
|
(auto-composition-mode t)
|
|||
|
|
(auto-composition-function 'auto-compose-chars)
|
|||
|
|
(adaptive-fill-regexp "[ ]*"))
|
|||
|
|
;; The syntax table is handled differently since it is not just a
|
|||
|
|
;; variable. Instead of copying it the name of the syntax table is
|
|||
|
|
;; used together with `with-syntax-table' to change it
|
|||
|
|
;; temporarily.
|
|||
|
|
(with-syntax-table
|
|||
|
|
(if html-mode-syntax-table html-mode-syntax-table
|
|||
|
|
(standard-syntax-table))
|
|||
|
|
(let ((t1 (get-internal-run-time))
|
|||
|
|
t2)
|
|||
|
|
;; And here I am setting font lock variables again. Why did I
|
|||
|
|
;; do that? I have to test, it is probably a left over from
|
|||
|
|
;; earlier versions.
|
|||
|
|
(setq font-lock-set-defaults nil)
|
|||
|
|
(font-lock-set-defaults)
|
|||
|
|
;; Just some timing test stuff:
|
|||
|
|
(setq t2 (get-internal-run-time))
|
|||
|
|
(mumamo-msgfntfy "font-lock-set-defaults runtime=%s, %s" t1 t2)
|
|||
|
|
t2)
|
|||
|
|
;; And finally - here is what I wanted to do:
|
|||
|
|
(eval body))))
|
|||
|
|
|
|||
|
|
;; Local Variables:
|
|||
|
|
;; coding: utf-8
|
|||
|
|
;; End:
|