>
}
}
#+END_SRC
**** misc
***** special characters
#+name: xhtml_format_objects
#+BEGIN_SRC d
string special_characters(string _txt){
_txt = (_txt)
.replaceAll(rgx.xhtml_ampersand, "&")
.replaceAll(rgx.xhtml_less_than, "<")
.replaceAll(rgx.xhtml_greater_than, ">")
.replaceAll(rgx.xhtml_line_break, "
");
return _txt;
}
#+END_SRC
***** font_face
#+name: xhtml_format_objects
#+BEGIN_SRC d
string font_face(string _txt){
_txt = (_txt)
.replaceAll(rgx.inline_emphasis, ("$1"))
.replaceAll(rgx.inline_bold, ("$1"))
.replaceAll(rgx.inline_underscore, ("$1"))
.replaceAll(rgx.inline_italics, ("$1"))
.replaceAll(rgx.inline_superscript, ("$1"))
.replaceAll(rgx.inline_subscript, ("$1"))
.replaceAll(rgx.inline_strike, ("$1"))
.replaceAll(rgx.inline_insert, ("$1"))
.replaceAll(rgx.inline_mono, ("$1"))
.replaceAll(rgx.inline_cite, ("$1"));
return _txt;
}
#+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 ~= "";
}
}
}
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"¶
%s%s
¶",
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"¶
%s%s
¶",
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"¶
¶");
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,
("$1"));
_txt = (_txt).replaceAll(
rgx.mark_internal_site_lnk,
""
);
}
debug(markup_links) {
if (_txt.match(rgx.inline_link)) {
writeln(__LINE__,
" (missed) markup link identified (",
obj.inline_links,
"): ", obj.is_a, ": ",
obj.text
);
}
}
debug(markup) {
if (_txt.match(rgx.inline_link)) {
writeln(__LINE__,
" (missed) markup link identified (",
obj.inline_links,
"): ", obj.is_a, ": ",
obj.text
);
}
}
return _txt;
}
#+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,
(" $1 ")
);
}
debug(markup_endnotes) {
if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
writeln(__LINE__, " (missed) markup endnote: ", obj.is_a, ": ", obj.text);
}
}
debug(markup) {
if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
writeln(__LINE__, " (missed) markup endnote: ", obj.is_a, ": ", obj.text);
}
}
// if (obj.inline_notes_star) {
// _txt = replaceAll(
// _txt,
// rgx.inline_notes_delimiter_al_regular_number_note,
// (" $1 ")
// );
// }
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",
"",
"",
" ",
m.captures[1],
".",
m.captures[2],
"
"
);
}
_txt = (_txt).replaceAll(
rgx.inline_notes_delimiter_al_regular_number_note,
(" $1 ")
);
} else if (_txt.match(rgx.inline_notes_delimiter_al_regular_number_note)) {
debug(markup) {
writeln(__LINE__, " endnote: ", obj.is_a, ": ", obj.text);
}
}
auto t = tuple(
_txt,
_endnotes,
);
return t;
}
#+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"¶ ¶",
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"¶
%s
%s
¶",
obj.heading_lev_markup,
obj.is_a,
tags,
_txt,
obj.heading_lev_markup,
);
} else {
o = format(q"¶
¶",
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) ? ("● " ~ _txt) : _txt;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
obj.indent_hang,
obj.indent_base,
tags,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.indent_hang,
obj.indent_base,
obj.obj_cite_number,
tags,
_txt
);
}
return o;
}
#+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
**** quote
***** quote
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto quote(O)(
auto return ref const O obj,
string _txt,
) {
_txt = font_face(_txt);
string o;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.obj_cite_number,
_txt
);
}
return o;
}
#+END_SRC
***** scroll
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto quote_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 = quote(obj, _txt);
return o;
}
#+END_SRC
***** seg
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto quote_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 = quote(obj, _txt);
auto u = tuple(
o,
_endnotes,
);
return u;
}
#+END_SRC
**** group
***** group
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto group(O)(
auto return ref const O obj,
string _txt,
) {
_txt = font_face(_txt);
string o;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.obj_cite_number,
_txt
);
}
return o;
}
#+END_SRC
***** scroll
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto group_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 = group(obj, _txt);
return o;
}
#+END_SRC
***** seg
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto group_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 = group(obj, _txt);
auto u = tuple(
o,
_endnotes,
);
return u;
}
#+END_SRC
**** block
***** block
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto block(O)(
auto return ref const O obj,
string _txt,
) {
_txt = font_face(_txt);
string o;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.obj_cite_number,
_txt
);
}
return o;
}
#+END_SRC
***** scroll
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto block_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 = block(obj, _txt);
return o;
}
#+END_SRC
***** seg
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto block_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 = block(obj, _txt);
auto u = tuple(
o,
_endnotes,
);
return u;
}
#+END_SRC
**** poem verse
***** 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,
) {
_txt = font_face(_txt);
_txt = (_txt)
.replaceAll(rgx.newline, "
\n")
.replaceAll(rgx.two_spaces, " " ~ " " ~ " " ~ " ")
.replaceAll(rgx.nbsp_and_space, " " ~ " ")
.replaceAll(rgx.strip_br, "");
string o;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.obj_cite_number,
_txt
);
}
return o;
}
#+END_SRC
***** scroll
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto verse_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 = verse(obj, _txt);
return o;
}
#+END_SRC
***** seg
#+name: xhtml_format_objects
#+BEGIN_SRC d
auto verse_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 = verse(obj, _txt);
auto u = tuple(
o,
_endnotes,
);
return u;
}
#+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, "
\n")
.replaceAll(rgx.nbsp_char, " ");
string o;
if (obj.obj_cite_number.empty) {
o = format(q"¶ ¶",
obj.is_a,
_txt
);
} else {
o = format(q"¶ ¶",
obj.obj_cite_number,
obj.obj_cite_number,
obj.is_a,
obj.obj_cite_number,
_txt
);
}
return o;
}
#+END_SRC
**** table
***** TODO tablarize
align="left|right|center"
$100 |
"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 ~= "";
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 ~= "
";
}
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"¶ ¶",
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"¶
%s
¶",
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() {
<>
mixin outputXHTMLs;
<>
<>
<>
<>
}
#+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.quote_scroll(obj);
break;
case "group":
doc_html ~= xhtml_format.group_scroll(obj);
break;
case "block":
doc_html ~= xhtml_format.block_scroll(obj);
break;
case "poem":
break;
case "verse":
doc_html ~= xhtml_format.verse_scroll(obj, suffix);
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":
auto t = xhtml_format.quote_seg(obj, suffix);
doc_html[segment_filename] ~= to!string(t[0]);
doc_html_endnotes[segment_filename] ~= t[1];
break;
case "group":
auto t = xhtml_format.group_seg(obj, suffix);
doc_html[segment_filename] ~= to!string(t[0]);
doc_html_endnotes[segment_filename] ~= t[1];
break;
case "block":
auto t = xhtml_format.block_seg(obj, suffix);
doc_html[segment_filename] ~= to!string(t[0]);
doc_html_endnotes[segment_filename] ~= t[1];
break;
case "poem":
break;
case "verse":
auto t = xhtml_format.verse_seg(obj, suffix);
doc_html[segment_filename] ~= to!string(t[0]);
doc_html_endnotes[segment_filename] ~= t[1]; // work on
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:
|-----------------------+--------------------------+---------------------------+----------------------------------|
| function | filename | module | variable |
|-----------------------+--------------------------+---------------------------+----------------------------------|
| identify doc filetype | mimetype | epub3_mimetypes | mimetypes |
|-----------------------+--------------------------+---------------------------+----------------------------------|
| identify doc root | META-INF/container.xml | epub3_container_xml | meta_inf_container_xml |
|-----------------------+--------------------------+---------------------------+----------------------------------|
| doc manifest | OEBPS/content.opf | epub3_oebps_content | oebps_content_opf |
|-----------------------+--------------------------+---------------------------+----------------------------------|
| doc navigation | OEBPS/toc_nav.xhtml | epub3_oebps_toc_nav_xhtml | oebps_toc_nav_xhtml |
| | OEBPS/toc.ncx | epub2_oebps_toc_ncx | oebps_toc_ncx |
|-----------------------+--------------------------+---------------------------+----------------------------------|
| doc contents | OEBPS/[files ... ].xhtml | outputEPub3 | doc_epub3[seg_filename] |
| | | | doc_epub3_endnotes[seg_filename] |
|-----------------------+--------------------------+---------------------------+----------------------------------|
**** template :template:
#+BEGIN_SRC d :tangle ../src/sdp/output_epub3.d
template outputEPub3() {
<>
mixin InternalMarkup;
mixin outputXHTMLs;
<>
<>
<>
<>
<>
}
#+END_SRC
**** special (epub) files :format:
***** DONE static
****** _identify doc filetype_ (mimetype) [static]
- mimetype file indicating that zip file contains an EPUB
#+name: output_epub3_fixed
#+BEGIN_SRC d
string epub3_mimetypes() {
string o;
o = format(q"¶application/epub+zip¶") ~ "\n";
return o;
}
#+END_SRC
****** _identify doc root_ (META-INF/container.xml) [static] rootfile: contains document root path
- identifies the root package document (so systems can find it), [unchanged from epub2]
#+name: output_epub3_fixed
#+BEGIN_SRC d
string epub3_container_xml() {
string o;
o = format(q"¶¶") ~ "\n";
o ~= format(q"¶
¶") ~ "\n\n";
return o;
}
#+END_SRC
***** constructs (in dir: OEBPS)
****** TODO _doc manifest_ (OEBPS/content.opf) manifest, register content: files, images etc.
- manifest, listing all resources
- provides the default reading order
- identifies the navigation document
#+name: output_epub3_constructs
#+BEGIN_SRC d
string epub3_oebps_content(D,I,P)(D doc_abstraction, I doc_matters, P parts) {
string uuid = "18275d951861c77f78acd05672c9906924c59f18a2e0ba06dad95959693e9bd8"; // TODO sort uuid in doc_matters!
string content = format(q"¶
%s
main
%s
subtitle
%s
%s
%s
Copyright: %s
%s
urn:uuid:%s
¶",
uuid,
doc_matters.dochead_meta["title"]["full"],
doc_matters.dochead_meta["title"]["main"],
(doc_matters.dochead_meta["title"]["sub"].empty)
? "" : doc_matters.dochead_meta["title"]["sub"],
(doc_matters.dochead_meta["creator"]["author"].empty)
? "" : doc_matters.dochead_meta["creator"]["author"],
(doc_matters.dochead_meta["creator"]["author"].empty)
? "" : doc_matters.dochead_meta["creator"]["author"],
doc_matters.language,
(doc_matters.dochead_meta["date"]["published"].empty)
? "" : doc_matters.dochead_meta["date"]["published"],
(doc_matters.dochead_meta["rights"]["copyright"].empty)
? "" : doc_matters.dochead_meta["rights"]["copyright"],
uuid,
uuid,
uuid,
);
content ~= " " ~ "" ~ "\n ";
content ~= parts["manifest_documents"];
// TODO sort jpg & png
content ~= " " ~ "" ~ "\n ";
foreach (image; doc_matters.image_list) {
content ~= format(q"¶
¶",
image, // strip image type, remove .png .jpg suffix, use in media-type="image/"
image,
);
}
content ~= " " ~ "" ~ "\n ";
content ~= " " ~ "" ~ "\n ";
content ~= parts["spine"];
content ~= " " ~ "" ~ "\n ";
content ~= " " ~ "" ~ "\n ";
content ~= parts["guide"];
content ~= " " ~ "" ~ "\n ";
content ~= "" ~ "";
return content;
}
#+END_SRC
****** _doc navigation epub3_ (OEBPS/toc_nav.xhtml) epub3 navigable toc using Dom structure
- toc_nav.xhtml declared as nav file in content.opf (epub3 navigation document)
#+name: output_epub3_constructs
#+BEGIN_SRC d
string epub3_oebps_toc_nav_xhtml(D,I)(D doc_abstraction, I doc_matters) {
enum DomTags { none, open, close, close_and_open, open_still, }
auto markup = InlineMarkup();
string toc ="\n";
return toc;
}
#+END_SRC
****** TODO _doc navigation epub2_ (OEBPS/toc.ncx) navigable toc using Dom structure
- toc.ncx (epub2 navigation document)
- (replaced in epub3 by a declared xhtml nav file, in our case toc_nav.xhtml)
#+name: output_epub3_constructs
#+BEGIN_SRC d
string epub2_oebps_toc_ncx(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"¶
%s%s
%s
%s
¶",
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 ~= "";
break;
case DomTags.close_and_open :
++counter;
toc ~= "";
toc ~= format(q"¶
%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"¶
%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"¶
¶");
return toc;
}
#+END_SRC
**** the document contents :seg:
***** switch (sections & objects) format epub3 xhtml output
#+name: output_epub3_xhtml_seg
#+BEGIN_SRC d
void outputEPub3(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_epub3;
string[][string] doc_epub3_endnotes;
string[] doc;
string segment_filename;
string[] top_level_headings = ["","","",""];
string[string] oepbs_content_parts;
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_epub3[segment_filename] ~= xhtml_format.seg_head(doc_matters.dochead_meta);
foreach (top_level_heading; top_level_headings) {
doc_epub3[segment_filename] ~= top_level_heading;
}
auto t = xhtml_format.heading_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case 5: .. case 7:
auto t = xhtml_format.heading_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_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_epub3[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_epub3[segment_filename] ~= t[0];
doc_epub3_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":
auto t = xhtml_format.quote_seg(obj, suffix);
doc_epub3[segment_filename] ~= to!string(t[0]);
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "group":
auto t = xhtml_format.group_seg(obj, suffix);
doc_epub3[segment_filename] ~= to!string(t[0]);
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "block":
auto t = xhtml_format.block_seg(obj, suffix);
doc_epub3[segment_filename] ~= to!string(t[0]);
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "poem":
break;
case "verse":
auto t = xhtml_format.verse_seg(obj, suffix);
doc_epub3[segment_filename] ~= to!string(t[0]);
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "code":
doc_epub3[segment_filename] ~= xhtml_format.code(obj);
break;
case "table":
auto t = xhtml_format.para_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_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_epub3[segment_filename] ~= t[0];
break;
case "glossary":
auto t = xhtml_format.para_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "bibliography":
auto t = xhtml_format.para_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "bookindex":
auto t = xhtml_format.para_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_endnotes[segment_filename] ~= t[1];
break;
case "blurb":
auto t = xhtml_format.para_seg(obj, suffix);
doc_epub3[segment_filename] ~= t[0];
doc_epub3_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;
}
}
if (obj.is_a == "heading") {
if (obj.heading_lev_markup == 4) {
oepbs_content_parts["manifest_documents"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
obj.segment_anchor_tag,
);
oepbs_content_parts["spine"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
);
oepbs_content_parts["guide"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
obj.segment_anchor_tag,
);
} else if (obj.heading_lev_markup > 4) {
oepbs_content_parts["manifest_documents"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
obj.obj_cite_number,
obj.segment_anchor_tag,
obj.obj_cite_number,
);
oepbs_content_parts["spine"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
obj.obj_cite_number,
);
oepbs_content_parts["guide"] ~= format(q"¶
¶",
obj.segment_anchor_tag,
obj.obj_cite_number,
obj.segment_anchor_tag,
obj.obj_cite_number,
);
}
}
}
}
/+ epub specific documents +/
auto mimetypes = epub3_mimetypes;
auto meta_inf_container_xml = epub3_container_xml;
auto oebps_toc_ncx = epub2_oebps_toc_ncx(doc_abstraction, doc_matters);
auto oebps_toc_nav_xhtml = epub3_oebps_toc_nav_xhtml(doc_abstraction, doc_matters);
auto oebps_content_opf = epub3_oebps_content(doc_abstraction, doc_matters, oepbs_content_parts);
epub3_write_output_files(
doc_matters,
doc_epub3,
doc_epub3_endnotes,
mimetypes,
meta_inf_container_xml,
oebps_toc_nav_xhtml,
oebps_toc_ncx,
oebps_content_opf,
);
}
#+END_SRC
**** write output files
#+name: output_epub3_xhtml_seg
#+BEGIN_SRC d
void epub3_write_output_files(M,D,E,Mt,Mic,Otnx,Otn,Oc)(
M doc_matters,
D doc_epub3,
E doc_epub3_endnotes,
Mt mimetypes,
Mic meta_inf_container_xml,
Otnx oebps_toc_nav_xhtml,
Otn oebps_toc_ncx,
Oc oebps_content_opf,
) {
debug(asserts) {
static assert(is(typeof(doc_epub3) == string[][string]));
static assert(is(typeof(mimetypes) == string));
static assert(is(typeof(meta_inf_container_xml) == string));
static assert(is(typeof(oebps_toc_nav_xhtml) == string));
static assert(is(typeof(oebps_toc_ncx) == string));
static assert(is(typeof(oebps_content_opf) == string));
}
mixin SiSUpaths;
auto pth_epub3 = Epub3paths();
auto xhtml_format = outputXHTMLs();
/+ zip file +/
auto fn_epub = pth_epub3.epub_file(doc_matters.source_filename);
auto zip = new ZipArchive(); // ZipArchive zip = new ZipArchive();
/+ zip archive member files +/
try {
if (!exists(pth_epub3.doc_meta_inf(doc_matters.source_filename))) {
pth_epub3.doc_meta_inf(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_epub3.doc_oebps_css(doc_matters.source_filename))) {
pth_epub3.doc_oebps_css(doc_matters.source_filename).mkdirRecurse;
}
if (!exists(pth_epub3.doc_oebps_image(doc_matters.source_filename))) {
pth_epub3.doc_oebps_image(doc_matters.source_filename).mkdirRecurse;
}
{ /+ OEBPS/[segments].xhtml (the document contents) +/
foreach (seg_filename; doc_matters.segnames) {
string fn = pth_epub3.fn_oebps_content_xhtml(doc_matters.source_filename, seg_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add seg fn to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
debug(epub_output) {
string fn_dbg = pth_epub3.dbg_fn_oebps_content_xhtml(doc_matters.source_filename, seg_filename);
auto f = File(fn_dbg, "w");
}
/+ // f.writeln(seg_head); // not needed built and inserted earlier +/
foreach (docseg; doc_epub3[seg_filename]) {
debug(epub_output) { f.writeln(docseg); }
zip_data.write(docseg.dup); // cast as: char[]
}
foreach (docseg; doc_epub3_endnotes[seg_filename]) {
debug(epub_output) { f.writeln(docseg); }
zip_data.write(docseg.dup); // cast as: char[]
}
debug(epub_output) { f.writeln(xhtml_format.tail); } // needed for each lev4
zip_data.write(xhtml_format.tail.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
}
string fn;
debug(epub_output) { string fn_dbg; }
File f;
{ /+ mimetypes (identify zip file type) +/
debug(epub_output) {
fn_dbg = pth_epub3.dbg_fn_mimetypes(doc_matters.source_filename);
File(fn_dbg, "w").writeln(mimetypes);
}
fn = pth_epub3.fn_mimetypes(doc_matters.source_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add mimetypes to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
zip_data.write(mimetypes.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
{ /+ META-INF/container.xml (identify doc root) +/
debug(epub_output) {
fn_dbg = pth_epub3.dbg_fn_dmi_container_xml(doc_matters.source_filename);
File(fn_dbg, "w").writeln(meta_inf_container_xml);
}
fn = pth_epub3.fn_dmi_container_xml(doc_matters.source_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add META-INF/container.xml to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
zip_data.write(meta_inf_container_xml.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
{ /+ OEBPS/toc_nav.xhtml (navigation toc epub3) +/
debug(epub_output) {
fn_dbg = pth_epub3.dbg_fn_oebps_toc_nav_xhtml(doc_matters.source_filename);
File(fn_dbg, "w").writeln(oebps_toc_nav_xhtml);
}
fn = pth_epub3.fn_oebps_toc_nav_xhtml(doc_matters.source_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add OEBPS/toc_nav.xhtml to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
zip_data.write(oebps_toc_nav_xhtml.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
{ /+ TODO OEBPS/toc.ncx (navigation toc epub2) +/
debug(epub_output) {
fn_dbg = pth_epub3.dbg_fn_oebps_toc_ncx(doc_matters.source_filename);
File(fn_dbg, "w").writeln(oebps_toc_ncx);
}
fn = pth_epub3.fn_oebps_toc_ncx(doc_matters.source_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add OEBPS/toc.ncx to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
zip_data.write(oebps_toc_ncx.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
{ /+ TODO OEBPS/content.opf (doc manifest) +/
debug(epub_output) {
fn_dbg = pth_epub3.dbg_fn_oebps_content_opf(doc_matters.source_filename);
File(fn_dbg, "w").writeln(oebps_content_opf);
}
fn = pth_epub3.fn_oebps_content_opf(doc_matters.source_filename);
/+ add zip archive file members (with their content) +/
auto zip_arc_member_file = new ArchiveMember();
// add OEBPS/content.opf to zip archive
zip_arc_member_file.name = fn;
auto zip_data = new OutBuffer();
zip_data.write(oebps_content_opf.dup); // cast as: char[]
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
/+ create the zip file +/
createZipFile!()(fn_epub, zip.build());
}
{ /+ OEBPS/_sisu/image (images) +/
foreach (image; doc_matters.image_list) {
if (exists("_sisu/image/"~ image)) {
("_sisu/image/"~ image)
.copy((pth_epub3.doc_oebps_image(doc_matters.source_filename)) ~ "/" ~ image);
}
}
foreach (image; doc_matters.image_list) {
debug(epub_images) {
writeln(
"_sisu/image/", image, " -> ",
pth_epub3.doc_oebps_image(doc_matters.source_filename), "/", image
);
}
auto fn_src = "_sisu/image/"~ image;
auto fn_out = pth_epub3.doc_oebps_image(doc_matters.source_filename).to!string ~ "/" ~ image;
if (exists(fn_src)) {
{
auto zip_arc_member_file = new ArchiveMember();
zip_arc_member_file.name = fn_out;
auto zip_data = new OutBuffer();
zip_data.write(cast(char[]) ((fn_src).read));
zip_arc_member_file.expandedData = zip_data.toBytes();
zip.addMember(zip_arc_member_file);
createZipFile!()(fn_epub, zip.build());
}
}
}
}
}
catch (ErrnoException ex) {
// Handle error
}
#+END_SRC
*** zip debug, read zip archive
#+name: output_epub3_xhtml_seg
#+BEGIN_SRC d
debug(epub_archive) {
if (exists(fn_epub)) {
try {
auto zipped = new ZipArchive((fn_epub).read);
foreach (filename, member; zipped.directory) {
auto data = zipped.expand(member);
writeln(filename, " length ", data.length); // member.name
// Use data
}
}
catch (ZipException ex) {
// Handle errors
}
}
}
}
#+END_SRC
** pdf [#C] :pdf:
** odt :odt:
** sqlite [#B] :sqlite:
** pgsql :pgsql: