#+TITLE: sdp output html
#+AUTHOR: Ralph Amissah
#+EMAIL: ralph.amissah@gmail.com
#+STARTUP: indent
#+LANGUAGE: en
#+OPTIONS: H:3 num:nil toc:t \n:nil @:t ::t |:t ^:nil _:nil -:t f:t *:t <:t
#+OPTIONS: TeX:t LaTeX:t skip:nil d:nil todo:t pri:nil tags:not-in-toc
#+OPTIONS: author:nil email:nil creator:nil timestamp:nil
#+PROPERTY: header-args :padline no :exports code :noweb yes
#+EXPORT_SELECT_TAGS: export
#+EXPORT_EXCLUDE_TAGS: noexport
#+FILETAGS: :sdp:rel:output:
#+TAGS: assert(a) class(c) debug(d) mixin(m) sdp(s) tangle(T) template(t) WEB(W) noexport(n)

[[./sdp.org][sdp]]  [[./][org/]]
* 0. output hub [#A]

#+BEGIN_SRC d :tangle ../src/sdp/output_hub.d
/++
  output hub<BR>
  check & generate output types requested
+/
template outputHub() {
  private import
    std.regex,
    std.algorithm,
    std.array,
    std.container,
    std.exception,
    std.getopt,
    std.process,
    std.stdio,
    std.file,
    std.path,
    std.range,
    std.regex,
    std.string,
    std.traits,
    std.typecons,
    std.uni,
    std.utf,
    defaults,
    output_epub,
    output_html,
    output_xhtmls,
    source_sisupod;
  import
    output_rgx,
    output_xhtmls;
  void outputHub(D,I)(D doc_abstraction, I doc_matters) {
    mixin SiSUoutputRgxInit;
    auto rgx = Rgx();
    if ((doc_matters.opt_action_bool["verbose"])) {
      writeln(doc_matters.keys_seq_seg);
    }
    if (doc_matters.opt_action_bool["source"]) {
      /+ mixin outputSource; +/
      writeln("source");
    }
    if (doc_matters.opt_action_bool["sisupod"]) {
      if ((doc_matters.opt_action_bool["verbose"])) {write("sisupod source processing... ");}
      SiSUpod!()(doc_matters);
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("sisupod done");}
    }
    if (doc_matters.opt_action_bool["text"]) {
      /+ mixin outputText; +/
      writeln("text processing");
    }
    if (doc_matters.opt_action_bool["html"]) {
      if ((doc_matters.opt_action_bool["verbose"])) {write("html scroll processing... ");}
      outputHTML!().scroll(doc_abstraction, doc_matters);
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("html scroll done");}
      if ((doc_matters.opt_action_bool["verbose"])) {write("html seg processing... ");}
      outputHTML!().seg(doc_abstraction, doc_matters);
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("html seg done");}
    } else if (doc_matters.opt_action_bool["html_seg"]) {
      if ((doc_matters.opt_action_bool["verbose"])) {write("html seg processing... ");}
      outputHTML!().seg(doc_abstraction, doc_matters);
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("html seg done");}
    } else if (doc_matters.opt_action_bool["html_scroll"]) {
      if ((doc_matters.opt_action_bool["verbose"])) {write("html scroll processing... ");}
      outputHTML!().scroll(doc_abstraction, doc_matters);
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("html scroll done");}
    }
    if (doc_matters.opt_action_bool["epub"]) {
      if ((doc_matters.opt_action_bool["verbose"])) {write("epub processing... ");}
      outputEPub!()(doc_abstraction, doc_matters);
      // epub.css_write;
      if ((doc_matters.opt_action_bool["verbose"])) {writeln("epub done");}
    }
    if (doc_matters.opt_action_bool["pdf"]) {
      /+ mixin outputPDF; +/
      writeln("pdf processing");
    }
    if (doc_matters.opt_action_bool["odt"]) {
      /+ mixin outputODT; +/
      writeln("odt processing");
    }
    if (doc_matters.opt_action_bool["sqlite"]) {
      /+ mixin outputSQLite; +/
      writeln("sqlite processing");
    }
    if (doc_matters.opt_action_bool["postgresql"]) {
      /+ mixin outputPostgreSQL; +/
      writeln("pgsql processing");
    }
  }
}
#+END_SRC

* 1. output functions                                                :output:
** output imports

#+name: output_imports
#+BEGIN_SRC d
private import
  std.algorithm,
  std.array,
  std.container,
  std.exception,
  std.file,
  std.getopt,
  std.json,
  std.process,
  std.stdio,
  std.path,
  std.range,
  std.regex,
  std.string,
  std.traits,
  std.typecons,
  std.uni,
  std.utf,
  std.conv : to;
import
  defaults,
  output_rgx,
  output_xhtmls;
#+END_SRC

** _sisupod_                                                         :sisupod:
*** template                                                     :template:

#+BEGIN_SRC d :tangle ../src/sdp/source_sisupod.d
template SiSUpod() {
  <<output_imports>>
  void SiSUpod(T)(T doc_matters) {
    <<source_sisupod_init>>
    try {
      <<source_sisupod_mkdirs>>
      <<source_sisupod_copy>>
      <<source_sisupod_zip>>
    }
    catch (ErrnoException ex) {
      // Handle error
    }
  }
}
#+END_SRC

*** mkdir

#+name: source_sisupod_init
#+BEGIN_SRC d
debug(asserts){
  // static assert(is(typeof(doc_matters) == tuple));
}
mixin SiSUoutputRgxInit;
mixin SiSUpaths;
auto pth_sisupod = SiSUpodPaths();
mixin SiSUlanguageCodes;
auto lang = Lang();
auto rgx = Rgx();
assert (doc_matters.source_filename.match(rgx.src_fn));
#+END_SRC

#+name: source_sisupod_mkdirs
#+BEGIN_SRC d
/+ create directory structure +/
if (!exists(pth_sisupod.doc(doc_matters.source_filename))) {
  pth_sisupod.doc(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_sisupod.conf(doc_matters.source_filename))) {
  pth_sisupod.conf(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_sisupod.css(doc_matters.source_filename))) {
  pth_sisupod.css(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_sisupod.image(doc_matters.source_filename))) {
  pth_sisupod.image(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_sisupod.doc_lng(doc_matters.source_filename, doc_matters.language))) {
  pth_sisupod.doc_lng(doc_matters.source_filename, doc_matters.language).mkdirRecurse;
}
#+END_SRC

*** copy

#+name: source_sisupod_copy
#+BEGIN_SRC d
debug(sisupod) {
  writeln(__LINE__, ": ",
    // doc_matters.environment["pwd"], "/",
      doc_matters.source_filename, " -> ",
    // doc_matters.environment["pwd"], "/",
      pth_sisupod.fn_doc(
        doc_matters.source_filename,
        doc_matters.language
  ));
}
if (exists(doc_matters.source_filename)) {
  copy(
    doc_matters.source_filename,
    pth_sisupod.fn_doc(
      doc_matters.source_filename,
      doc_matters.language
  ));
}
if (doc_matters.file_insert_list.length > 0) {
  foreach (insert_file; doc_matters.file_insert_list) {
    debug(sisupod) {
      writeln(
          insert_file, " -> ",
          pth_sisupod.fn_doc_insert(
            doc_matters.source_filename,
            insert_file,
            doc_matters.language
      ));
    }
    if (exists(insert_file)) {
      insert_file.copy(
        pth_sisupod.fn_doc_insert(
          doc_matters.source_filename,
          insert_file,
          doc_matters.language
      ));
    }
  }
}
foreach (image; doc_matters.image_list) {
  debug(sisupod) {
    writeln(
        "_sisu/image/", image, " -> ",
        pth_sisupod.image(doc_matters.source_filename), "/", image
    );
  }
  if (exists("_sisu/image/"~ image)) {
    ("_sisu/image/"~ image).copy(
      (pth_sisupod.image(doc_matters.source_filename) ~ "/" ~ image)
    );
  }
}
#+END_SRC

