732 lines
22 KiB
EmacsLisp
732 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:
|