#+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
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() { <> void SiSUpod(T)(T doc_matters) { <> try { <> <> <> } 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() { <> mixin SiSUoutputRgxInit; struct outputXHTMLs { auto rgx = Rgx(); <> <> } } #+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"¶

%s

¶", 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"¶


%s %s
¶", 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"¶

%s %s

¶", obj.is_a, obj.indent_hang, obj.indent_base, tags, _txt ); } else { o = format(q"¶

%s %s

¶", 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"¶

%s

¶", obj.is_a, _txt ); } else { o = format(q"¶

%s

¶", 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"¶

%s

¶", obj.is_a, _txt ); } else { o = format(q"¶

%s

¶", 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"¶

%s

¶", obj.is_a, _txt // obj.text ); } else { o = format(q"¶

%s

¶", obj.obj_cite_number, obj.obj_cite_number, obj.is_a, obj.obj_cite_number, _txt // obj.text ); } 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"¶

%s

¶", obj.is_a, _txt ); } else { o = format(q"¶

%s

¶", 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"¶

%s

¶", obj.is_a, _txt ); } else { o = format(q"¶

%s

¶", 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 ~= ""; } } _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"¶

%s %s
%s

¶", 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: **** template :template: #+BEGIN_SRC d :tangle ../src/sdp/output_epub.d template outputEPub() { <> mixin InternalMarkup; mixin outputXHTMLs; <> <> <> <> <> } #+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"¶ ¶"); 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"¶ %s %s en %s Copyright: %s ox/current/en/epub/sisu_markup.epub urn:uuid:%s ¶", 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"¶ %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 **** 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": auto t = xhtml_format.quote_seg(obj, suffix); doc_epub[segment_filename] ~= to!string(t[0]); doc_epub_endnotes[segment_filename] ~= t[1]; break; case "group": auto t = xhtml_format.group_seg(obj, suffix); doc_epub[segment_filename] ~= to!string(t[0]); doc_epub_endnotes[segment_filename] ~= t[1]; break; case "block": auto t = xhtml_format.block_seg(obj, suffix); doc_epub[segment_filename] ~= to!string(t[0]); doc_epub_endnotes[segment_filename] ~= t[1]; break; case "poem": break; case "verse": auto t = xhtml_format.verse_seg(obj, suffix); doc_epub[segment_filename] ~= to!string(t[0]); doc_epub_endnotes[segment_filename] ~= t[1]; 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: