module sdp.output.xmls;
template outputXHTMLs() {
  import sdp.output;
  import
    std.digest.sha,
    std.file,
    std.outbuffer,
    std.zip,
    std.conv : to;
  import
    sdp.output.create_zip_file,
    sdp.output.xmls,
    sdp.output.xmls_css;
  mixin SiSUoutputRgxInit;
  struct outputXHTMLs {
    static auto rgx = Rgx();
    string div_delimit(
      string                     part,
      return ref string          previous_part
    ){
      string delimit = "";
      string delimit_ = "";
      if (part != previous_part) {
        switch (part) {
        case "head":
          delimit_ ~= "\n
\n" ;
          break;
        case "toc_seg":
          delimit_ ~= "\n
\n" ;
          break;
        case "toc_scroll":
          delimit_ ~= "\n
\n" ;
          break;
        case "bookindex_seg":
          delimit_ ~= "\n
\n" ;
          break;
        case "bookindex_scroll":
          delimit_ ~= "\n
\n" ;
          break;
        default:
          delimit_ ~= "\n
\n" ;
          break;
        }
        if (previous_part.length > 0) {
          delimit ~= "\n
";
        }
        previous_part = part;
        delimit ~=  delimit_;
      }
      // you also need to close the last div, introduce a footer?
      return delimit;
    }
    string special_characters(O)(
      auto return ref const O    obj,
      string                     _txt
    ){
      _txt = (_txt)
        .replaceAll(rgx.xhtml_ampersand,    "&")
        .replaceAll(rgx.xhtml_quotation,    """)
        .replaceAll(rgx.xhtml_less_than,    "<")
        .replaceAll(rgx.xhtml_greater_than, ">")
        .replaceAll(rgx.nbsp_char,          " ");
      if (!(obj.is_a == "code")) {
        _txt = (_txt)
          .replaceAll(rgx.xhtml_line_break,   "
");
      }
      return _txt;
    }
    string special_characters_text(string _txt){
      _txt = (_txt)
        .replaceAll(rgx.xhtml_ampersand,    "&")
        .replaceAll(rgx.xhtml_quotation,    """)
        .replaceAll(rgx.xhtml_less_than,    "<")
        .replaceAll(rgx.xhtml_greater_than, ">")
        .replaceAll(rgx.nbsp_char,          " ");
      return _txt;
    }
    string font_face(string _txt){
      _txt = (_txt)
        .replaceAll(rgx.inline_emphasis,    ("
$1 "))
        .replaceAll(rgx.inline_bold,        ("
$1 "))
        .replaceAll(rgx.inline_underscore,  ("
$1 "))
        .replaceAll(rgx.inline_italics,     ("
$1 "))
        .replaceAll(rgx.inline_superscript, ("
$1 "))
        .replaceAll(rgx.inline_subscript,   ("
$1 "))
        .replaceAll(rgx.inline_strike,      ("
$1"))
        .replaceAll(rgx.inline_insert,      ("
$1 "))
        .replaceAll(rgx.inline_mono,        ("
$1 "))
        .replaceAll(rgx.inline_cite,        ("
$1 "));
      return _txt;
    }
    string _xhtml_anchor_tags(const(string[]) anchor_tags) {
      string tags="";
      if (anchor_tags.length > 0) {
        foreach (tag; anchor_tags) {
          if (!(tag.empty)) {
            tags ~= "
";
          }
        }
      }
      return tags;
    }
    auto header_metadata(Dm)(
      Dm doc_matters,
    ) {
      string _title="Title";
      string _author="Author";
      string _publisher="Publisher";
      string _date="Date";
      string _date_created="Date";
      string _date_issued="Date";
      string _date_available="Date";
      string _date_valid="Date";
      string _date_modified="Date";
      string _language="en";
      string _rights="Copyright: Copyright (C) year holder";
      string _generator="sdp [SiSU 7.1.8 of 2016w08/5 (2016-02-26)] (n*x and D)";
      string _generator_home="http://www.sisudoc.org";
      string o;
      o = format(q"¶
    
 
     
     
     
     
     
     
     
     
     
     
     
     
    
    ¶",
      _title,
      _author,
      _publisher,
      _date,
      _date_created,
      _date_issued,
      _date_available,
      _date_valid,
      _date_modified,
      _language,
      _rights,
      _generator,
      _generator_home,
      );
      return o;
    }
    auto site_info_button(Dm)(
      Dm doc_matters,
    ) {
      string _location_1_url ="http://www.sisudoc.org";
      string _location_1_lnk ="SiSU";
      string _location_2_url ="http://www.sisudoc.org";
      string _location_2_lnk ="www.sisudoc.org";
      string _location_3_url ="http://www.sisudoc.org";
      string _location_3_lnk ="sisu";
      string o;
      o = format(q"¶¶",
      _location_1_url,
      _location_1_lnk,
      _location_2_url,
      _location_2_lnk,
      _location_3_url,
      _location_3_lnk,
      );
      return o;
    }
    auto inline_search_form(Dm)(
      Dm doc_matters,
    ) {
      string _action="http://www.sisudoc.org/cgi-bin/search.cgi";
      string _db="SiSU.7a.manual";
      string o;
      o = format(q"¶¶",
      _action,
      _db,
      );
      return o;
    }
    auto html_head(Dm)(
      Dm doc_matters,
      string type,
    ) {
      string o;
      o = format(q"¶
    
    
      
 
      
        %s%s
       
      
      %s
      
      
 
       
       
    
    
     
    
      "),
      );
      return o;
    }
    auto epub3_seg_head(Dm)(
      Dm doc_matters,
    ) {
      string html_base = format(q"¶
    ¶",
    );
      string html_simple = format(q"¶
    ¶",
        doc_matters.src.language,
        doc_matters.src.language,
      );
      string html_strict = format(q"¶
    ¶",
        doc_matters.src.language,
        doc_matters.src.language,
      );
      string o;
      o = format(q"¶%s
    
      
        %s%s
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
    
    
    ¶",
        html_simple,
        doc_matters.conf_make_meta.meta.title_full,
        (doc_matters.conf_make_meta.meta.creator_author.empty) ? ""
          : ", " ~ doc_matters.conf_make_meta.meta.creator_author,
        doc_matters.conf_make_meta.meta.title_full,
        (doc_matters.conf_make_meta.meta.creator_author.empty) ? ""
          : ", " ~ doc_matters.conf_make_meta.meta.creator_author,
        doc_matters.src.language,
      );
      return o;
    }
    auto tail() {
      string o;
      o = format(q"¶  
 
       
      
    
    ¶");
      return o;
    }
    auto inline_links(O)(
      auto return ref const O obj,
      string                  _txt,
      string                  _suffix    = ".html",
      string                  seg_scroll = "seg",
    ) {
      if (obj.inline_links) {
        if ((_txt.match(rgx.mark_internal_site_lnk))
        && (seg_scroll == "scroll")) { // conditions reversed to avoid: gdc compiled program run segfault
          _txt = (_txt).replaceAll(
            rgx.inline_seg_link,
            "$1");
        }
        _txt = (_txt).replaceAll(
          rgx.inline_link_fn_suffix,
          ("$1" ~ _suffix));
        _txt = (_txt).replaceAll(
          rgx.inline_link,
          ("
$1 "));
        _txt = (_txt).replaceAll(
          rgx.mark_internal_site_lnk,
          ""
        );
      }
      debug(markup_links) {
        if (_txt.match(rgx.inline_link)) {
          writeln(__LINE__,
            " (missed) markup link identified (",
            obj.inline_links,
            "): ", obj.is_a, ": ",
            obj.text
          );
        }
      }
      debug(markup) {
        if (_txt.match(rgx.inline_link)) {
          writeln(__LINE__,
            " (missed) markup link identified (",
            obj.inline_links,
            "): ", obj.is_a, ": ",
            obj.text
          );
        }
      }
      return _txt;
    }
    auto inline_notes_scroll(O)(
      auto return ref const O   obj,
      string                    _txt,
    ) {
      if (obj.inline_notes_reg) {
        _txt = (_txt).replaceAll(
          rgx.inline_notes_delimiter_al_regular_number_note,
          ("
 $1   ")
        );
      }
      debug(markup_endnotes) {
        if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
          writeln(__LINE__, " (missed) markup endnote: ", obj.is_a, ": ", obj.text);
        }
      }
      debug(markup) {
        if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
          writeln(__LINE__, " (missed) markup endnote: ", obj.is_a, ": ", obj.text);
        }
      }
      return _txt;
    }
    auto inline_notes_seg(O)(
      auto return ref const O     obj,
      string                      _txt,
    ) {
      string[] _endnotes;
      if (obj.inline_notes_reg) {
        /+ need markup for text, and separated footnote +/
        foreach(m; _txt.matchAll(rgx.inline_notes_delimiter_al_regular_number_note)) {
          _endnotes ~= format(
            "%s%s%s%s\n  %s%s%s%s%s\n  %s\n%s",
            "
",
            "",
            " ",
            m.captures[1],
            ".   ",
            m.captures[2],
            "
"
          );
        }
        _txt = (_txt).replaceAll(
          rgx.inline_notes_delimiter_al_regular_number_note,
          ("
 $1   ")
        );
      } else if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
        debug(markup) {
          writeln(__LINE__, " endnote: ", obj.is_a, ": ", obj.text);
        }
      }
      auto t = tuple(
        _txt,
        _endnotes,
      );
      return t;
    }
    auto inline_markup_scroll(O)(
      auto return ref const O  obj,
      string                   _txt,
      string                   _suffix = ".html",
    ) {
      _txt = inline_links(obj, _txt, _suffix, "scroll");
      _txt = inline_notes_scroll(obj, _txt);
      return _txt;
    }
    auto inline_markup_seg(O)(
      auto return ref const O  obj,
      string                   _txt,
      string                   _suffix = ".html",
    ) {
      _txt = inline_links(obj, _txt, _suffix, "seg");
      auto t = inline_notes_seg(obj, _txt);
      return t;
    }
    string lev4_heading_subtoc(O)(
      auto return ref const O    obj,
    ) {
      char[] lev4_subtoc;
      lev4_subtoc ~= "  
\n";
      foreach (subtoc; obj.lev4_subtoc) {
        if (auto m = subtoc.match(rgx.inline_link_subtoc)) {
          auto indent = to!string(m.captures[1]);
          auto text = to!string(m.captures[2]);
          text = font_face(text);
          auto link = to!string(m.captures[3]);
          lev4_subtoc ~= subtoc.replaceFirst(rgx.inline_link_subtoc,
            format(q"¶    
          %s 
        
    ¶",
              indent,
              indent,
              link,
              text,
          ));
        }
      }
      lev4_subtoc ~= "  
\n";
      return lev4_subtoc.to!string;
    }
    auto nav_pre_next_svg(O)(
      auto return ref const O    obj,
    ) {
      string prev, next, toc;
      if (obj.segment_anchor_tag == "toc") {
        toc = "";
        prev = "";
      } else {
        toc = format(q"¶
              
             ¶",
        );
      }
      if (obj.segname_prev == "") {
        prev = "";
      } else {
        prev = format(q"¶
              
             ¶",
          obj.segname_prev,
        );
      }
      if (obj.segname_next == "") {
        next = "";
      } else {
        next = format(q"¶
              
             ¶",
          obj.segname_next,
        );
      }
      string _toc_pre_next = format(q"¶        
      
 
    ¶",
        toc,
        prev,
        next,
      );
      string _pre_next = format(q"¶        
      
 
    ¶",
        prev,
        next,
      );
      struct bar {
        string toc_pre_next() {
          return _toc_pre_next;
        }
        string pre_next() {
          return _pre_next;
        }
      }
      return bar();
    }
    auto heading(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _type="html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      string _horizontal_rule = "
";
      if ((_type != "html")
      || (obj.heading_lev_markup == 0 || obj.heading_lev_markup > 4)) {
        _horizontal_rule = "";
      }
      _txt = font_face(_txt);
      string o;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶%s
      
        %s
          %s
         
      
¶",
          _horizontal_rule,
          obj.heading_lev_markup,
          obj.is_a,
          tags,
          _txt,
          obj.heading_lev_markup,
        );
      } else {
        o = format(q"¶%s
      
¶",
        _horizontal_rule,
        obj.obj_cite_number,
        obj.obj_cite_number,
        obj.heading_lev_markup,
        obj.is_a,
        obj.obj_cite_number,
        obj.obj_cite_number,
        tags,
        _txt,
        obj.heading_lev_markup,
        );
      }
      return o;
    }
    auto heading_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = heading(obj, _txt);
      return o;
    }
    auto heading_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
      string                     _type = "html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = t[0];
      string[] _endnotes = t[1];
      string o = heading(obj, _txt, _type);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto para(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = font_face(_txt);
      string o;
      _txt = (obj.bullet) ? ("●  " ~ _txt) : _txt;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶  
¶",
          obj.is_a,
          obj.indent_hang,
          obj.indent_base,
          tags,
          _txt
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.indent_hang,
          obj.indent_base,
          obj.obj_cite_number,
          tags,
          _txt
        );
      }
      return o;
    }
    auto para_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = para(obj, _txt);
      return o;
    }
    auto para_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = to!string(t[0]);
      string[] _endnotes = t[1];
      string o = para(obj, _txt);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto quote(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      _txt = font_face(_txt);
      string o;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶  
¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt
        );
      }
      return o;
    }
    auto quote_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = quote(obj, _txt);
      return o;
    }
    auto quote_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = to!string(t[0]);
      string[] _endnotes = t[1];
      string o = quote(obj, _txt);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto group(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      _txt = font_face(_txt);
      string o;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶  
¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt
        );
      }
      return o;
    }
    auto group_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = group(obj, _txt);
      return o;
    }
    auto group_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = to!string(t[0]);
      string[] _endnotes = t[1];
      string o = group(obj, _txt);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto block(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      _txt = font_face(_txt);
      string o;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶  
¶",
          obj.is_a,
          _txt.stripRight
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt.stripRight
        );
      }
      return o;
    }
    auto block_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = block(obj, _txt);
      return o;
    }
    auto block_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = to!string(t[0]);
      string[] _endnotes = t[1];
      string o = block(obj, _txt);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto verse(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      _txt = font_face(_txt);
      string o;
      if (obj.obj_cite_number.empty) {
          o = format(q"¶  
¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt
        );
      }
      return o;
    }
    auto verse_scroll(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = inline_markup_scroll(obj, _txt, _suffix);
      string o = verse(obj, _txt);
      return o;
    }
    auto verse_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
      string                     _suffix = ".html",
    ) {
      auto t = inline_markup_seg(obj, _txt, _suffix);
      _txt = to!string(t[0]);
      string[] _endnotes = t[1];
      string o = verse(obj, _txt);
      auto u = tuple(
        o,
        _endnotes,
      );
      return u;
    }
    auto tablarize(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      string[] _table_rows = (_txt).split(rgx.table_delimiter_row);
      string[] _table_cols;
      string _table;
      string _tablenote;
      foreach(row_idx, row; _table_rows) {
        _table_cols = row.split(rgx.table_delimiter_col);
          _table ~= "
";
          foreach(col_idx, cell; _table_cols) {
            if ((_table_cols.length == 1)
            && (_table_rows.length <= row_idx+2)) {
              _tablenote ~= cell;
            } else {
              string _col_is = (row_idx == 0 && obj.table_heading) ? "th" : "td";
              string _align = ("style=\"text-align:"
              ~ ((obj.table_column_aligns[col_idx] == "l")
              ? "left\"" : "right\""));
              _table ~= "<" ~ _col_is ~ " width=\"" ~ obj.table_column_widths[col_idx].to!string ~ "%\" " ~ _align ~ ">";
              _table ~= cell;
              _table ~= "" ~ _col_is ~ ">";
            }
          }
          _table ~= " ";
        }
      auto t = tuple(
        _table,
        _tablenote,
      );
      return t;
    }
    auto table(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      auto tags = _xhtml_anchor_tags(obj.anchor_tags);
      _txt = font_face(_txt);
      auto t = tablarize(obj, _txt);
      _txt = t[0];
      string _note = t[1];
      string o;
      o = format(q"¶  
¶",
        obj.obj_cite_number,
        obj.obj_cite_number,
        obj.is_a,
        obj.obj_cite_number,
        tags,
        _txt,
        _note
      );
      return o;
    }
    auto endnote(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      string o;
      o = format(q"¶    
      %s
    
¶",
        obj.is_a,
        obj.indent_hang,
        obj.indent_base,
        _txt
      );
      return o;
    }
    auto code(O)(
      auto return ref const O  obj,
      string                   _txt,
    ) {
      string o;
      if (obj.obj_cite_number.empty) {
          o = format(q"¶  
¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  
¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt
        );
      }
      return o;
    }
  }
}