6 | `DIV of int * string option * html_tag (* indentation, color, tag *)
8 type html_msg = [ `Error of html_tag | `Msg of html_tag ]
10 val string_of_html_msg: html_msg -> string
11 val html_of_html_msg: html_msg -> string
13 type logger_fun = ?append_NL:bool -> html_msg -> unit
15 val register_log_callback: logger_fun -> unit