Bracetax_HTML_printer.header

let header ?(title="") ?(comment="") ?stylesheet_link () =

  let css_str =

    match stylesheet_link with

    | None -> ""

    | Some f ->

        ~% "<link rel=\"stylesheet\"  type=\"text/css\" href=\"%s\" />\n"

          (sanitize_xml_attribute f)

  in

  ~% "<!DOCTYPE html

    PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"

    \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">

    <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">

    <!-- %s -->

    <head>

    <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />

    %s<title>%s</title>

    </head>

    <body>" (sanitize_comments comment) css_str (sanitize_pcdata title)