** text [#C]                                                          :text:
** xml offspring (xhtml html epub)                                     :xml:
*** format xhtml objects                                           :format:
**** 0. xhtml common template                                   :template:

#+BEGIN_SRC d :tangle ../src/sdp/output_xhtmls.d
template outputXHTMLs() {
  <<output_imports>>
  mixin SiSUoutputRgxInit;
  struct outputXHTMLs {
    auto rgx = Rgx();
    <<xhtml_format_objects>>
<<xhtml_format_objects_code>>
  }
}
#+END_SRC

**** misc
***** special characters

#+name: xhtml_format_objects
#+BEGIN_SRC d
string special_characters(string _txt){
  _txt = (_txt)
    .replaceAll(rgx.xhtml_ampersand,    "&amp;")
    .replaceAll(rgx.xhtml_less_than,    "&lt;")
    .replaceAll(rgx.xhtml_greater_than, "&gt;")
    .replaceAll(rgx.xhtml_line_break,   "<br>");
  return _txt;
}
#+END_SRC

***** font_face

#+name: xhtml_format_objects
#+BEGIN_SRC d
string font_face(string _txt){
  _txt = (_txt)
    .replaceAll(rgx.inline_emphasis,    ("<emph>$1</emph>"))
    .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;
}
#+END_SRC

***** anchor tags

#+name: xhtml_format_objects
#+BEGIN_SRC d
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;
}
#+END_SRC

***** doc head & tails
****** scroll head

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto scroll_head(Me)(
  Me dochead_meta,
) {
  debug(asserts){
    static assert(is(typeof(dochead_meta) == string[string][string]));
  }
  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)" />
    <link rel="generator" href="http://www.sisudoc.org/" />
  <link rel="shortcut icon" href="../_sisu/image/rb7.ico" />
  <link href="../../_sisu/css/html.css" rel="stylesheet">
  <link href="../../../_sisu/css/html.css" rel="stylesheet">
</head>
<body lang="en">
<a name="top" id="top"></a>¶",
dochead_meta["title"]["full"],
(dochead_meta["creator"]["author"].empty) ? "" : ", " ~ dochead_meta["creator"]["author"],
);
  return o;
}
#+END_SRC

****** seg head

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto seg_head(Me)(
  Me dochead_meta,
) {
  debug(asserts){
    static assert(is(typeof(dochead_meta) == string[string][string]));
  }
  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)" />
    <link rel="generator" href="http://www.sisudoc.org/" />
  <link rel="shortcut icon" href="../_sisu/image/rb7.ico" />
  <link href="../../_sisu/css/html.css" rel="stylesheet">
  <link href="../../../_sisu/css/html.css" rel="stylesheet">
</head>
<body lang="en">
<a name="top" id="top"></a>¶",
dochead_meta["title"]["full"],
(dochead_meta["creator"]["author"].empty) ? "" : ", " ~ dochead_meta["creator"]["author"],
);
  return o;
}
#+END_SRC

****** xhtml tail

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto tail() {
  string o;
  o = format(q"¶  <a name="bottom" id="bottom"></a>
  <a name="end" id="end"></a>
</div>
</body>
</html>¶");
  return o;
}
#+END_SRC

**** inline markup
***** links

#+name: xhtml_format_objects
#+BEGIN_SRC d
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;
}
#+END_SRC

***** notes scroll

#+name: xhtml_format_objects
#+BEGIN_SRC d
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\">&nbsp;<sup>$1</sup>&nbsp;</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);
    }
  }
  // if (obj.inline_notes_star) {
  //   _txt = replaceAll(
  //     _txt,
  //     rgx.inline_notes_delimiter_al_regular_number_note,
  //     ("<a href=\"#note_$1\"><note id=\"noteref_$1\">&nbsp;<sup>$1</sup>&nbsp;</note></a>")
  //   );
  // }
  return _txt;
}
#+END_SRC

***** notes seg

#+name: xhtml_format_objects
#+BEGIN_SRC d
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],
        "\">&nbsp;<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\">&nbsp;<sup>$1</sup>&nbsp;</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;
}
#+END_SRC

***** inline markup scroll

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto inline_markup_scroll(O)(
  auto return ref const O  obj,
  string                   _suffix = ".html",
) {
  string _txt = obj.text;
  _txt = special_characters(_txt);
  _txt = inline_links(obj, _txt, _suffix, "scroll");
  _txt = inline_notes_scroll(obj, _txt);
  return _txt;
}
#+END_SRC

***** inline markup seg

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto inline_markup_seg(O)(
  auto return ref const O  obj,
  string                   _suffix = ".html",
) {
  string _txt = obj.text;
  _txt = special_characters(_txt);
  _txt = inline_links(obj, _txt, _suffix, "seg");
  auto t = inline_notes_seg(obj, _txt);
  return t;
}
#+END_SRC

**** toc

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto toc(O)(
  auto return ref const O    obj,
) {
  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,
  obj.text
  );
  return o;
}
#+END_SRC

**** heading
***** heading

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto heading(O)(
  auto return ref const O    obj,
  string                     _txt,
) {
  auto tags = _xhtml_anchor_tags(obj.anchor_tags);
  string o;
  if (obj.obj_cite_number.empty) {
    o = format(q"¶<br><hr /><br>
  <div class="substance">
    <h%s class="%s">%s
      %s
    </h%s>
  </div>¶",
      obj.heading_lev_markup,
      obj.is_a,
      tags,
      _txt,
      obj.heading_lev_markup,
    );
  } else {
    o = format(q"¶<br><hr /><br>
  <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>¶",
    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;
}
#+END_SRC

***** scroll

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto heading_scroll(O)(
  auto return ref const O    obj,
  string                     _suffix = ".html",
) {
  auto tags = _xhtml_anchor_tags(obj.anchor_tags);
  string _txt = inline_markup_scroll(obj, _suffix); // issue
  string o = heading(obj, _txt);
  return o;
}
#+END_SRC

***** seg

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto heading_seg(O)(
  auto return ref const O    obj,
  string                     _suffix = ".html",
) {
  auto t = inline_markup_seg(obj, _suffix);
  string _txt = t[0];
  string[] _endnotes = t[1];
  string o = heading(obj, _txt);
  auto u = tuple(
    o,
    _endnotes,
  );
  return u;
}
#+END_SRC

**** para
***** para

#+name: xhtml_format_objects
#+BEGIN_SRC d
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) ? ("●&nbsp;&nbsp" ~ _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;
}
#+END_SRC

***** scroll

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto para_scroll(O)(
  auto return ref const O    obj,
  string                     _suffix = ".html",
) {
  auto tags = _xhtml_anchor_tags(obj.anchor_tags);
  string _txt = inline_markup_scroll(obj, _suffix); // issue
  string o = para(obj, _txt);
  return o;
}
#+END_SRC

***** seg

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto para_seg(O)(
  auto return ref const O    obj,
  string                     _suffix = ".html",
) {
  auto t = inline_markup_seg(obj, _suffix);
  string _txt = to!string(t[0]);
  string[] _endnotes = t[1];
  string o = para(obj, _txt);
  auto u = tuple(
    o,
    _endnotes,
  );
  return u;
}
#+END_SRC

**** nugget

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto nugget(O)(
  auto return ref const O    obj,
) {
  string o;
  if (obj.obj_cite_number.empty) {
    o = format(q"¶  <div class="substance">
  <p class="%s">
    %s
  </p>
</div>¶",
      obj.is_a,
      obj.text
    );
  } 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,
      obj.text
    );
  }
  return o;
}
#+END_SRC

