let html_tag_functions =
let mark_open_tag t = Format.sprintf "<%s>" t
and mark_close_tag t =
try
let index = String.index t ' ' in
Format.sprintf "</%s>" (String.sub t 0 index)
with
| Not_found -> Format.sprintf "</%s>" t
and print_open_tag _ = ()
and print_close_tag _ = ()
in
{ Format.mark_open_tag = mark_open_tag;
Format.mark_close_tag = mark_close_tag;
Format.print_open_tag = print_open_tag;
Format.print_close_tag = print_close_tag;
}