module sdp.output_xmls;
template outputXHTMLs() {
  private import
    std.algorithm,
    std.array,
    std.container,
    std.digest.sha,
    std.exception,
    std.file,
    std.getopt,
    std.json,
    std.outbuffer,
    std.path,
    std.process,
    std.range,
    std.regex,
    std.stdio,
    std.string,
    std.traits,
    std.typecons,
    std.uni,
    std.utf,
    std.zip,
    std.conv : to;
  import
    sdp.create_zip_file,
    sdp.defaults,
    sdp.output_rgx,
    sdp.output_xmls,
    sdp.output_xmls_css,
    sdp.paths_output;
  mixin SiSUoutputRgxInit;
  struct outputXHTMLs {
    auto rgx = Rgx();
    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,   "<br />");
      }
      return _txt;
    }
    string font_face(string _txt){
      _txt = (_txt)
        .replaceAll(rgx.inline_emphasis,    ("<em>$1</em>"))
        .replaceAll(rgx.inline_bold,        ("<b>$1</b>"))
        .replaceAll(rgx.inline_underscore,  ("<u>$1</u>"))
        .replaceAll(rgx.inline_italics,     ("<i>$1</i>"))
        .replaceAll(rgx.inline_superscript, ("<sup>$1</sup>"))
        .replaceAll(rgx.inline_subscript,   ("<sub>$1</sub>"))
        .replaceAll(rgx.inline_strike,      ("<del>$1</del>"))
        .replaceAll(rgx.inline_insert,      ("<ins>$1</ins>"))
        .replaceAll(rgx.inline_mono,        ("<tt>$1</tt>"))
        .replaceAll(rgx.inline_cite,        ("<cite>$1</cite>"));
      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 ~= "<a name=\"" ~ tag ~ "\"></a>";
          }
        }
      }
      return tags;
    }
    auto html_scroll_head(Dm)(
      Dm doc_matters,
    ) {
      string o;
      o = format(q"¶<!DOCTYPE html>
    <html>
    <head>
      <meta charset="utf-8">
        <title>
          %s%s
        </title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
        <meta name="dc.title" content="Title" />
        <meta name="dc.author" content="Author" />
        <meta name="dc.publisher" content="SiSU http://www.jus.uio.no/sisu (this copy)" />
        <meta name="dc.date" content="year" />
        <meta name="dc.date.created" content="year" />
        <meta name="dc.date.issued" content="year" />
        <meta name="dc.date.available" content="year" />
        <meta name="dc.date.valid" content="year" />
        <meta name="dc.date.modified" content="year" />
        <meta name="dc.language" content="US" />
        <meta name="dc.rights" content="Copyright: Copyright (C) year holder />
        <meta name="generator" content="sdp [SiSU 7.1.8 of 2016w08/5 (2016-02-26)] (n*x and D)" />
      </meta>
      <link rel="generator" href="http://www.sisudoc.org/" />
      <link rel="shortcut icon" href="../../image/rb7.ico" />
      <link href="../../css/html.css" rel="stylesheet" />
      <link href="../../../css/html.css" rel="stylesheet" />
    </head>
    <body lang="%s">
    <a name="top" id="top"></a>¶",
        doc_matters.dochead_meta["title"]["full"],
        (doc_matters.dochead_meta["creator"]["author"].empty) ? "" : ", " ~ doc_matters.dochead_meta["creator"]["author"],
        doc_matters.language,
      );
      return o;
    }
    auto html_seg_head(Dm)(
      Dm doc_matters,
    ) {
      string o;
      o = format(q"¶<!DOCTYPE html>
    <html>
    <head>
      <meta charset="utf-8">
        <title>
          %s%s
        </title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
        <meta name="dc.title" content="Title" />
        <meta name="dc.author" content="Author" />
        <meta name="dc.publisher" content="SiSU http://www.jus.uio.no/sisu (this copy)" />
        <meta name="dc.date" content="year" />
        <meta name="dc.date.created" content="year" />
        <meta name="dc.date.issued" content="year" />
        <meta name="dc.date.available" content="year" />
        <meta name="dc.date.valid" content="year" />
        <meta name="dc.date.modified" content="year" />
        <meta name="dc.language" content="US" />
        <meta name="dc.rights" content="Copyright: Copyright (C) year holder" />
        <meta name="generator" content="sdp [SiSU 7.1.8 of 2016w08/5 (2016-02-26)] (n*x and D)" />
      </meta>
      <link rel="generator" href="http://www.sisudoc.org/" />
      <link rel="shortcut icon" href="../../image/rb7.ico" />
      <link href="../../css/html.css" rel="stylesheet" />
      <link href="../../../css/html.css" rel="stylesheet" />
    </head>
    <body lang="%s">
    <a name="top" id="top"></a>¶",
        doc_matters.dochead_meta["title"]["full"],
        (doc_matters.dochead_meta["creator"]["author"].empty) ? ""
          : ", " ~ doc_matters.dochead_meta["creator"]["author"],
        doc_matters.language,
      );
      return o;
    }
    auto epub3_seg_head(Dm)(
      Dm doc_matters,
    ) {
      string html_base = format(q"¶<!DOCTYPE html>
    <html>¶",
    );
      string html_simple = format(q"¶<!DOCTYPE html>
    <html
      xmlns="http://www.w3.org/1999/xhtml"
      xmlns:epub="http://www.idpf.org/2007/ops"
      lang="%s" xml:lang="%s">¶",
        doc_matters.language,
        doc_matters.language,
      );
      string html_strict = format(q"¶<!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"
      xmlns:epub="http://www.idpf.org/2007/ops"
      lang="%s" xml:lang="%s">¶",
        doc_matters.language,
        doc_matters.language,
      );
      string o;
      o = format(q"¶%s
    <head>
      <title>
        %s%s
      </title>
      <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
      <meta name="dc.title" content="%s" />
      <meta name="dc.author" content="%s" />
      <meta name="dc.publisher" content="SiSU http://www.jus.uio.no/sisu (this copy)" />
      <meta name="dc.date" content="year" />
      <meta name="dc.date.created" content="year" />
      <meta name="dc.date.issued" content="year" />
      <meta name="dc.date.available" content="year" />
      <meta name="dc.date.valid" content="year" />
      <meta name="dc.date.modified" content="year" />
      <meta name="dc.language" content="US" />
      <meta name="dc.rights" content="Copyright: Copyright (C) year holder" />
      <meta name="generator" content="sdp [SiSU 7.1.8 of 2016w08/5 (2016-02-26)] (n*x and D)" />
      <link rel="generator" href="http://www.sisudoc.org/" />
      <link rel="shortcut icon" href="../_sisu/image/rb7.ico" />
      <link rel="stylesheet" href="css/epub.css" type="text/css" id="main-css" />
    </head>
    <body lang="%s">
    <a name="top" id="top"></a>¶",
        html_simple,
        doc_matters.dochead_meta["title"]["full"],
        (doc_matters.dochead_meta["creator"]["author"].empty) ? ""
          : ", " ~ doc_matters.dochead_meta["creator"]["author"],
        doc_matters.dochead_meta["title"]["full"],
        (doc_matters.dochead_meta["creator"]["author"].empty) ? ""
          : ", " ~ doc_matters.dochead_meta["creator"]["author"],
        doc_matters.language,
      );
      return o;
    }
    auto tail() {
      string o;
      o = format(q"¶  <a name="bottom" id="bottom"></a>
      <a name="end" id="end"></a>
    </body>
    </html>¶");
      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 ((seg_scroll == "scroll")
        && _txt.match(rgx.mark_internal_site_lnk)) {
          _txt = (_txt).replaceAll(
            rgx.inline_seg_link,
            "$1");
        }
        _txt = (_txt).replaceAll(
          rgx.inline_link_fn_suffix,
          ("$1" ~ _suffix));
        _txt = (_txt).replaceAll(
          rgx.inline_link,
          ("<a href=\"$2\">$1</a>"));
        _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,
          ("<a href=\"#note_$1\"><note id=\"noteref_$1\">&#160;<sup>$1</sup> </note></a>")
        );
      }
      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",
            "<p class=\"endnote\">",
            "<a href=\"#noteref_",
            m.captures[1],
            "\">",
            "<note id=\"note_",
            m.captures[1],
            "\">&#160;<sup>",
            m.captures[1],
            ".</sup></note></a>",
            m.captures[2],
            "</p>"
          );
        }
        _txt = (_txt).replaceAll(
          rgx.inline_notes_delimiter_al_regular_number_note,
          ("<a href=\"#note_$1\"><note id=\"noteref_$1\">&#160;<sup>$1</sup> </note></a>")
        );
      } 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;
    }
    auto toc_seg(O)(
      auto return ref const O    obj,
      string                     _txt,
    ) {
      string o;
      o = format(q"¶  <div class="substance">
      <p class="%s" indent="h%si%s">
        %s
      </p>
    </div>¶",
      obj.is_a,
      obj.indent_hang,
      obj.indent_base,
      _txt,
      );
      return o;
    }
    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 = "<hr />";
      if ((_type != "html")
      || (obj.heading_lev_markup == 0 || obj.heading_lev_markup > 4)) {
        _horizontal_rule = "";
      }
      string o;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶%s
      <div class="substance">
        <h%s class="%s">%s
          %s
        </h%s>
      </div>¶",
          _horizontal_rule,
          obj.heading_lev_markup,
          obj.is_a,
          tags,
          _txt,
          obj.heading_lev_markup,
        );
      } else {
        o = format(q"¶%s
      <div class="substance">
        <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
        <h%s class="%s" id="%s"><a name="%s"></a>%s
          %s
        </h%s>
      </div>¶",
        _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) ? ("●&#160;&#160;" ~ _txt) : _txt;
      if (obj.obj_cite_number.empty) {
        o = format(q"¶  <div class="substance">
      <p class="%s" indent="h%si%s">%s
        %s
      </p>
    </div>¶",
          obj.is_a,
          obj.indent_hang,
          obj.indent_base,
          tags,
          _txt
        );
      } else {
        o = format(q"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" indent="h%si%s" id="%s">%s
        %s
      </p>
    </div>¶",
          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"¶  <div class="substance">
      <p class="%s">
        %s
      </p>
    </div>¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" id="%s">
        %s
      </p>
    </div>¶",
          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"¶  <div class="substance">
      <p class="%s">
        %s
      </p>
    </div>¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" id="%s">
        %s
      </p>
    </div>¶",
          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"¶  <div class="substance">
      <p class="%s">%s</p>
    </div>¶",
          obj.is_a,
          _txt.stripRight
        );
      } else {
        o = format(q"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" id="%s">%s</p>
    </div>¶",
          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"¶  <div class="substance">
            <p class="%s">%s</p>
        </div>¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  <div class="substance">
          <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
          <p class="%s" id="%s">%s</p>
        </div>¶",
          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 ~= "<tr>";
          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 ~= "</tr>";
        }
      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"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" id="%s">%s
        <table summary="normal text css" width="95%%" border="0" bgcolor="white" cellpadding="2" align="center">
          %s
        </table>
        %s
      </p>
    </div>¶",
        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"¶    <p class="%s" indent="h%si%s">
      %s
    </p>¶",
        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"¶  <div class="substance">
        <p class="%s">%s</p>
    </div>¶",
          obj.is_a,
          _txt
        );
      } else {
        o = format(q"¶  <div class="substance">
      <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
      <p class="%s" id="%s">%s</p>
    </div>¶",
          obj.obj_cite_number,
          obj.obj_cite_number,
          obj.is_a,
          obj.obj_cite_number,
          _txt
        );
      }
      return o;
    }
  }
}