**** poem verse

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto verse(O)(                           // using code from code block, review
  auto return ref const O    obj,
) {
  string _txt = obj.text;
  _txt = (_txt)
    .replaceAll(rgx.newline, "<br>\n")
    .replaceAll(rgx.two_spaces, "&nbsp;" ~ "&nbsp;" ~ "&nbsp;" ~ "&nbsp;")
    .replaceAll(rgx.nbsp_and_space, "&nbsp;" ~ "&nbsp;");
  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;
}
#+END_SRC

**** code

#+name: xhtml_format_objects_code
#+BEGIN_SRC d
    auto code(O)(
      auto return ref const O  obj,
    ) {
      string _txt = obj.text;
      _txt = (_txt)
        .replaceAll(rgx.newline, "<br>\n")
        .replaceAll(rgx.nbsp_char, "&nbsp;");
      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;
    }
#+END_SRC

**** table

***** TODO tablarize

align="left|right|center"
<td align="right">$100</td>

"style=\"text-align:right\""
"style=\"text-align:left\""

"style=\"text-align:"  ~ "right\""

#+name: xhtml_format_objects
#+BEGIN_SRC d
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)) { // check row_idx+2 (rather than == ++row_idx)
          _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;
}
#+END_SRC

***** table

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto table(O)(
  auto return ref const O    obj,
) {
  string _txt = obj.text;
  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;
}
#+END_SRC

**** endnote

#+name: xhtml_format_objects
#+BEGIN_SRC d
auto endnote(O)(
  auto return ref const O    obj,
) {
  string o;
  o = format(q"¶    <p class="%s" indent="h%si%s">
  %s
</p>¶",
    obj.is_a,
    obj.indent_hang,
    obj.indent_base,
    obj.text
  );
  return o;
}
#+END_SRC

*** _html_ [#A]                                                        :html:
**** template                                                   :template:

#+BEGIN_SRC d :tangle ../src/sdp/output_html.d
template outputHTML() {
  <<output_imports>>
  mixin outputXHTMLs;
  <<output_html>>
  <<output_html_scroll>>
  <<output_html_seg>>
  <<output_html_css>>
}
#+END_SRC

**** scroll                                                       :scroll:
***** switch (sections & objects) format html output

#+name: output_html_scroll
#+BEGIN_SRC d
void scroll(D,I)(
  auto return ref const D    doc_abstraction,
  auto return ref I          doc_matters,
) {
  mixin SiSUoutputRgxInit;
  auto xhtml_format = outputXHTMLs();
  auto rgx = Rgx();
  string[] doc_html;
  string[] doc;
  string suffix = ".html";
  foreach (part; doc_matters.keys_seq_scroll) {
    foreach (obj; doc_abstraction[part]) {
      switch (obj.use) {
      case "frontmatter":
        switch (obj.is_of) {
        case "para":
          switch (obj.is_a) {
          case "heading":
            doc_html ~= xhtml_format.heading_scroll(obj, suffix);
            break;
          case "toc":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
            }
            break;
          }
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
          }
          break;
        }
        break;
      case "body":
        switch (obj.is_of) {
        case "para":
          switch (obj.is_a) {
          case "heading":
            doc_html ~= xhtml_format.heading_scroll(obj, suffix);
            break;
          case "para":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
            }
            break;
          }
          break;
        case "block":
          switch (obj.is_a) {
          case "quote":
            doc_html ~= xhtml_format.nugget(obj);
            break;
          case "group":
            doc_html ~= xhtml_format.nugget(obj);
            break;
          case "block":
            doc_html ~= xhtml_format.nugget(obj);
            break;
          case "poem":
            break;
          case "verse":
            doc_html ~= xhtml_format.verse(obj);
            break;
          case "code":
            doc_html ~= xhtml_format.code(obj);
            break;
          case "table":
            doc_html ~= xhtml_format.table(obj);
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
            }
            break;
          }
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
          }
          break;
        }
        break;
      case "backmatter":
        switch (obj.is_of) {
        case "para":
          switch (obj.is_a) {
          case "heading":
            doc_html ~= xhtml_format.heading_scroll(obj, suffix);
            break;
          case "endnote":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          case "glossary":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          case "bibliography":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          case "bookindex":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          case "blurb":
            doc_html ~= xhtml_format.para_scroll(obj, suffix);
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
            }
            break;
          }
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
          }
          break;
        }
        break;
      case "comment":
        break;
      default:
        if ((doc_matters.opt_action_bool["debug"])) {
          writeln(__FILE__, ":", __LINE__, ": ", obj.use);
          writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
          writeln(__FILE__, ":", __LINE__, ": ", obj.text);
        }
        break;
      }
    }
  }
  doc = xhtml_format.scroll_head(doc_matters.dochead_meta) ~ doc_html ~ xhtml_format.tail;
  scroll_write_output(doc_matters.source_filename, doc);
}
#+END_SRC

***** write output file

#+name: output_html_scroll
#+BEGIN_SRC d
void scroll_write_output(Fn,C)(
  Fn fn_src,
  C doc,
) {
  debug(asserts){
    static assert(is(typeof(fn_src) == string));
    static assert(is(typeof(doc)    == string[]));
  }
  mixin SiSUpaths;
  auto pth_html = HtmlPaths();
  try {
    if (!exists(pth_html.base)) {
      pth_html.base.mkdirRecurse;
    }
    auto f = File(pth_html.fn_scroll(fn_src), "w");
    foreach (o; doc) {
      f.writeln(o);
    }
  }
  catch (ErrnoException ex) {
    // Handle error
  }
}
#+END_SRC

**** seg                                                             :seg:
***** switch (sections & objects) format html output

#+name: output_html_seg
#+BEGIN_SRC d
void seg(D,I)(
  auto return ref const D    doc_abstraction,
  auto return ref I          doc_matters,
) {
  mixin SiSUoutputRgxInit;
  auto rgx = Rgx();
  auto xhtml_format = outputXHTMLs();
  string[][string] doc_html;
  string[][string] doc_html_endnotes;
  string[] doc;
  string segment_filename;
  string[] top_level_headings = ["","","",""];
  string suffix = ".html";
  foreach (part; doc_matters.keys_seq_seg) {
    foreach (obj; doc_abstraction[part]) {
      if (obj.is_a == "heading") {                            // all headings: frontmatter, body & backmatter
        switch (obj.heading_lev_markup) {
        case 0: .. case 3:
          /+ fill buffer, and replace with new levels from 1 to 3 +/
          switch (obj.heading_lev_markup) {
          case 0:
            top_level_headings[0] = "";
            top_level_headings[1] = "";
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 1:
            top_level_headings[1] = "";
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 2:
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 3:
            top_level_headings[3] = "";
            goto default;
          default:
            auto t = xhtml_format.heading_seg(obj, suffix);
            top_level_headings[obj.heading_lev_markup] = t[0];
            break;
          }
          break;
        case 4:
          segment_filename = obj.segment_anchor_tag;
          doc_html[segment_filename] ~= xhtml_format.seg_head(doc_matters.dochead_meta);
          foreach (top_level_heading; top_level_headings) {
            doc_html[segment_filename] ~= top_level_heading;
          }
          auto t = xhtml_format.heading_seg(obj, suffix);
          doc_html[segment_filename] ~= to!string(t[0]);
          doc_html_endnotes[segment_filename] ~= t[1];
          break;
        case 5: .. case 7:
          auto t = xhtml_format.heading_seg(obj, suffix);
          doc_html[segment_filename] ~= to!string(t[0]);
          doc_html_endnotes[segment_filename] ~= t[1];
          break;
        case 8: .. case 9: // unused numbers, if remain check
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_a, ": ", obj.heading_lev_markup);
            writeln(__FILE__, ":", __LINE__, ": ", obj.text); // check
          }
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_a, ": ", obj.heading_lev_markup);
          }
          break;
        }
      } else {
        switch (obj.use) {
        case "frontmatter":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "toc":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= to!string(t[0]);
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
            }
            break;
          }
          break;
        case "body":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "para":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= to!string(t[0]);
              doc_html_endnotes[segment_filename] ~= t[1];
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          case "block":
            switch (obj.is_a) {
            case "quote":
              doc_html[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "group":
              doc_html[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "block":
              doc_html[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "poem":
              break;
            case "verse":
              doc_html[segment_filename] ~= xhtml_format.verse(obj);
              break;
            case "code":
              doc_html[segment_filename] ~= xhtml_format.code(obj);
              break;
            case "table":
              doc_html[segment_filename] ~= xhtml_format.table(obj);
              doc_html_endnotes[segment_filename] ~= "";
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
            }
            break;
          }
          break;
        case "backmatter":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "endnote":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= t[0];
              break;
            case "glossary":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= t[0];
              doc_html_endnotes[segment_filename] ~= t[1];
              break;
            case "bibliography":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= t[0];
              doc_html_endnotes[segment_filename] ~= t[1];
              break;
            case "bookindex":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= t[0];
              doc_html_endnotes[segment_filename] ~= t[1];
              break;
            case "blurb":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_html[segment_filename] ~= t[0];
              doc_html_endnotes[segment_filename] ~= t[1];
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
            }
            break;
          }
          break;
        case "comment":
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.use);
          }
          break;
        }
      }
    }
  }
  seg_write_output(doc_matters, doc_html, doc_html_endnotes);
}
#+END_SRC

***** write output files

#+name: output_html_seg
#+BEGIN_SRC d
void seg_write_output(M,D,E)(
  M doc_matters,
  D doc_html,
  E doc_html_endnotes,
) {
  debug(asserts){
    static assert(is(typeof(doc_html)      == string[][string]));
  }
  mixin SiSUoutputRgxInit;
  auto rgx = Rgx();
  mixin SiSUpaths;
  auto pth_html = HtmlPaths();
  auto xhtml_format = outputXHTMLs();
  auto m = doc_matters.source_filename.matchFirst(rgx.src_fn);
  try {
    if (!exists(pth_html.seg(doc_matters.source_filename))) {
      pth_html.seg(doc_matters.source_filename).mkdirRecurse;
    }
    foreach (seg_filename; doc_matters.segnames) {
      auto f = File(pth_html.fn_seg(doc_matters.source_filename, seg_filename), "w");
      foreach (docseg; doc_html[seg_filename]) {
        f.writeln(docseg);
      }
      foreach (docseg; doc_html_endnotes[seg_filename]) {
        f.writeln(docseg);
      }
      f.writeln(xhtml_format.tail); // needed for each lev4
    }
  }
  catch (ErrnoException ex) {
    // handle error
  }
}
#+END_SRC

**** css                                                             :css:

#+name: output_html_css
#+BEGIN_SRC d
auto html_css() {
  string css;
  css="/* SiSU css default stylesheet */
  body {
    color: black;
    background: #ffffff;
    background-color: #ffffff;
  }
  a:link {
    color: #003399;
    text-decoration: none;
  }
  a:visited {
    color: #003399;
    text-decoration: none;
  }
  a:hover {
    color: #000000;
    background-color: #f9f9aa;
  }
  a.lnkocn:link {
    color: #777777;
    text-decoration: none;
  }
  a:hover img {
    background-color: #ffffff;
  }
  a:active {
    color: #003399;
    text-decoration: underline;
  }
  div {
    margin-left: 0;
    margin-right: 0;
  }
  div.p {
    margin-left: 5%;
    margin-right: 1%;
  }
  .norm, .bold, .verse, .group, .block, .alt {
    line-height: 133%;
    margin-left: 0em;
    margin-right: 2em;
    margin-top: 12px;
    margin-bottom: 0px;
    padding-left: 0em;
    text-indent: 0em;
  }
  p, h0, h1, h2, h3, h4, h5, h6, h7 {
    display: block;
    font-family: verdana, arial, georgia, tahoma, sans-serif, helvetica, times, roman;
    font-size: 100%;
    font-weight: normal;
    line-height: 133%;
    text-align: justify;
    margin-left: 0em;
    margin-right: 2em;
    text-indent: 0mm;
    margin-top: 0.8em;
    margin-bottom: 0.8em;
  }
  /* indent */
  p.norm { }
  p.i1 {padding-left: 1em;}
  p.i2 {padding-left: 2em;}
  p.i3 {padding-left: 3em;}
  p.i4 {padding-left: 4em;}
  p.i5 {padding-left: 5em;}
  p.i6 {padding-left: 6em;}
  p.i7 {padding-left: 7em;}
  p.i8 {padding-left: 8em;}
  p.i9 {padding-left: 9em;}
  /* hanging indent */
  p[indent=\"h0i0\"] {
    padding-left: 0em;
    text-indent:  0em;
  }
  p[indent=\"h0i1\"] {
    padding-left: 1em;
    text-indent: -1em;
  }
  p[indent=\"h0i2\"] {
    padding-left: 2em;
    text-indent: -2em;
  }
  p[indent=\"h0i3\"] {
    padding-left: 3em;
    text-indent: -3em;
  }
  p[indent=\"h0i4\"] {
    padding-left: 4em;
    text-indent: -4em;
  }
  p[indent=\"h0i5\"] {
    padding-left: 5em;
    text-indent: -5em;
  }
  p[indent=\"h0i6\"] {
    padding-left: 6em;
    text-indent: -6em;
  }
  p[indent=\"h0i7\"] {
    padding-left: 7em;
    text-indent: -7em;
  }
  p[indent=\"h0i8\"] {
    padding-left: 8em;
    text-indent: -8em;
  }
  p[indent=\"h0i9\"] {
    padding-left: 9em;
    text-indent: -9em;
  }
  p[indent=\"h1i0\"] {
    padding-left: 0em;
    text-indent:  1em;
  }
  p[indent=\"h1i1\"] {
    padding-left: 1em;
    text-indent:  0em;
  }
  p[indent=\"h1i2\"] {
    padding-left: 2em;
    text-indent: -1em;
  }
  p[indent=\"h1i3\"] {
    padding-left: 3em;
    text-indent: -2em;
  }
  p[indent=\"h1i4\"] {
    padding-left: 4em;
    text-indent: -3em;
  }
  p[indent=\"h1i5\"] {
    padding-left: 5em;
    text-indent: -4em;
  }
  p[indent=\"h1i6\"] {
    padding-left: 6em;
    text-indent: -5em;
  }
  p[indent=\"h1i7\"] {
    padding-left: 7em;
    text-indent: -6em;
  }
  p[indent=\"h1i8\"] {
    padding-left: 8em;
    text-indent: -7em;
  }
  p[indent=\"h1i9\"] {
    padding-left: 9em;
    text-indent: -8em;
  }
  p[indent=\"h2i0\"] {
    padding-left: 0em;
    text-indent:  2em;
  }
  p[indent=\"h2i1\"] {
    padding-left: 1em;
    text-indent:  1em;
  }
  p[indent=\"h2i2\"] {
    padding-left: 2em;
    text-indent:  0em;
  }
  p[indent=\"h2i3\"] {
    padding-left: 3em;
    text-indent: -1em;
  }
  p[indent=\"h2i4\"] {
    padding-left: 4em;
    text-indent: -2em;
  }
  p[indent=\"h2i5\"] {
    padding-left: 5em;
    text-indent: -3em;
  }
  p[indent=\"h2i6\"] {
    padding-left: 6em;
    text-indent: -4em;
  }
  p[indent=\"h2i7\"] {
    padding-left: 7em;
    text-indent: -5em;
  }
  p[indent=\"h2i8\"] {
    padding-left: 8em;
    text-indent: -6em;
  }
  p[indent=\"h2i9\"] {
    padding-left: 9em;
    text-indent: -7em;
  }
  p[indent=\"h3i0\"] {
    padding-left: 0em;
    text-indent:  3em;
  }
  p[indent=\"h3i1\"] {
    padding-left: 1em;
    text-indent:  2em;
  }
  p[indent=\"h3i2\"] {
    padding-left: 2em;
    text-indent:  1em;
  }
  p[indent=\"h3i3\"] {
    padding-left: 3em;
    text-indent:  0em;
  }
  p[indent=\"h3i4\"] {
    padding-left: 4em;
    text-indent: -1em;
  }
  p[indent=\"h3i5\"] {
    padding-left: 5em;
    text-indent: -2em;
  }
  p[indent=\"h3i6\"] {
    padding-left: 6em;
    text-indent: -3em;
  }
  p[indent=\"h3i7\"] {
    padding-left: 7em;
    text-indent: -4em;
  }
  p[indent=\"h3i8\"] {
    padding-left: 8em;
    text-indent: -5em;
  }
  p[indent=\"h3i9\"] {
    padding-left: 9em;
    text-indent: -6em;
  }
  p[indent=\"h4i0\"] {
    padding-left: 0em;
    text-indent:  4em;
  }
  p[indent=\"h4i1\"] {
    padding-left: 1em;
    text-indent:  3em;
  }
  p[indent=\"h4i2\"] {
    padding-left: 2em;
    text-indent:  2em;
  }
  p[indent=\"h4i3\"] {
    padding-left: 3em;
    text-indent:  1em;
  }
  p[indent=\"h4i4\"] {
    padding-left: 4em;
    text-indent:  0em;
  }
  p[indent=\"h4i5\"] {
    padding-left: 5em;
    text-indent: -1em;
  }
  p[indent=\"h4i6\"] {
    padding-left: 6em;
    text-indent: -2em;
  }
  p[indent=\"h4i7\"] {
    padding-left: 7em;
    text-indent: -3em;
  }
  p[indent=\"h4i8\"] {
    padding-left: 8em;
    text-indent: -4em;
  }
  p[indent=\"h4i9\"] {
    padding-left: 9em;
    text-indent: -5em;
  }
  p[indent=\"h5i0\"] {
    padding-left: 0em;
    text-indent:  5em;
  }
  p[indent=\"h5i1\"] {
    padding-left: 1em;
    text-indent:  4em;
  }
  p[indent=\"h5i2\"] {
    padding-left: 2em;
    text-indent:  3em;
  }
  p[indent=\"h5i3\"] {
    padding-left: 3em;
    text-indent:  2em;
  }
  p[indent=\"h5i4\"] {
    padding-left: 4em;
    text-indent:  1em;
  }
  p[indent=\"h5i5\"] {
    padding-left: 5em;
    text-indent:  0em;
  }
  p[indent=\"h5i6\"] {
    padding-left: 6em;
    text-indent: -1em;
  }
  p[indent=\"h5i7\"] {
    padding-left: 7em;
    text-indent: -2em;
  }
  p[indent=\"h5i8\"] {
    padding-left: 8em;
    text-indent: -3em;
  }
  p[indent=\"h5i9\"] {
    padding-left: 9em;
    text-indent: -4em;
  }
  p[indent=\"h6i0\"] {
    padding-left: 0em;
    text-indent:  6em;
  }
  p[indent=\"h6i1\"] {
    padding-left: 1em;
    text-indent:  5em;
  }
  p[indent=\"h6i2\"] {
    padding-left: 2em;
    text-indent:  4em;
  }
  p[indent=\"h6i3\"] {
    padding-left: 3em;
    text-indent:  3em;
  }
  p[indent=\"h6i4\"] {
    padding-left: 4em;
    text-indent:  2em;
  }
  p[indent=\"h6i5\"] {
    padding-left: 5em;
    text-indent:  1em;
  }
  p[indent=\"h6i6\"] {
    padding-left: 6em;
    text-indent:  0em;
  }
  p[indent=\"h6i7\"] {
    padding-left: 7em;
    text-indent: -1em;
  }
  p[indent=\"h6i8\"] {
    padding-left: 8em;
    text-indent: -2em;
  }
  p[indent=\"h6i9\"] {
    padding-left: 9em;
    text-indent: -3em;
  }
  p[indent=\"h7i0\"] {
    padding-left: 0em;
    text-indent:  7em;
  }
  p[indent=\"h7i1\"] {
    padding-left: 1em;
    text-indent:  6em;
  }
  p[indent=\"h7i2\"] {
    padding-left: 2em;
    text-indent:  5em;
  }
  p[indent=\"h7i3\"] {
    padding-left: 3em;
    text-indent:  4em;
  }
  p[indent=\"h7i4\"] {
    padding-left: 4em;
    text-indent:  3em;
  }
  p[indent=\"h7i5\"] {
    padding-left: 5em;
    text-indent:  2em;
  }
  p[indent=\"h7i6\"] {
    padding-left: 6em;
    text-indent:  1em;
  }
  p[indent=\"h7i7\"] {
    padding-left: 7em;
    text-indent:  0em;
  }
  p[indent=\"h7i8\"] {
    padding-left: 8em;
    text-indent: -1em;
  }
  p[indent=\"h7i9\"] {
    padding-left: 9em;
    text-indent: -2em;
  }
  p[indent=\"h8i0\"] {
    padding-left: 0em;
    text-indent:  8em;
  }
  p[indent=\"h8i1\"] {
    padding-left: 1em;
    text-indent:  7em;
  }
  p[indent=\"h8i2\"] {
    padding-left: 2em;
    text-indent:  6em;
  }
  p[indent=\"h8i3\"] {
    padding-left: 3em;
    text-indent:  5em;
  }
  p[indent=\"h8i4\"] {
    padding-left: 4em;
    text-indent:  4em;
  }
  p[indent=\"h8i5\"] {
    padding-left: 5em;
    text-indent:  3em;
  }
  p[indent=\"h8i6\"] {
    padding-left: 6em;
    text-indent:  2em;
  }
  p[indent=\"h8i7\"] {
    padding-left: 7em;
    text-indent:  1em;
  }
  p[indent=\"h8i8\"] {
    padding-left: 8em;
    text-indent:  0em;
  }
  p[indent=\"h8i9\"] {
    padding-left: 9em;
    text-indent: -1em;
  }
  p[indent=\"h9i0\"] {
    padding-left: 0em;
    text-indent:  9em;
  }
  p[indent=\"h9i1\"] {
    padding-left: 1em;
    text-indent:  8em;
  }
  p[indent=\"h9i2\"] {
    padding-left: 2em;
    text-indent:  7em;
  }
  p[indent=\"h9i3\"] {
    padding-left: 3em;
    text-indent:  6em;
  }
  p[indent=\"h9i4\"] {
    padding-left: 4em;
    text-indent:  5em;
  }
  p[indent=\"h9i5\"] {
    padding-left: 5em;
    text-indent:  4em;
  }
  p[indent=\"h9i6\"] {
    padding-left: 6em;
    text-indent:  3em;
  }
  p[indent=\"h9i7\"] {
    padding-left: 7em;
    text-indent:  2em;
  }
  p[indent=\"h9i8\"] {
    padding-left: 8em;
    text-indent:  1em;
  }
  p[indent=\"h9i9\"] {
    padding-left: 9em;
    text-indent:  0em;
  }
  p.block { }
  p.group { }
  p.alt { }
  p.verse {
    margin-bottom: 6px;
  }
  p.code {
    font-family: inconsolata, andale mono, courier new, courier, monospace;
    font-size: 90%;
    text-align: left;
    background-color: #eeeeee;
  }
  p.caption {
    text-align: left;
    font-size: 80%;
    display: inline;
  }
  p.endnote {
    font-size: 96%;
    line-height: 120%;
    text-align: left;
    margin-right: 15mm;
  }
  p.endnote_indent {
    font-size: 96%;
    line-height: 120%;
    text-align: left;
    margin-left: 2em;
    margin-right: 15mm;
  }
  p.center {
    text-align: center;
  }
  p.bold {
    font-weight: bold;
  }
  p.bold_left {
    font-weight: bold;
    text-align: left;
  }
  p.centerbold {
    text-align: center;
    font-weight: bold;
  }
  p.em {
    font-weight: bold;
    font-style: normal;
    background: #fff3b6;
  }
  p.small {
    font-size: 80%;
    margin-top: 0px;
    margin-bottom: 0px;
    margin-right: 6px;
    text-align: left;
  }
  .tiny, .tiny_left, .tiny_right, .tiny_center {
    font-size: 10px;
    margin-top: 0px;
    margin-bottom: 0px;
    color: #777777;
    margin-right: 6px;
    text-align: left;
  }
  p.tiny { }
  p.tiny_left {
    margin-left: 0px;
    margin-right: 0px;
    text-align: left;
  }
  p.tiny_right {
    margin-right: 1em;
    text-align: right;
  }
  p.tiny_center {
    margin-left: 0px;
    margin-right: 0px;
    text-align: center;
  }
  p.concordance_word {
    line-height: 150%;
    font-weight: bold;
    display: inline;
    margin-top: 4px;
    margin-bottom: 1px;
  }
  p.concordance_count {
    font-size: 80%;
    color: #777777;
    display: inline;
    margin-left: 0em;
  }
  p.concordance_object {
    font-size: 80%;
    line-height: 120%;
    text-align: left;
    margin-left: 3em;
    margin-top: 1px;
    margin-bottom: 3px;
  }
  p.book_index_lev1 {
    line-height: 100%;
    margin-top: 4px;
    margin-bottom: 1px;
  }
  p.book_index_lev2 {
    line-height: 100%;
    text-align: left;
    margin-left: 3em;
    margin-top: 1px;
    margin-bottom: 3px;
  }
  tt {
    font-family: inconsolata, andale mono, courier new, courier, monospace;
    background-color: #eeeeee;
  }
  label.ocn {
    width: 2%;
    float: right;
    top: 0;
    font-size: 10px;
    margin-top: 0px;
    margin-bottom: 5px;
    color: #777777;
    margin-right: 5px;
    text-align: right;
    background-color: #ffffff;
  }
  table { }
  tr { }
  th,td {
    vertical-align: top;
    text-align: left;
  }
  th {
    font-weight: bold;
  }
  p.left,th.left,td.left {
    text-align: left;
  }
  p.small_left,th.small_left,td.small_left {
    text-align: left;
    font-size: 80%;
  }
  p.right,th.right,td.right {
    text-align: right;
  }
  ul, li {
    list-style-type: none;
    list-style: none;
    padding-left: 20px;
    display: block;
    font-family: verdana, arial, georgia, tahoma, sans-serif, helvetica, times, roman;
    font-weight: normal;
    line-height: 150%;
    text-align: left;
    text-indent: 0mm;
    margin-left: 1em;
    margin-right: 2em;
    margin-top: 3px;
    margin-bottom: 3px;
  }
  li {
    background: url(../image_sys/bullet_09.png) no-repeat 0px 6px;
  }
  ul {
  }
  h0, h1, h2, h3, h4, h5, h6, h7 {
    font-weight: bold;
    line-height: 120%;
    text-align: left;
    margin-top: 20px;
    margin-bottom: 10px;
  }
  h4.norm, h5.norm, h6.norm, h7.norm {
    margin-top: 10px;
    margin-bottom: 0px;
  }
  h0 { font-size: 125%; }
  h1 { font-size: 120%; }
  h2 { font-size: 115%; }
  h3 { font-size: 110%; }
  h4 { font-size: 105%; }
  h5 { font-size: 100%; }
  h6 { font-size: 100%; }
  h7 { font-size: 100%; }
  h1.i {margin-left: 2em;}
  h2.i {margin-left: 3em;}
  h3.i {margin-left: 4em;}
  h4.i {margin-left: 5em;}
  h5.i {margin-left: 6em;}
  h6.i {margin-left: 7em;}
  h7.i {margin-left: 8em;}
  h8.i {margin-left: 9em;}
  h9.i {margin-left: 10em;}
  .toc {
    font-weight: normal;
    margin-top: 6px;
    margin-bottom: 6px;
  }
  h0.toc {
    margin-left: 1em;
    font-size: 120%;
    line-height: 150%;
  }
  h1.toc {
    margin-left: 1em;
    font-size: 115%;
    line-height: 150%;
  }
  h2.toc {
    margin-left: 2em;
    font-size: 110%;
    line-height: 140%;
  }
  h3.toc {
    margin-left: 3em;
    font-size: 105%;
    line-height: 120%;
  }
  h4.toc {
    margin-left: 4em;
    font-size: 100%;
    line-height: 120%;
  }
  h5.toc {
    margin-left: 5em;
    font-size: 95%;
    line-height: 110%;
  }
  h6.toc {
    margin-left: 6em;
    font-size: 90%;
    line-height: 110%;
  }
  h7.toc {
    margin-left: 7em;
    font-size: 85%;
    line-height: 100%;
  }
  .subtoc {
    margin-right: 34%;
    font-weight: normal;
  }
  h5.subtoc {
    margin-left: 2em;
    font-size: 80%;
    margin-top: 2px;
    margin-bottom: 2px;
  }
  h6.subtoc {
    margin-left: 3em;
    font-size: 75%;
    margin-top: 0px;
    margin-bottom: 0px;
  }
  h7.subtoc {
    margin-left: 4em;
    font-size: 70%;
    margin-top: 0px;
    margin-bottom: 0px;
  }
  div.substance {
    width: 100%;
    background-color: #ffffff;
  }
  div.ocn {
    width: 5%;
    float: right;
    top: 0;
    background-color: #ffffff;
  }
  div.endnote {
    width: 95%;
    background-color: #fffffff;
  }
  div.toc {
    position: absolute;
    float: left;
    margin: 0;
    padding: 0;
    padding-top: 0.5em;
    border: 0;
    width: 13em;
    background-color: #eeeeee;
    margin-right:1em;
  }
  div.summary {
    margin: 0;
    padding: 0;
    border-left: 13em solid #eeeeee;
    padding-left: 1em;
    background-color: #eeeeee;
  }
  div.content, div.main_column {
    margin: 0;
    padding: 0;
    border-left: 13em solid #ffffff;
    padding-left: 1em;
    padding-right: 1em;
  }
  div.content0, div.main_column0 {
    margin: 0;
    padding: 0;
    border-left: 0% solid #ffffff;
    padding-left: 5%;
  }
  div.scroll {
    margin: 0;
    padding: 0;
    padding-left: 1em;
    padding-right: 1em;
  }
  div.content:after {
    content:' ';
    clear:both;
    display:block;
    height:0;
    overflow:hidden
  }
  div.footer {
    clear:left;
    padding: 0.5em;
    font-size: 80%;
    margin: 0;
  }
  div.toc ul {
    list-style: none;
    padding: 0;
    margin: 0;
  }
  div.toc li ul a, li ul span.currentlink
  {
    font-weight: normal;
    font-size: 90%;
    padding-left: 2em;
    background-color: #eeeeee;
  }
  div.toc a, span.currentlink{
    display:block;
    text-decoration: none;
    padding-left: 0.5em;
    color: #0000aa;
  }
  hr {
    width: 90%;
  }
  span.currentlink {
    text-decoration: none;
    background-color: #aaaaf9;
  }
  div.toc a:visited {
    color: #0000aa;
  }
  div.toc a:hover {
    color: #000000;
    background-color: #f9f9aa;
  }";
  return css;
}
auto css_write() {
  auto pth_css= "_sisu/css";
  auto pth_css_fn= pth_css ~ "/html.css";
  try {
    if (!exists(pth_css)) {
      pth_css.mkdirRecurse;
    }
    auto f = File(pth_css_fn, "w");
    f.writeln(html_css);
    // foreach (o; doc) {
    //   f.writeln(o);
    // }
  }
  catch (ErrnoException ex) {
    // Handle error
  }
}
#+END_SRC

*** _epub_ [#B]                                                        :epub:
**** template                                                   :template:

#+BEGIN_SRC d :tangle ../src/sdp/output_epub.d
template outputEPub() {
  <<output_imports>>
  mixin InternalMarkup;
  mixin outputXHTMLs;
  <<output_epub_fixed>>
  <<output_epub_constructs>>
  <<output_epub_xhtml>>
  <<output_epub_xhtml_seg>>
  <<output_epub_css>>
}
#+END_SRC

**** epub special files                                           :format:
***** static
****** mimetype (file)

#+name: output_epub_fixed
#+BEGIN_SRC d
string epub_mimetypes() {
  string o;
  o = format(q"¶application/epub+zip¶");
  return o;
}
#+END_SRC

****** META-INF/container.xml (file)

#+name: output_epub_fixed
#+BEGIN_SRC d
string epub_container_xml() {
  string o;
  o = format(q"¶<?xml version='1.0' encoding='utf-8'?>
<container version="1.0"
  xmlns="urn:oasis:names:tc:opendocument:xmlns:container">
  <rootfiles>
    <rootfile full-path="OEBPS/content.opf"
      media-type="application/oebps-package+xml" />
  </rootfiles>
</container>¶");
  return o;
}
#+END_SRC

***** constructs (in OEBPS)
****** TODO OEBPS/content.opf (register content: files, images etc.)

#+name: output_epub_constructs
#+BEGIN_SRC d
string epub_oebps_content(D,I)(D doc_abstraction, I doc_matters) {
  string uuid = "18275d951861c77f78acd05672c9906924c59f18a2e0ba06dad95959693e9bd8"; // TODO shared elsewhere
  string content = format(q"¶<?xml version='1.0' encoding='utf-8'?>
<?xml version='1.0' encoding='utf-8'?>
<package xmlns="http://www.idpf.org/2007/opf" version="2.0" unique-identifier="EPB-UUID">
  <opf:metadata
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:opf="http://www.idpf.org/2007/opf"
    xmlns:dcterms="http://purl.org/dc/terms/"
    xmlns:dc="http://purl.org/dc/elements/1.1/"
    unique-identifier="urn:uuid:%s" version="2.0">
    <dc:title>%s</dc:title>
    <dc:creator opf:file-as="%s" opf:role="aut">%s</dc:creator>
    <dc:language>en</dc:language>
    <dc:date opf:event="published">%s</dc:date>
    <dc:rights>Copyright: %s</dc:rights>
    <dc:identifier opf:scheme="URI">ox/current/en/epub/sisu_markup.epub</dc:identifier>
    <dc:identifier id="bookid">urn:uuid:%s</dc:identifier>
    <!-- <dc:identifier id="EPB-UUID">urn:uuid:%s</dc:identifier> -->
  </opf:metadata>
  <manifest>
    <!-- NCX -->
    <item id="ncx" href="toc.ncx" media-type="application/x-dtbncx+xml" />
    <!-- CSS Style Sheets -->
    <item id="main-css" href="css/xhtml.css" media-type="text/css" />¶",
    uuid,
    doc_matters.dochead_meta["title"]["full"],                                                               // title
    (doc_matters.dochead_meta["creator"]["author"].empty) ? "" : " by " ~ doc_matters.dochead_meta["creator"]["author"], // author
    (doc_matters.dochead_meta["creator"]["author"].empty) ? "" : " by " ~ doc_matters.dochead_meta["creator"]["author"], // author
    (doc_matters.dochead_meta["date"]["published"].empty) ? "" : " by " ~ doc_matters.dochead_meta["date"]["published"],  // date
    (doc_matters.dochead_meta["rights"]["copyright"].empty) ? "" : " by " ~ doc_matters.dochead_meta["rights"]["copyright"],  // rights
    uuid,
    uuid,
  );
  foreach (sect; doc_matters.keys_seq_seg) {
    foreach (obj; doc_abstraction[sect]) {
    }
  }
  return content;
}
#+END_SRC

****** TODO OEBPS/toc.ncx (navigable toc using Dom structure)

#+name: output_epub_constructs
#+BEGIN_SRC d
string epub_oebps_toc(D,I)(D doc_abstraction, I doc_matters) {
  int counter = 0;
  string uuid = "18275d951861c77f78acd05672c9906924c59f18a2e0ba06dad95959693e9bd8"; // TODO shared elsewhere
  auto markup = InlineMarkup();
  enum DomTags { none, open, close, close_and_open, open_still, }
  string toc = format(q"¶<?xml version='1.0' encoding='utf-8'?>
<ncx xmlns="http://www.daisy.org/z3986/2005/ncx/" version="2005-1">
  <head>
    <!-- four required metadata items (for all NCX documents,
      (including the relaxed constraints of OPS 2.0) -->
    <title>%s%s</title>
    <link href="css/xhtml.css" rel="stylesheet" type="text/css" id="main-css" />
    <meta name="dtb:uid" content="urn:uuid:%s" />
    <!-- <meta name="epub-creator" content="SiSU http://www.jus.uio.no/sisu (this copy)" /> -->
    <meta name="dtb:depth" content="%s" />
    <meta name="dtb:totalPageCount" content="0" />
    <meta name="dtb:maxPageNumber" content="0" />
  </head>
  <docTitle>
    <text>%s</text>
  </docTitle>
  <docAuthor>
    <text>%s</text>
  </docAuthor>
  <navMap>¶",
    doc_matters.dochead_meta["title"]["full"],                                                               // title
    (doc_matters.dochead_meta["creator"]["author"].empty) ? "" : " by " ~ doc_matters.dochead_meta["creator"]["author"], // author
    uuid,                                                                                        // uuid
    "3",                                                                                         // content depth
    doc_matters.dochead_meta["title"]["full"],                                                               // title
    (doc_matters.dochead_meta["creator"]["author"].empty) ? "" : doc_matters.dochead_meta["creator"]["author"],          // author
  );
  foreach (sect; doc_matters.keys_seq_seg) {
    foreach (obj; doc_abstraction[sect]) {
      if (obj.is_a == "heading") {
        foreach_reverse (k; 0 .. 7) {
          switch (obj.dom_markedup[k]) {
          case DomTags.close :
toc ~= "</navPoint>";
            break;
          case DomTags.close_and_open :
            ++counter;
toc ~= "</navPoint>";
toc ~= format(q"¶<navPoint class="chapter" id="navpoint" playOrder="%s">
<navLabel>
  <text>%s</text>
</navLabel>
<content src="%s" />¶",
counter,
obj.text,
obj.segment_anchor_tag,   // lev < 4 [no link]; lev == 4 [filename] markup.xhtml; lev > 4 [filename#ocn] (links done in segment_anchor_tag)
);
            break;
          case DomTags.open :
            ++counter;
toc ~= format(q"¶<navPoint class="chapter" id="navpoint" playOrder="%s">
<navLabel>
  <text>%s</text>
</navLabel>
<content src="%s" />¶",
counter,
obj.text,
obj.segment_anchor_tag,   // lev < 4 [no link]; lev == 4 [filename] markup.xhtml; lev > 4 [filename#ocn] (fix links in segment_anchor_tag)
);
            break;
          default :
            break;
          }
        }
      }
    }
  }
  toc ~= format(q"¶  </navMap>
</ncx>¶");
  return toc;
}
#+END_SRC

**** seg                                                             :seg:
***** switch (sections & objects) format epub xhtml output

#+name: output_epub_xhtml_seg
#+BEGIN_SRC d
void outputEPub(D,I)(
  auto return ref const D    doc_abstraction,
  auto return ref I          doc_matters,
) {
  mixin SiSUoutputRgxInit;
  auto xhtml_format = outputXHTMLs();
  auto rgx = Rgx();
  string[][string] doc_epub;
  string[][string] doc_epub_endnotes;
  string[] doc;
  string segment_filename;
  string[] top_level_headings = ["","","",""];
  auto mimetypes = epub_mimetypes;
  auto meta_inf_container_xml = epub_container_xml;
  auto oebps_toc_ncx = epub_oebps_toc(doc_abstraction, doc_matters);
  auto oebps_content_opf = epub_oebps_content(doc_abstraction, doc_matters);
  string suffix = ".xhtml";
  foreach (part; doc_matters.keys_seq_seg) {
    foreach (obj; doc_abstraction[part]) {
      if (obj.is_a == "heading") {
        switch (obj.heading_lev_markup) {
        case 0: .. case 3:
          /+ fill buffer, and replace with new levels from 1 to 3 +/
          switch (obj.heading_lev_markup) {
          case 0:
            top_level_headings[0] = "";
            top_level_headings[1] = "";
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 1:
            top_level_headings[1] = "";
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 2:
            top_level_headings[2] = "";
            top_level_headings[3] = "";
            goto default;
          case 3:
            top_level_headings[3] = "";
            goto default;
          default:
            auto t = xhtml_format.heading_seg(obj, suffix);
            top_level_headings[obj.heading_lev_markup] = t[0];
            break;
          }
          break;
        case 4:
          segment_filename = obj.segment_anchor_tag;
          doc_epub[segment_filename] ~= xhtml_format.seg_head(doc_matters.dochead_meta);
          foreach (top_level_heading; top_level_headings) {
            doc_epub[segment_filename] ~= top_level_heading;
          }
          auto t = xhtml_format.heading_seg(obj, suffix);
          doc_epub[segment_filename] ~= t[0];
          doc_epub_endnotes[segment_filename] ~= t[1];
          break;
        case 5: .. case 7:
          auto t = xhtml_format.heading_seg(obj, suffix);
          doc_epub[segment_filename] ~= t[0];
          doc_epub_endnotes[segment_filename] ~= t[1];
          break;
        case 8: .. case 9: // unused numbers, if remain check
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_a, ": ", obj.heading_lev_markup);
            writeln(__FILE__, ":", __LINE__, ": ", obj.text); // check
          }
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.is_a, ": ", obj.heading_lev_markup);
          }
          break;
        }
      } else {
        switch (obj.use) {
        case "frontmatter":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "toc":
              doc_epub[segment_filename] ~= xhtml_format.toc(obj);
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
            }
            break;
          }
          break;
        case "body":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "para":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          case "block":
            switch (obj.is_a) {
            case "quote":
              doc_epub[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "group":
              doc_epub[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "block":
              doc_epub[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "poem":
              break;
            case "verse":
              doc_epub[segment_filename] ~= xhtml_format.nugget(obj);
              break;
            case "code":
              doc_epub[segment_filename] ~= xhtml_format.code(obj);
              break;
            case "table":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
            }
            break;
          }
          break;
        case "backmatter":
          switch (obj.is_of) {
          case "para":
            switch (obj.is_a) {
            case "endnote":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              break;
            case "glossary":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            case "bibliography":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            case "bookindex":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            case "blurb":
              auto t = xhtml_format.para_seg(obj, suffix);
              doc_epub[segment_filename] ~= t[0];
              doc_epub_endnotes[segment_filename] ~= t[1];
              break;
            default:
              if ((doc_matters.opt_action_bool["debug"])) {
                writeln(__FILE__, ":", __LINE__, ": ", obj.is_a);
              }
              break;
            }
            break;
          default:
            if ((doc_matters.opt_action_bool["debug"])) {
              writeln(__FILE__, ":", __LINE__, ": ", obj.is_of);
            }
            break;
          }
          break;
        case "comment":
          break;
        default:
          if ((doc_matters.opt_action_bool["debug"])) {
            writeln(__FILE__, ":", __LINE__, ": ", obj.use);
          }
          break;
        }
      }
    }
  }
  epub_write_output_files(
    doc_matters,
    doc_epub,
    doc_epub_endnotes,
    mimetypes,
    meta_inf_container_xml,
    oebps_toc_ncx,
    oebps_content_opf,
  );
}
#+END_SRC

