% Name: xhtml (an xml/xhtml mode for jed)
% Author: James Dean Palmer
% Revision: 0.2 (March 5, 2000)
% Creation: 0.1 (July 5, 1998)
% This is my xml/xhtml mode extensions for jed. It began as an html mode
% for jed that had more emacsish key bindings than jed's native html mode.
% I have recently resurrected it to be a general purpose xml mode with
% xhtml extensions (and still with the emacs style keybindings).
% It steals a few functions and the syntax highlighting code from html.sl
% by Raikanta Sahu, John E. Davis, and Jim Knoble.
% To install xml.sl, you can put the file in directory named ~/jed and
% then add something like this to your .jedrc file:
%
% set_jed_library_path (strcat (expand_filename ("~/jed"),
% ",", get_jed_library_path ()));
% autoload ("xml_mode", "xml.sl");
% add_mode_for_extension ("xml", "xml");
% % Add this line if you want to override Jed's html mode:
% add_mode_for_extension ("xml", "html");
%
% Change these variables to reflect your system.
variable xhtml_server = "http://www.tiger-marmalade.com/";
variable xhtml_home = "http://www.tiger-marmalade.com/~james/";
variable xhtml_name = "James Dean Palmer";
variable xhtml_email = "james@tiger-marmalade.com";
variable xhtml_lang = "en";
% This variable effects the amount of indentation that is done (in spaces).
variable xml_indent = 2;
% This simple formatting routine formats the current line relative to the
% previous line. It uses a simple technique -- it counts the open tags
% on the previous lines and subtracts the closed tags on the previous lines
% and any close tag that starts on the current line. This value then becomes
% the amount we format relative to the amount of whitespace on the previous
% line. Comments like "))
{
go_right_1 ();
end_tag_count++;
tag_count++;
}
goto_line (line);
bol ();
variable comment_tag_count = 0;
while ((what_line () == line) and ffind (" 0, then indent right.
column += open_tags * xml_indent;
column--;
if (column < 0) column = 0;
bol_trim ();
whitespace (column);
pop_spot ();
if (what_column () < column)
bol_skip_white ();
}
% Apply xml_indent_line to the entire buffer.
define xml_indent_buffer ()
{
bob ();
while (not(eobp ()))
{
xml_indent_line ();
go_down_1;
}
}
define xml_paragraph_separator ()
{
bol_skip_white ();
eolp () or ffind_char ('>') or ffind_char ('<');
}
define xml_skip_tag()
{
!if (fsearch_char ('>')) return;
go_right_1 ();
}
define xml_bskip_tag()
{
() = bsearch_char ('<');
}
define xml_mark_next_tag()
{
variable taglng = 1;
!if (fsearch_char ('>')) return;
go_right(taglng);
set_mark_cmd ();
go_left(taglng);
() = find_matching_delimiter (0);
}
define xml_mark_prev_tag()
{
!if (bsearch_char ('<')) return;
set_mark_cmd ();
() = find_matching_delimiter(0);
go_right_1 ();
exchange_point_and_mark();
}
% xhtml_insert_address
define xhtml_insert_address ()
{
vinsert ("%s", xhtml_email, xhtml_name, 2);
}
% The time stamp stuff was somewhat inspired by Jan Hlavacek's html extensions
% for Jed. Mine works a little better with my formatting routines.
define xhtml_insert_time_stamp ()
{
variable a;
a = time ();
vinsert ("\nModified on %s by ", a, 1);
xhtml_insert_address;
insert (".\n");
go_up (2);
xml_indent_line;
go_down_1;
xml_indent_line;
go_down_1;
xml_indent_line;
eol ();
}
define xhtml_update_time_stamp ()
{
push_spot();
eob();
if (re_bsearch (""))
{
bol ();
push_mark ();
if (re_fsearch (""))
{
eol ();
del_region ();
xhtml_insert_time_stamp ();
}
}
pop_spot ();
}
% A template for new files.
define xhtml_template ()
{
insert ("\n");
vinsert ("\n", xhtml_lang, xhtml_lang, 2);
insert ("\n");
insert ("\n");
insert ("Untitled Document\n");
insert ("\n");
insert ("\n\n");
push_spot ();
xhtml_insert_time_stamp ();
insert ("\n\n\n");
xml_indent_buffer ();
bob ();
pop_spot ();
}
define xhtml_insert_paired_tag (a, b)
{
vinsert ("%s\n\n", a, 1);
push_spot ();
vinsert ("%s\n", b, 1);
go_up (3);
xml_indent_line;
go_down_1;
xml_indent_line;
go_down_1;
xml_indent_line;
pop_spot ();
}
define xhtml_insert_single_tag (a)
{
vinsert ("%s", a, 1);
}
% Paired tag commands
define xhtml_paragraph () { xhtml_insert_paired_tag ("