");
}
define html_keymap_f ()
{
switch (html_read_key ("txtArea Chkbox Form Hidden Input Option Passw Radio Select Text Xreset Ysubmit"))
{case 'a': html_text_area (); }
{case 'c': html_input_checkbox (); }
{case 'f': html_form (); }
{case 'h': html_input_hidden (); }
{case 'i': html_input (); }
{case 'o': html_insert_bol("option"); }
{case 'p': html_input_password (); }
{case 'r': html_input_radio (); }
{case 's': html_select (); }
{case 't': html_input_text (); }
{case 'x': html_input_reset (); }
{case 'y': html_input_submit (); }
{
% default
pop ();
beep ();
}
}
define html_keymap_h ()
{
variable key;
switch (html_read_key ("h1 h2 h3 h4 h5 h6 templAte Doc Head Body htmL Title"))
{ case 'd': html_insert_bol ("doc"); }
{ case 'h': html_insert_with_newline ("head"); }
{ case 'b': html_insert_with_newline ("body"); }
{ case 'l': html_insert_with_newline ("html"); }
{ case 't': html_insert_with_newline ("title"); }
{ case 'a': html_template (); }
{ % default:
key = ();
if ((key <= '6') and (key >= '1'))
html_heading (key);
else beep ();
}
}
define html_keymap_i ()
{
html_image ();
}
define html_keymap_l ()
{
switch (html_read_key ("Dir Li Menu Ordered Un-ordered"))
{ case 'd': html_insert_with_newline ("dir"); }
{ case 'i': html_insert_bol ("li"); }
{ case 'l': html_insert_bol ("li"); }
{ case 'm': html_insert_with_newline ("menu"); }
{ case 'o': html_insert_with_newline ("ol"); }
{ case 'u': html_insert_with_newline ("ul"); }
{
% default
pop ();
beep ();
}
}
define html_keymap_p ()
{
switch (html_read_key ("Break Hrule Par blockQuote pRe"))
{ case 'b': html_insert_eol ("br"); }
{ case 'h': html_horiz_rule (); }
{ case 'p': insert ("\n"); }
{ case 'q': html_insert_with_newline ("blockquote"); }
{ case 'r': html_insert_with_newline ("pre"); }
{
pop();
beep ();
}
}
define html_keymap_s ()
{
switch (html_read_key ("Address Bold Cite Emph Ital Kbd cOde Samp Tt Uline Var"))
{ case 'a': "address"; }
{ case 'b': "b"; }
{ case 'c': "cite"; }
{ case 'e': "em"; }
{ case 'i': "i"; }
{ case 'k': "kbd"; }
{ case 'o': "code"; }
{ case 's': "samp"; }
{ case 't': "tt"; }
{ case 'u': "u"; }
{ case 'v': "var"; }
{
pop (); beep (); return;
}
html_simple_insert (());
}
define html_keymap ()
{
switch (html_read_key ("Anchors Dfnlists Forms Headings Images Lists Pstyles cStyles ?help"))
{ case 2: html_bskip_tag (); } % ^B
{ case 6: html_skip_tag (); } % ^F
{ case 14: html_mark_next_tag (); } % ^N
{ case 14: html_mark_prev_tag (); } % ^P
{ case 'c': html_comment (); }
{ case 'a': html_keymap_a (); }
{ case 'd': html_keymap_d (); }
{ case 'f': html_keymap_f (); }
{ case 'h': html_keymap_h (); }
{ case 'i': html_keymap_i (); }
{ case 'l': html_keymap_l (); }
{ case 'p': html_keymap_p (); }
{ case 's': html_keymap_s (); }
{
ungetkey (());
html_quoted_insert ();
}
flush ("");
}
$1 = "html";
!if (keymap_p ($1)) make_keymap ($1);
undefinekey ("^C", $1);
definekey("html_keymap", "^C", $1);
undefinekey ("\e;", $1);
definekey ("html_comment", "\e;", $1);
definekey ("html_quoted_insert", "`", $1);
create_syntax_table ($1);
define_syntax ("<", ">", '(', $1); % make these guys blink match
define_syntax ("<>", '<', $1);
define_syntax ("", '%', $1);
define_syntax ("A-Za-z&", 'w', $1);
define_syntax ('#', '#', $1);
() = define_keywords ($1, "><", 3);
() = define_keywords ($1, "Ð&ð", 4);
() = define_keywords ($1, strcat (
"ÄËÏÖÜ",
"äëï ö"üÿ"
),
5);
() = define_keywords ($1, strcat (
"ÆÂÅÊÎÔÞÛâ",
"æåêîôßþû"
),
6);
() = define_keywords ($1, strncat (
"ÁÀÃÇÉÈÍÌ",
"ÑÓÒØÕÚÙÝ",
"áàãçéèíì",
"ñóòøõúùý",
4),
7);
%!% Prototype: Void html_mode ();
%!% @html_mode@ is a mode designed for editing HTML files.
%!% If a region is defined (i.e., if a mark is set), many HTML
%!% tags will insert around the region, e.g. '' and ''.
%!%
%!% if the variable 'HTMLModeWraps' is set to 1, this mode will wrap
%!% (like @text_mode@ does); otherwise, this mode won't wrap (like @no_mode@).
%!%
%!% Keybindings begin with ^C and are grouped according to function:
%!% ^CA... Anchors (...)
%!% ^CD... Definition lists (
...
)
%!% ^CF... Forms ()
%!% ^CH... Headings, document type, etc.
%!% ^CI... Images
%!% ^CL... Lists ()
%!% ^CP... Paragraph styles, etc. (,
,
, , etc.)
%!% ^CS... Character styles (, , , , etc.)
%!% Additionally, some special movement commands and miscellaneous
%!% characters are defined:
%!% ^C^B skip to beginning of prior HTML tag
%!% ^C^F skip to end of next HTML tag
%!% ^C^N mark next HTML tag from '<' to '>'
%!% ^C^P mark prior HTML tag from '<' to '>'
%!% ^C& insert HTML text for '&'
%!% ^C> insert HTML text for '>'
%!% ^C< insert HMTL text for '<'
%!% ^CC insert HTML comment (around region, if marked)
%!%
%!% For a complete list of keybindings, use @describe_bindings@.
%!%
%!% This function calls @html_mode_hook@ if it exists.
define html_mode ()
{
variable html = "html";
set_mode(html, 1);
set_buffer_hook ("par_sep", "html_paragraph_separator");
use_syntax_table (html);
use_keymap (html);
runhooks ("html_mode_hook");
}