**** write output files

#+name: output_epub_xhtml_seg
#+BEGIN_SRC d
void epub_write_output_files(M,D,E,Mt,Mic,Ot,Oc)(
  M    doc_matters,
  D    doc_epub,
  E    doc_epub_endnotes,
  Mt   mimetypes,
  Mic  meta_inf_container_xml,
  Ot   oebps_toc_ncx,
  Oc   oebps_content_opf,
) {
  debug(asserts){
    static assert(is(typeof(doc_epub)               == string[][string]));
    static assert(is(typeof(mimetypes)              == string));
    static assert(is(typeof(meta_inf_container_xml) == string));
    static assert(is(typeof(oebps_toc_ncx)          == string));
    static assert(is(typeof(oebps_content_opf)      == string));
  }
  mixin SiSUpaths;
  auto pth_epub = EpubPaths();
  auto xhtml_format = outputXHTMLs();
  try {
    if (!exists(pth_epub.doc_meta_inf(doc_matters.source_filename))) {
      pth_epub.doc_meta_inf(doc_matters.source_filename).mkdirRecurse;
    }
    if (!exists(pth_epub.doc_oebps_css(doc_matters.source_filename))) {
      pth_epub.doc_oebps_css(doc_matters.source_filename).mkdirRecurse;
    }
    if (!exists(pth_epub.doc_oebps_image(doc_matters.source_filename))) {
      pth_epub.doc_oebps_image(doc_matters.source_filename).mkdirRecurse;
    }
    /+ OEBPS/[segments].xhtml +/
    foreach (seg_filename; doc_matters.segnames) {
      auto f = File(pth_epub.fn_oebps_content_xhtml(doc_matters.source_filename, seg_filename), "w");
      /+ // f.writeln(seg_head); // not needed built and inserted earlier +/
      foreach (docseg; doc_epub[seg_filename]) {
        f.writeln(docseg);
      }
      foreach (docseg; doc_epub_endnotes[seg_filename]) {
        f.writeln(docseg);
      }
      f.writeln(xhtml_format.tail); // needed for each lev4
    }
    /+ mimetypes +/
    auto f = File(pth_epub.fn_mimetypes(doc_matters.source_filename), "w");
    f.writeln(mimetypes);
    /+  META-INF/container.xml +/
    f = File(pth_epub.fn_dmi_container_xml(doc_matters.source_filename), "w");
    f.writeln(meta_inf_container_xml);
    /+ OEBPS/toc.ncx +/
    f = File(pth_epub.fn_oebps_toc_ncx(doc_matters.source_filename), "w");
    f.writeln(oebps_toc_ncx);
    /+ OEBPS/content.opf +/
    f = File(pth_epub.fn_oebps_content_opf(doc_matters.source_filename), "w");
    f.writeln(oebps_content_opf);
    foreach (image; doc_matters.image_list) {
      if (exists("_sisu/image/"~ image)) {
        ("_sisu/image/"~ image)
        .copy((pth_epub.doc_oebps_image(doc_matters.source_filename)) ~ "/" ~ image);
      }
    }
  }
  catch (ErrnoException ex) {
    // Handle error
  }
}
#+END_SRC

** pdf [#C]                                                            :pdf:
** odt                                                                 :odt:
** sqlite [#B]                                                      :sqlite:
** pgsql                                                             :pgsql: