aboutsummaryrefslogtreecommitdiffhomepage
path: root/org/output_latex.org
diff options
context:
space:
mode:
Diffstat (limited to 'org/output_latex.org')
-rw-r--r--org/output_latex.org1879
1 files changed, 0 insertions, 1879 deletions
diff --git a/org/output_latex.org b/org/output_latex.org
deleted file mode 100644
index f9c6d55..0000000
--- a/org/output_latex.org
+++ /dev/null
@@ -1,1879 +0,0 @@
--*- mode: org -*-
-#+TITLE: spine (doc_reform) output latex
-#+DESCRIPTION: documents - structuring, publishing in multiple formats & search
-#+FILETAGS: :spine:output:latex:pdf:
-#+AUTHOR: Ralph Amissah
-#+EMAIL: [[mailto:ralph.amissah@gmail.com][ralph.amissah@gmail.com]]
-#+COPYRIGHT: Copyright (C) 2015 - 2019 Ralph Amissah
-#+LANGUAGE: en
-#+STARTUP: indent content hideblocks hidestars
-#+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 :results silent :padline no :exports code :cache no :noweb yes
-#+EXPORT_SELECT_TAGS: export
-
-- [[./spine.org][spine]] [[./][org/]]
-- [[./output_hub.org][output_hub]]
-
-* latex
-** _module template_ :latex:pdf:module:
-
-#+BEGIN_SRC d :tangle "../src/doc_reform/output/latex.d" :noweb yes
-module doc_reform.output.latex;
-template outputLaTeX() {
- <<output_latex_imports>>
- mixin InternalMarkup; // watch
- mixin DocReformOutputRgxInit;
- auto rgx = Rgx();
- mixin DocReformLanguageCodes;
- auto lang = Lang();
- <<output_latex_shared>>
-<<output_latex_shared_0>>
- <<output_latex_head>>
- <<output_latex_head_1_format_string>>
-<<output_latex_head_1_tex>>
- <<output_latex_head_1_format_string_variables>>
- <<output_latex_head_0_format_string>>
-<<output_latex_head_0_tex>>
- <<output_latex_head_0_format_string_variables>>
- <<output_latex_head_close>>
- <<output_latex_body>>
- <<output_latex_tail>>
-<<output_latex_tail_tex>>
- <<output_latex_tail_close>>
- <<output_latex>>
-}
-#+END_SRC
-
-** write latex output :latex:out:
-
-#+name: output_latex
-#+BEGIN_SRC d
-void writeOutputLaTeX(T,M)(
- const T latex_content,
- M doc_matters,
-) {
- auto pth_latex = DocReformPathsLaTeX(doc_matters);
- try {
- { /+ debug +/
- if (doc_matters.opt.action.debug_do
- && doc_matters.opt.action.verbose) {
- writeln(latex_content.head);
- writeln(latex_content.content);
- writeln(latex_content.tail);
- }
- }
- if (!exists(pth_latex.latex_path_stuff)) {
- (pth_latex.latex_path_stuff).mkdirRecurse;
- }
- if (!(doc_matters.opt.action.quiet)) {
- writeln(" ", pth_latex.latex_file_with_path);
- }
- auto f = File(pth_latex.latex_file_with_path, "w");
- f.writeln(latex_content.head);
- f.writeln(latex_content.content);
- f.writeln(latex_content.tail);
- foreach (image; doc_matters.srcs.image_list) {
- auto fn_src_in = doc_matters.src.image_dir_path ~ "/" ~ image;
- auto fn_src_out_file = pth_latex.latex_path_stuff ~ "/" ~ image;
- if (exists(fn_src_in)) {
- fn_src_in.copy(fn_src_out_file);
- }
- }
- } catch (ErrnoException ex) {
- // handle error
- }
-}
-#+END_SRC
-
-** latex output hub [#A] :latex:pdf:out:
-
-#+name: output_latex
-#+BEGIN_SRC d
-void outputLaTeX(D,M)(
- const D doc_abstraction,
- M doc_matters,
-) {
- struct LaTeX {
- string head;
- string content;
- string tail;
- }
- auto latex = LaTeX();
- latex.head = latex_head(doc_matters);
- latex.content = latex_body(doc_abstraction, doc_matters);
- latex.tail = latex_tail(doc_matters);
- latex.writeOutputLaTeX(doc_matters);
-}
-#+END_SRC
-
-* stuff
-** output imports
-
-#+name: output_latex_imports
-#+BEGIN_SRC d
-import doc_reform.output;
-import
- std.digest.sha,
- std.file,
- std.outbuffer,
- std.uri,
- std.conv : to;
-#+END_SRC
-
-** shared
-*** paper dimensions (struct)
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
- auto paper() {
- struct PaperType {
- auto a4() {
- struct A4 {
- auto portrait() {
- struct V {
- uint w = 160;
- uint h = 228;
- uint img_px = 450;
- }
- return V();
- }
- auto landscape() {
- struct H {
- uint w = 238;
- uint h = 160;
- uint img_px = 300;
- }
- return H();
- }
- }
- return A4();
- }
- auto a5() {
- struct A5 {
- auto portrait() {
- struct V {
- uint w = 112;
- uint h = 162;
- uint img_px = 280;
- }
- return V();
- }
- auto landscape() {
- struct H {
- uint w = 152;
- uint h = 100;
- uint img_px = 190;
- }
- return H();
- }
- }
- return A5();
- }
- auto b4() {
- struct B4 {
- auto portrait() {
- struct V {
- uint w = 140;
- uint h = 204;
- uint img_px = 356;
- }
- return V();
- }
- auto landscape() {
- struct H {
- uint w = 200;
- uint h = 130;
- uint img_px = 260;
- }
- return H();
- }
- }
- return B4();
- }
- auto letter() {
- struct Letter {
- auto portrait() {
- struct V {
- uint w = 166;
- uint h = 212;
- uint img_px = 468;
- }
- return V();
- }
- auto landscape() {
- struct H {
- uint w = 226;
- uint h = 166;
- uint img_px = 290;
- }
- return H();
- }
- }
- return Letter();
- }
- auto legal() {
- struct Legal {
- auto portrait() {
- struct V {
- uint w = 168;
- uint h = 286;
- uint img_px = 474;
- }
- return V();
- }
- auto landscape() {
- struct H {
- uint w = 296;
- uint h = 166;
- uint img_px = 420;
- }
- return H();
- }
- }
- return Legal();
- }
- }
- return PaperType();
- }
-#+END_SRC
-
-*** latex \escape special characters
-**** general
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string sp_char_esc(O)(
- string _txt,
- const O obj,
-) {
- string _unescape_sp_char_esc()(string _txt) {
- _txt = _txt
- .replaceAll(rgx.latex_special_char_escaped,
- format(q"┃%s┃", "$1"))
- .replaceAll(rgx.latex_special_char_escaped_braced,
- format(q"┃%s┃", "$1"));
- return _txt;
- }
- string _unescape_fontface_esc()(string _txt) {
- _txt = _txt.replaceAll(rgx.latex_identify_inline_fontface,
- format(q"┃%s%s┃", "$1", "$2"));
- return _txt;
- }
- if (obj.metainfo.is_a != "code") {
- _txt = replaceAll!(m => "\\" ~ m[1])(_txt, rgx.latex_special_char_for_escape);
- _txt = replaceAll!(m => "{\\" ~ m[1] ~ "}")(_txt, rgx.latex_special_char_for_escape_and_braces);
- _txt = replaceAll!(m => _unescape_sp_char_esc(m[0]))(_txt, rgx.latex_identify_inline_link);
- _txt = replaceAll!(m => _unescape_fontface_esc(m[0]))(_txt, rgx.latex_identify_inline_fontface);
- }
- return _txt;
-}
-#+END_SRC
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string sp_char_esc_txt()(
- string _txt,
-) {
- string _unescape_sp_char_esc()(string _txt) {
- _txt = _txt
- .replaceAll(rgx.latex_special_char_escaped,
- format(q"┃%s┃", "$1"))
- .replaceAll(rgx.latex_special_char_escaped_braced,
- format(q"┃%s┃", "$1"));
- return _txt;
- }
- string _unescape_fontface_esc()(string _txt) {
- _txt = _txt.replaceAll(rgx.latex_identify_inline_fontface,
- format(q"┃%s%s┃", "$1", "$2"));
- return _txt;
- }
- _txt = replaceAll!(m => "\\" ~ m[1])(_txt, rgx.latex_special_char_for_escape);
- _txt = replaceAll!(m => "{\\" ~ m[1] ~ "}")(_txt, rgx.latex_special_char_for_escape_and_braces);
- _txt = replaceAll!(m => _unescape_sp_char_esc(m[0]))(_txt, rgx.latex_identify_inline_link);
- _txt = replaceAll!(m => _unescape_fontface_esc(m[0]))(_txt, rgx.latex_identify_inline_fontface);
- return _txt;
-}
-#+END_SRC
-
-*** not used latex \escape special characters
-
-#+BEGIN_SRC d
-string sp_char_esc()(
- string _txt,
-) {
- _txt = replaceAll!(m => "\\" ~ m[1])(_txt, rgx.latex_special_char);
- return _txt;
-}
-#+END_SRC
-
-*** inline markup
-**** fontface
-
-- bold, italics, underscore, strikethrough
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string fontface()(
- string _txt,
-) {
-_txt = _txt
- .replaceAll(rgx.inline_emphasis, format(q"┃\begin{bfseries}%s\end{bfseries}┃", "$1"))
- .replaceAll(rgx.inline_bold, format(q"┃\begin{bfseries}%s\end{bfseries}┃", "$1"))
- .replaceAll(rgx.inline_italics, format(q"┃\emph{%s}┃", "$1"))
- .replaceAll(rgx.inline_italics, format(q"┃\uline{%s}┃", "$1"))
- .replaceAll(rgx.inline_superscript, format(q"┃$$^{\textrm{%s}}$$┃", "$1"))
- .replaceAll(rgx.inline_subscript, format(q"┃$$_{\textrm{%s}}$$┃", "$1"))
- .replaceAll(rgx.inline_strike, format(q"┃\sout{%s}┃", "$1"))
- .replaceAll(rgx.inline_insert, format(q"┃\uline{%s}┃", "$1"))
- .replaceAll(rgx.inline_mono, format(q"┃\begin{monosp}%s\end{monosp}┃", "$1"))
- .replaceAll(rgx.inline_italics, format(q"┃``%s''┃", "$1"));
- return _txt;
-}
-#+END_SRC
-
-**** spaces
-***** leading hardspace
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string leading_hardspaces()(
- string _txt,
-) {
- string hardspaces(string _spaces) {
- _spaces = _spaces
- .replaceAll(rgx.space, "\\hardspace ");
- return _spaces;
- }
- _txt = replaceAll!(m => hardspaces(m[0]))(_txt, rgx.spaces_line_start);
- return _txt;
-}
-#+END_SRC
-
-***** nbsp character
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string nbsp_char()(string _txt) {
- if (_txt.match(rgx.nbsp_char)) {
- _txt = _txt.replaceAll(rgx.nbsp_char, "\\hardspace ");
- }
- return _txt;
-}
-#+END_SRC
-
-***** remove nbsp character
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string nbsp_char_to_space()(string _txt) {
- if (_txt.match(rgx.nbsp_char)) {
- _txt = _txt.replaceAll(rgx.nbsp_char, " ");
- }
- return _txt;
-}
-#+END_SRC
-
-**** links and images
-***** links / urls
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string links_and_images(O,M)(
- string _txt,
- const O obj,
- M doc_matters,
-) {
- if (obj.has.inline_links) { // TODO some images do not have inline links ... image without link
- string _width_adjust(string _width) {
- if (_width.to!int > 300) { _width = "300"; } // will need to vary max with papersize & orientation
- return _width;
- }
- string _latex_image_path(string _image_path) {
- auto pth_latex = DocReformPathsLaTeX(doc_matters);
- _image_path = pth_latex.latex_path_stuff ~ "/" ~ _image_path;
- return _image_path;
- }
- string _if_images(string _linked_content) {
- if (_linked_content.match(rgx.inline_image_info)) {
- _linked_content = replaceAll!(m =>
- format(q"┃\includegraphics*[width=%spt]{%s}%s┃",
- _width_adjust(m[2]), _latex_image_path(m[1]), " \\\\\n")
- )(_linked_content, rgx.inline_image_info);
- }
- return _linked_content;
- }
- string _check_link(string _link) {
- _link = _link
- .replaceFirst(rgx.latex_clean_internal_link, "")
- .replaceAll(rgx.latex_special_char_for_escape_url, "\\$1");
- return _link;
- }
- if (obj.metainfo.is_a != "code") {
- _txt = replaceAll!(m =>
- m[1] ~ "┤" ~ to!string((obj.stow.link[m[2].to!ulong])).encode ~ "├"
- )(_txt, rgx.inline_link_number_only);
- _txt = replaceAll!(m =>
- ((m[1] == m[2]) && (m[2].match(rgx.uri)))
- ? format(q"┃\begin{scriptsize}\lefthalfcap\url{%s}\righthalfcup\end{scriptsize}┃", _check_link(m[1]))
- : (m[2].match(rgx.uri)) // ERROR
- ? format(q"┃%s\href{%s}%s{%s}┃", "\\\\\n", _check_link(m[2]), "\n", _if_images(m[1]))
- : format(q"┃\hyperlink{%s}{%s}┃", _check_link(m[2]), _if_images(m[1]))
- )(_txt, rgx.inline_link);
- }
- }
- return _txt;
-}
-#+END_SRC
-
-*** footnotes
-**** footnotes
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string footnotes()(
- string _txt,
-) {
- if (_txt.match(rgx.inline_notes_al_gen)) {
- string _tex_note = q"┃\hypertarget{noteref_%s}{}\footnote[%s]{%%
-\label{note_%s}%s}┃";
- _txt = _txt.replaceAll(rgx.inline_notes_al_regular_number_note,
- format(_tex_note,
- "$1", "$1", "$1",
- "$2".strip
- ).strip
- );
- }
- return _txt;
-}
-#+END_SRC
-
-**** footnote remove
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string remove_footnotes()(
- string _txt,
-) {
- if (_txt.match(rgx.inline_notes_al_gen)) {
- _txt = replaceAll!(m => "")(_txt, rgx.inline_notes_al_gen);
- }
- return _txt;
-}
-#+END_SRC
-
-*** para
-**** para
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string para(O)(
- string _txt,
- O obj,
-) {
- if (obj.metainfo.is_of_type == "para") {
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}%s┃";
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.footnotes
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-**** bookindex para
-
-#+name: output_latex_shared
-#+BEGIN_SRC d
-string bookindex(O)(
- string _txt,
- O obj,
-) {
- if (obj.metainfo.is_of_type == "para"
- && obj.metainfo.is_a == "bookindex"
- ) {
- string _tex_para;
- _tex_para = q"┃%s┃";
- _txt = format(_tex_para,
- _txt.replaceAll(rgx.latex_clean_bookindex_linebreak, "\n") ~ "\n\\\\\n"
- );
- }
- return _txt;
-}
-#+END_SRC
-
-*** bullets & indentation
-
-#+name: output_latex_head
-#+BEGIN_SRC d
-string bullets_and_indentation(O)(
- string _txt,
- O obj,
-) {
- string _tex_para;
- string _hang; string _indent;
- int _paper_margin = -10;
- int _indent_increment = 8; // 5; 10;
- if (obj.attrib.bullet) {
- int _bullet_space = 5;
- _indent = ((obj.attrib.indent_base * _indent_increment) + _paper_margin + _bullet_space).to!string;
- _txt = format(q"┃\begin{Bullet}{%smm}$\txtbullet$\hspace{\enspace}%s\end{Bullet}┃",
- _indent,
- _txt.footnotes
- ).strip;
- } else if (
- obj.attrib.indent_base != 0
- && obj.attrib.indent_base == obj.attrib.indent_hang
- ) {
- _indent = ((obj.attrib.indent_base * _indent_increment) + _paper_margin).to!string;
- _tex_para = q"┃\begin{ParagraphIndent}{%smm}%s \end{ParagraphIndent}┃";
- _txt = format(_tex_para,
- _indent,
- _txt.footnotes
- ).strip;
- } else if (
- obj.attrib.indent_base != 0
- || obj.attrib.indent_hang != 0
- ) {
- _indent = ((obj.attrib.indent_base * _indent_increment) + _paper_margin).to!string;
- _hang = (((obj.attrib.indent_hang - obj.attrib.indent_base) * _indent_increment)).to!string;
- _tex_para = q"┃\begin{ParagraphHang}{%smm}{%smm}%s \end{ParagraphHang}┃";
- _txt = format(_tex_para,
- _indent, _hang,
- _txt.footnotes
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-*** heading
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
- string heading(O,M)(
- string _txt,
- O obj,
- M doc_matters,
- string _part = ""
- ) {
- if (obj.metainfo.is_a == "heading") {
- string _tex_para;
- string _pg_break;
- string _sect;
- string _post;
- string _title_add;
- string _columns = "";
- switch (obj.metainfo.heading_lev_markup) {
- case 0: // A == TITLE
- _pg_break = "\\begin{document}\n";
- goto default;
- case 1: // B == part: section heading level
- _pg_break = "\\clearpage\n";
- goto default;
- case 2: // C == part: section heading level
- _pg_break = "\\clearpage\n";
- goto default;
- case 3: // D == part: section heading level
- _pg_break = "\\clearpage\n";
- goto default;
- case 4: // 1 == section
- _columns = (_part != "bookindex")
- ? "" : "\n\\\\\n\\begin{multicols}{2}";
- _pg_break = "\\clearpage\n";
- _sect = "section";
- _post = "";
- _title_add = format(q"┃
-\markboth{%s}{%s}┃",
- doc_matters.conf_make_meta.meta.title_full,
- doc_matters.conf_make_meta.meta.title_full,
- );
- goto default;
- case 5: // 2 == subsection
- _pg_break = "";
- // _pg_break = "newpage"; // doubt this is necessary
- _sect = "subsection";
- _post = " \\\n";
- _title_add = "";
- goto default;
- case 6: // 3 == subsubsection
- _pg_break = "";
- // _pg_break = "newpage"; // doubt this is necessary
- _sect = "subsubsection";
- _post = " \\\n";
- _title_add = "";
- goto default;
- default:
- if (obj.metainfo.heading_lev_markup == 0) {
- _tex_para = q"┃\begin{document}
-\title{%s}
-\author{ \textnormal{%s}}
-\date{\begin{tiny}%s\end{tiny}}
-\pagenumbering{roman}\maketitle
-\pagestyle{fancy}
-\newpage
-\markboth{%s}{%s}
-\\\\[3]\ \linebreak Copyright {\begin{small}{\copyright\end{small}} %s \\
-%s
-\pagestyle{fancy}
-\clearpage┃";
- _txt = format(_tex_para,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.creator_author).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.date_published).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_main).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.rights_copyright).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.rights_license).sp_char_esc_txt,
- );
- } else if (obj.metainfo.heading_lev_markup < 4) {
- _tex_para = q"┃%s\part*{\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}%s}
-\addcontentsline{toc}{part}{%s}
-\markboth{%s}┃";
- _txt = format(_tex_para,
- _pg_break,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.strip.footnotes,
- _txt.strip.remove_footnotes,
- (doc_matters.conf_make_meta.meta.title_main).sp_char_esc_txt,
- );
- } else if (obj.metainfo.heading_lev_markup > 3) {
- if (obj.metainfo.heading_lev_markup == 4
- && _txt.match(regex(r"^Table of Contents$"))) {
- _tex_para = q"┃
-\pagenumbering{none}
-\setcounter{page}{1}
-\setlength{\parskip}{1ex plus0.5ex minus0.2ex}
-\part*{\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{1}{1}\end{tiny}}}%s \newline %s}
-
-\clearpage
-\markboth{%s}{%s}
-\pagenumbering{gobble}
-\renewcommand{\contentsname}{}
-\tableofcontents
-\markboth{%s}{%s}
-
-\clearpage
-\pagenumbering{arabic}
-\setcounter{page}{1}
-\markboth{%s}{%s}
-%% \null
-\clearpage
-\setcounter{page}{1}┃";
- _txt = format(_tex_para,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.creator_author).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_main).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_main).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- (doc_matters.conf_make_meta.meta.title_full).sp_char_esc_txt,
- );
- } else if (obj.metainfo.heading_lev_markup == 4
- && _part == "bookindex"
- && _txt.match(regex(r"^Index$"))
- ) {
- _tex_para = q"┃%s\%s*{\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}%s}
-\addcontentsline{toc}{%s}{%s%s}%s%s┃";
- _txt = format(_tex_para,
- _pg_break,
- _sect.strip,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.footnotes.strip,
- _sect,
- _txt.remove_footnotes.strip,
- _post,
- _title_add,
- _columns,
- );
- } else if (obj.metainfo.dummy_heading
- && obj.metainfo.heading_lev_markup == 4
- ) { /+ dummy headings completely omitted +/
- _txt = "";
- } else {
- _tex_para = q"┃%s\%s*{\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}%s}
-\addcontentsline{toc}{%s}{%s%s}%s┃";
- _txt = format(_tex_para,
- _pg_break,
- _sect.strip,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.footnotes.strip,
- _sect,
- _txt.remove_footnotes.strip,
- _post,
- _title_add,
- );
- }
- }
- break;
- }
- }
- return _txt.strip;
- }
-#+END_SRC
-
-*** grouped text
-**** group
-
-- (hardspace not honored) clear hardspace marker
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-string group(O,M)(
- string _txt,
- O obj,
- M doc_matters,
-) {
- if (obj.metainfo.is_a == "group") {
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}\setlength{\parskip}{0.5ex plus0.2ex minus0.1ex}
-\begin{footnotesize}
-%s
-\end{footnotesize}
-┃";
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.footnotes.strip
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-**** block
-
-- (hardspace honored) \hardspace
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-string block(O,M)(
- string _txt,
- O obj,
- M doc_matters,
-) {
- if (obj.metainfo.is_a == "block") {
- // _txt = _txt.nbsp_char;
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}\setlength{\parskip}{0.5ex plus0.2ex minus0.1ex}
-\begin{footnotesize}
-%s
-\end{footnotesize}
-\setlength{\parskip}{1ex plus0.5ex minus0.2ex}
-┃"; // \hardspace
- /+ try both: +/
- _txt = _txt.split(rgx.br_newlines_linebreaks).join("\n\n"); // _txt = _txt.split(rgx.br_newlines_linebreaks).join(" \\\n");
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.nbsp_char.footnotes.strip
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-**** verse
-
-- (hardspace honored) \hardspace
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-string verse(O,M)(
- string _txt,
- O obj,
- M doc_matters,
-) {
- if (obj.metainfo.is_a == "verse") {
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}\setlength{\parskip}{0.1ex plus0.1ex minus0.1ex}
-\begin{footnotesize}
-
-%s
-
-\end{footnotesize}
-\setlength{\parskip}{1ex plus0.5ex minus0.2ex}
-\linebreak
-┃"; // \hardspace
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.nbsp_char.footnotes.split("\n").join("\n\n").strip
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-**** codeblock
-
-- (hardspace honored) \begin{lstlisting} clear hardspace marker
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-string codeblock(O,M)(
- string _txt,
- O obj,
- M doc_matters,
-) {
- if (obj.metainfo.is_a == "code") {
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}\setlength{\parskip}{0.5ex plus0.2ex minus0.1ex}\begin{Codeblock}
-\begin{lstlisting}
-%s
-\end{lstlisting}
-\end{Codeblock}
-\setlength{\parskip}{1ex plus0.5ex minus0.2ex}
-┃";
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _txt.nbsp_char_to_space
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-**** table
-
-- own set of rules
-
-***** tablarize
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-auto tablarize(O)(
- string _txt,
- const O obj,
-) {
- 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 {
- // // _table ~= "\\bfseries ";
- // _table ~= cell;
- // _table ~= (_table_cols.length > (col_idx + 1)) ? "&" : "";
- _table ~= format(q"┃%s%s┃",
- cell,
- (_table_cols.length > (col_idx + 1)) ? "&" : ""
- );
- }
- }
- _table ~= "\\\\";
- }
- auto t = tuple(
- _table,
- _tablenote,
- );
- return t;
-}
-#+END_SRC
-
-***** table
-
-#+name: output_latex_shared_0
-#+BEGIN_SRC d
-string table(O,M)(
- string _txt,
- O obj,
- M doc_matters,
-) {
- if (obj.metainfo.is_a == "table") {
- auto _t = _txt.tablarize(obj);
- string _table = _t[0];
- string _t_n = _t[1];
- string papertype = "a4";
- uint pw = 0;
- switch (papertype) {
- case "a4": pw = (paper.a4.portrait.w - 20); break;
- case "a5": pw = (paper.a5.portrait.w - 20); break;
- case "b4": pw = (paper.b4.portrait.w - 20); break;
- case "letter": pw = (paper.letter.portrait.w - 20); break;
- case "legal": pw = (paper.legal.portrait.w - 20); break;
- default: pw = 0; break;
- }
- // auto textwidth = (pw - 24);
- string _colw = "";
- foreach (w; obj.table.column_widths) {
- _colw ~= format(q"┃p{%.0fmm}┃",
- (w * pw / 100)
- // (w * (pw - 24)/ 100)
- // (w * textwidth / 100)
- );
- }
- string _tex_para;
- _tex_para = q"┃\begin{tiny}\hspace{0mm}\end{tiny}{\marginpar{\begin{tiny}\hspace{0mm}\hypertarget{%s}{%s}\end{tiny}}}
-\setlength{\LTleft}{0pt}
-\setlength{\LTright}{\fill}
-\begin{tiny}
-\begin{longtable}{%s}
-%s
-\end{longtable}
-\end{tiny}
-┃";
- _txt = format(_tex_para,
- obj.metainfo.object_number,
- obj.metainfo.object_number,
- _colw,
- _table,
- ).strip;
- }
- return _txt;
-}
-#+END_SRC
-
-** latex parts
-*** latex head :head:
-**** latex head function
-
-#+name: output_latex_head
-#+BEGIN_SRC d
-string latex_head(M)(
- M doc_matters,
-) {
-#+END_SRC
-
-**** latex head options
-***** paper type dimensions
-****** struct
-
-#+name: output_latex_head
-#+BEGIN_SRC d
- struct paperType {
- string a4_portrait;
- string a4_landscape;
- string us_letter_portrait;
- string us_letter_landscape;
- }
- auto paper = paperType();
-#+END_SRC
-
-****** footer
-
-#+name: output_latex_head
-#+BEGIN_SRC d
- string _footer(M)(M doc_matters) {
- string _ft = "\\lfoot[\\textrm{\\thepage}]";
- string _ft_1 = format(q"┃{\tiny \href{%s}{%s}}┃", "http://sisudoc.org", "SiSU",);
- string _ft_2 = format(q"┃
-\cfoot{\href{%s}{%s}}┃", "http://git.sisudoc.org", "git",);
- if (doc_matters.conf_make_meta.make.footer.length > 0) {
- if (doc_matters.conf_make_meta.make.footer.length > 0) {
- if (doc_matters.conf_make_meta.make.footer[0].matchAll(rgx.inline_link)) {
- _ft ~= doc_matters.conf_make_meta.make.footer[0]
- .replace(rgx.inline_link, "{\\tiny \\href{$2}{$1}}");
- } else {
- _ft ~= _ft_1;
- }
- }
- if (doc_matters.conf_make_meta.make.footer.length > 1) {
- if (doc_matters.conf_make_meta.make.footer[1].matchAll(rgx.inline_link)) {
- _ft ~= doc_matters.conf_make_meta.make.footer[1]
- .replace(rgx.inline_link, "\n\\cfoot{\\href{$2}{$1}}");
- } else {
- _ft ~= _ft_2;
- }
- }
- } else {
- _ft ~= _ft_1;
- _ft ~= _ft_2;
- }
- return _ft;
- }
-#+END_SRC
-
-****** a4, portrait
-
-#+name: output_latex_head_1_format_string
-#+BEGIN_SRC d
- paper.a4_portrait = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\documentclass[12pt,a4paper,titlepage]{scrartcl}
-\setlength{\textheight}{228mm} \setlength{\textwidth}{160mm}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** a4, landscape
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- paper.a4_landscape = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\documentclass[11pt,a4paper,landscape,titlepage,twocolumn]{scrartcl}
-\setlength{\textheight}{160mm} \setlength{\textwidth}{238mm}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** us letter, portrait
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- paper.us_letter_portrait = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\documentclass[12pt,letterpaper,titlepage]{scrartcl}
-\setlength{\textheight}{212mm} \setlength{\textwidth}{166mm}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** us letter, landscape
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- paper.us_letter_landscape = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\documentclass[11pt,letterpaper,landscape,titlepage,twocolumn]{scrartcl}
-\setlength{\textheight}{166mm} \setlength{\textwidth}{226mm}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-***** paper margins
-****** struct
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- struct paperMargins {
- string portrait;
- string landscape;
- }
- auto margins = paperMargins();
-#+END_SRC
-
-****** portrait
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- margins.portrait = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\setlength{\oddsidemargin}{0mm} \setlength{\evensidemargin}{0mm}
-\setlength{\topmargin}{-12pt} \setlength{\headheight}{12pt}
-\setlength{\headsep}{35pt}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** landscape
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- margins.landscape = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\setlength{\oddsidemargin}{6mm} \setlength{\evensidemargin}{6mm}
-\setlength{\topmargin}{-12mm} \setlength{\headheight}{12pt}
-\setlength{\headsep}{20pt}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-***** multicol
-****** struct
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- struct columnsMulti {
- string portrait;
- string landscape;
- }
- auto multicol = columnsMulti();
-#+END_SRC
-
-****** portrait
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- multicol.portrait = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\usepackage{multicol}
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** landscape
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- multicol.landscape = "";
-#+END_SRC
-
-***** color links
-****** struct
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- struct colorLinks {
- string mono;
- string color;
- }
- auto links = colorLinks();
-#+END_SRC
-
-****** mono
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- links.mono = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\usepackage[xetex,
- colorlinks=true,
- urlcolor=myblack,
- filecolor=myblack,
- linkcolor=myblack,
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-****** color
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC d
- links.color = format(q"┃
-#+END_SRC
-
-#+name: output_latex_head_1_tex
-#+BEGIN_SRC latex
-\usepackage[xetex,
- colorlinks=true,
- urlcolor=myblue, %% \href{...}{...} external url
- filecolor=mygreen, %% \href{...} local file
- linkcolor=myred, %% \href{...} and \pageref{...}
-#+END_SRC
-
-#+name: output_latex_head_1_format_string_variables
-#+BEGIN_SRC d
-┃",
- );
-#+END_SRC
-
-**** latex head starts
-
-#+name: output_latex_head_0_format_string
-#+BEGIN_SRC d
- string _latex_head = format(q"┃%%%% DocReform LaTeX output
-#+END_SRC
-
-***** description comment
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-%%%% Generated by: %s
-%%%% D version: %s
-%%%% LaTeX output last Generated on: %s
-%%%% %s %s
-
-#+END_SRC
-
-***** paper type (a4, letter, ...; ( portrait | landscape ))
-
-- paper.a4_portrait
-- paper.a4_landscape
-- paper.us_letter_portrait
-- paper.us_letter_landscape
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-%s
-#+END_SRC
-
-***** paper margins (portrait | landscape)
-
-- margins.portrait
-- margins.landscape
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-%s
-#+END_SRC
-
-***** margin shared
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\setlength{\marginparsep}{4mm}
-\setlength{\marginparwidth}{8mm}
-#+END_SRC
-
-***** multicol (portrait | landscape)
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-%s
-#+END_SRC
-
-***** language & font
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage{polyglossia, ucs, fontspec, xltxtra, xunicode}
-\setmainlanguage{%s}
-\setotherlanguage{%s}
-\setmainfont{Liberation Sans}
-\setmonofont[Scale=0.85]{Liberation Mono}
-#+END_SRC
-
-%% \setsansfont{Liberation Sans}
-%% \setromanfont{Liberation Serif}
-
-***** latex head
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage{alltt}
-\usepackage{thumbpdf}
-#+END_SRC
-
-***** color links: no = mono | yes = color
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-%s
-#+END_SRC
-
-***** metadata
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
- pdftitle={%s},
- pdfauthor={%s},
- pdfsubject={%s},
- pdfkeywords={},
- pageanchor=true,
- plainpages=true,
- pdfpagelabels=true,
- pagebackref,
- bookmarks=true,
- bookmarksopen=true,
- pdfmenubar=true,
- pdfpagemode=UseOutline,
- pdffitwindow=true,
- pdfwindowui=true,
- plainpages=false,
- pdfstartview=FitH
-]
-{hyperref}
-#+END_SRC
-
-%% pdfusetitle=true,
-%% pdfpagelayout=SinglePage,
-%% pdfpagelayout=TwoColumnRight,
-%% pdfpagelayout=TwoColumnLeft,
-%% pdfstartpage=3,
-
-%%%% trace lost characters
-%% \tracinglostchars = 1
-%% \tracingonline = 1
-
-***** define colors
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage[usenames]{color}
-\definecolor{myblack}{rgb}{0,0,0}
-\definecolor{myred}{rgb}{0.75,0,0}
-\definecolor{mygreen}{rgb}{0,0.5,0}
-\definecolor{myblue}{rgb}{0,0,0.5}
-\definecolor{mywhite}{rgb}{1,1,1}
-#+END_SRC
-
-***** latex head
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage{url}
-\urlstyle{sf}
-#+END_SRC
-
-%%\usepackage{breakurl}
-
-***** latex head
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage{textcomp}
-\usepackage[parfill]{parskip}
-\usepackage[normalem]{ulem}
-\usepackage{soul}
-\usepackage{longtable}
-\usepackage[tc]{titlepic}
-\usepackage{graphicx}
-\makeatletter
-\parindent0pt
-\usepackage{amssymb}
-\usepackage{listings}
-\usepackage{color}
-\usepackage{textcomp}
-\setcounter{secnumdepth}{2}
-\setcounter{tocdepth}{4}
-\makeatletter
-#+END_SRC
-
-***** indent, bullet, list
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage[multiple,ragged]{footmisc}
-\setlength\footnotemargin{12pt}
-\usepackage[para]{manyfoot}
-\DeclareNewFootnote{A}
-\newenvironment{ParagraphIndent}[1]%%
-{
-\begin{list}{}{%%
-\setlength\topsep{0pt}%%
-\addtolength{\leftmargin}{#1}
-\setlength\parsep{0pt plus 1pt}%%
-}
-\item[]
-}
-{\end{list}}
-\newenvironment{ParagraphHang}[2]%%
-{
-\begin{list}{}{%%
-\setlength\topsep{0pt}%%
-\addtolength{\leftmargin}{#1}
-\itemindent=#2
-\setlength\parsep{0pt plus 1pt}%%
-}
-\item[]
-}
-{\end{list}}
-\newenvironment{Bullet}[1]%%
-{
-\begin{list}{}{%%
-\setlength\topsep{0pt}%%
-\addtolength{\leftmargin}{#1}
-\itemindent=-1em
-\setlength\parsep{0pt plus 1pt}%%
-}
-\item[]
-}
-{\end{list}}
-#+END_SRC
-
-%%\DeclareNewFootnote[para]{A}
-
-***** part, section, subsection, paragraph, subparagraph
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\usepackage{fancyhdr}
-\lhead{}
-\renewcommand{\part}{\@startsection
- {part}{1}{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\bfseries\large\upshape\raggedright}}
-\renewcommand{\section}{\@startsection
- {section}{2}{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\bfseries\large\upshape\raggedright}}
-\renewcommand{\subsection}{\@startsection
- {subsection}{3}{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\bfseries\large\upshape\raggedright}}
-\renewcommand{\subsubsection}{\@startsection
- {subsubsection}{4}{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\normalfont\normalsize\bfseries\raggedright}}
-\renewcommand{\paragraph}{\@startsection
- {paragraph}{5}{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\normalfont\normalsize\itshape\raggedright}}
-\renewcommand{\subparagraph}{\@startsection
- {subparagraph}%%{6}%%{-2mm}%%
- {-\baselineskip}{0.5\baselineskip}%%
- {\normalfont\normalsize\itshape\raggedright}}
-#+END_SRC
-
-%% \makeatother
-
-***** latex head misc. including defined commands
-
-#+name: output_latex_head_0_tex
-#+BEGIN_SRC latex
-\selectlanguage{%s}
-\lhead[ ]{ }
-\chead[ \fancyplain{} \bfseries \footnotesize \leftmark ]{ \fancyplain{} \bfseries \footnotesize \rightmark }
-\rhead[ ]{ }
-%s
-\rfoot[\tiny \href{}{}]{\textrm{\thepage}}
-\tolerance=300
-\clubpenalty=300
-\widowpenalty=300
-\makeatother
-\makeatother
-\chardef\txtbullet="2022
-\chardef\tilde="7E
-\def\asterisk{{\rm \char42} }
-\definecolor{Light}{gray}{.92}
-\newcommand{\Codeblock}[1]{\normaltext\raggedright\small\ttfamily\texbackslash#1}
-\newcommand{\monosp}[1]{\normaltext\ttfamily\texbackslash#1}
-\newcommand{\parasep}{\\ \begin{center}*\hspace{2em}*\hspace{2em}*\end{center} \\}
-\newcommand{\hardspace}{{~}}
-\newcommand{\caret}{{\^{~}}}
-\newcommand{\pipe}{{\textbar}}
-\newcommand{\curlyopen}{{}
-\newcommand{\curlyclose}{}}
-\newcommand{\lt}{{UseTextSymbol{OML}{<}}}
-\newcommand{\gt}{{UseTextSymbol{OML}{>}}}
-\newcommand{\slash}{{/}}
-\newcommand{\underscore}{\_}
-\newcommand{\exclaim}{\Verbatim{!}}
-\definecolor{listinggray}{gray}{0.9}
-\definecolor{lbcolor}{rgb}{0.9,0.9,0.9}
-\lstset{
- backgroundcolor=\color{lbcolor},
- tabsize=4,
- rulecolor=,
- language=,
- basicstyle=\scriptsize,
- upquote=true,
- aboveskip={1.5\baselineskip},
- columns=fixed,
- showstringspaces=false,
- extendedchars=true,
- breaklines=true,
- prebreak = \raisebox{0ex}[0ex][0ex]{\ensuremath{\hookleftarrow}},
- frame=single,
- showtabs=false,
- showspaces=false,
- showstringspaces=false,
- identifierstyle=\ttfamily,
- keywordstyle=\color[rgb]{0,0,1},
- commentstyle=\color[rgb]{0.133,0.545,0.133},
- stringstyle=\color[rgb]{0.627,0.126,0.941},
-}
-#+END_SRC
-
-%%\chardef\asterisk="2A
-%%\newcommand{\hardspace}{\hspace{.5em}}
-
-**** latex head format inclusions
-
-#+name: output_latex_head_0_format_string_variables
-#+BEGIN_SRC d
-┃",
- doc_matters.opt.action.debug_do ? "" : doc_matters.generator_program.name_and_version.strip,
- doc_matters.opt.action.debug_do ? "" : doc_matters.generator_program.compiler.strip,
- doc_matters.opt.action.debug_do ? "" : doc_matters.generator_program.stime.strip,
- doc_matters.generator_program.project_name.strip,
- doc_matters.generator_program.url_home.strip,
- paper.a4_portrait.strip,
- margins.portrait.strip,
- multicol.portrait.strip,
- lang.codes[doc_matters.src.language]["xlp"],
- "english",
- links.mono.strip, // links.color.strip,
- doc_matters.conf_make_meta.meta.title_full.strip,
- doc_matters.conf_make_meta.meta.creator_author.strip,
- doc_matters.conf_make_meta.meta.classify_subject.strip,
- lang.codes[doc_matters.src.language]["xlp"],
- _footer(doc_matters),
-);
-#+END_SRC
-
-**** latex head return
-
-#+name: output_latex_head_close
-#+BEGIN_SRC d
- return _latex_head.strip;
-}
-#+END_SRC
-
-*** ↻ latex body :content:body:
-**** latex body function
-
-#+name: output_latex_body
-#+BEGIN_SRC d
-string latex_body(D,M)(
- const D doc_abstraction,
- M doc_matters,
-) {
- string _latex_body = "";
- bool _multicolumns = false;
- string _txt;
-#+END_SRC
-
-**** ↻ loop open
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- foreach (part; doc_matters.has.keys_seq.latex) {
- foreach (obj; doc_abstraction[part]) {
- switch (obj.metainfo.is_of_part) {
-#+END_SRC
-
-**** ↻ within loop
-***** frontmatter
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- case "frontmatter": assert(part == "head" || "toc");
- _txt = obj.text
- .sp_char_esc(obj)
- .fontface;
- switch (obj.metainfo.is_of_type) {
- case "para":
- switch (obj.metainfo.is_a) {
- case "heading":
- _txt = _txt.heading(obj, doc_matters);
- goto default;
- case "toc":
- break;
- default:
- _latex_body ~= _txt ~ "\n\n";
- _txt = "";
- break;
- }
- break;
- default: break;
- }
- break;
-#+END_SRC
-
-***** body
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- case "body": assert(part == "body" || "head"); // surprise
- _txt = obj.text
- .sp_char_esc(obj)
- .fontface;
- switch (obj.metainfo.is_of_type) {
- case "para":
- switch (obj.metainfo.is_a) {
- case "heading":
- _txt = _txt.heading(obj, doc_matters);
- goto default;
- case "para":
- _txt = _txt.para(obj)
- .bullets_and_indentation(obj)
- .links_and_images(obj, doc_matters);
- goto default;
- default:
- _latex_body ~= _txt ~ "\n\n";
- _txt = "";
- break;
- }
- break;
- case "block":
- switch (obj.metainfo.is_a) {
- case "quote":
- goto default; // TODO
- case "group":
- /+ (hardspaces not honored) [remove any hardspace marker] +/
- _txt = _txt.group(obj, doc_matters)
- .links_and_images(obj, doc_matters);
- goto default;
- case "block":
- /+ (hardspace honored) \hardspace +/
- _txt = _txt.block(obj, doc_matters)
- .links_and_images(obj, doc_matters);
- goto default;
- case "verse":
- /+ (hardspace honored) \hardspace +/
- _txt = _txt.verse(obj, doc_matters)
- .links_and_images(obj, doc_matters);
- goto default;
- case "code":
- /+ (hardspace honored) \begin{lstlisting} clear hardspace marker +/
- _txt = _txt.codeblock(obj, doc_matters);
- goto default;
- case "table":
- _txt = _txt.table(obj, doc_matters);
- goto default; // TODO
- default:
- _latex_body ~= _txt ~ "\n\n";
- _txt = "";
- break;
- }
- break;
- default: break;
- }
- break;
-#+END_SRC
-
-***** backmatter
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- case "backmatter":
- assert(part == "endnotes" || "glossary" || "bibliography" || "bookindex" || "blurb" || "tail");
- _txt = obj.text
- .sp_char_esc(obj)
- .fontface;
- switch (obj.metainfo.is_of_type) {
- case "para":
- if (part != "bookindex" && _multicolumns) {
- _multicolumns = false;
- _latex_body ~= "\n\\end{multicols}\n";
- }
- switch (obj.metainfo.is_a) {
- case "heading":
- if (part == "bookindex") {
- _multicolumns = true;
- }
- _txt = _txt.heading(obj, doc_matters, part);
- goto default;
- case "endnote": assert(part == "endnotes");
- _txt = _txt.para(obj)
- .bullets_and_indentation(obj)
- .links_and_images(obj, doc_matters);
- goto default;
- case "glossary": assert(part == "glossary");
- _txt = _txt.para(obj)
- .bullets_and_indentation(obj)
- .links_and_images(obj, doc_matters);
- goto default;
- case "bibliography": assert(part == "bibliography");
- _txt = _txt.para(obj)
- .bullets_and_indentation(obj);
- goto default;
- case "bookindex": assert(part == "bookindex");
- /+ two column, special section +/
- _txt = _txt.bookindex(obj)
- .links_and_images(obj, doc_matters);
- goto default;
- case "blurb": assert(part == "blurb");
- _txt = _txt.para(obj)
- .bullets_and_indentation(obj)
- .links_and_images(obj, doc_matters);
- goto default;
- default:
- _latex_body ~= (part == "bookindex" && obj.metainfo.is_a != "heading")
- ? _txt : (_txt ~ "\n\n");
- _txt = "";
- break;
- }
- break;
- default: break;
- }
- break;
-#+END_SRC
-
-***** after
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- case "comment":
- break;
- default:
- { /+ debug +/
- if (doc_matters.opt.action.debug_do
- && doc_matters.opt.action.verbose) {
- writeln(__FILE__, ":", __LINE__, ": ", obj.metainfo.is_of_part);
- writeln(__FILE__, ":", __LINE__, ": ", obj.metainfo.is_a);
- writeln(__FILE__, ":", __LINE__, ": ", obj.text);
- }
- }
- break;
- }
- }
- }
- if (_multicolumns) {
- _multicolumns = false;
- _latex_body ~= "\n\\end{multicols}\n";
- }
-#+END_SRC
-
-**** latex body return
-
-#+name: output_latex_body
-#+BEGIN_SRC d
- return _latex_body;
-}
-#+END_SRC
-
-*** latex tail :tail:
-**** latex tail function
-
-#+name: output_latex_tail
-#+BEGIN_SRC d
-string latex_tail(M)(
- M doc_matters,
-) {
-#+END_SRC
-
-**** latex tail starts
-
-#+name: output_latex_tail
-#+BEGIN_SRC d
- string _latex_tail = format(q"┃
-#+END_SRC
-
-***** latex tail format inclusions
-
-
-***** latex document end
-
-#+name: output_latex_tail_tex
-#+BEGIN_SRC latex
-
-\end{document}
-#+END_SRC
-
-**** latex tail format inclusions
-
-#+name: output_latex_tail_close
-#+BEGIN_SRC d
-┃",
- // doc_matters.conf_make_meta.meta.title_full,
- // doc_matters.conf_make_meta.meta.creator_author,
-);
-#+END_SRC
-
-**** latex tail return
-
-#+name: output_latex_tail_close
-#+BEGIN_SRC d
- return _latex_tail;
-}
-#+END_SRC
-
-* latex system command helper script
-** latex command, ruby script
-
-#+BEGIN_SRC ruby :tangle "../util/dr_tex.rb" :tangle-mode (identity #o755) :shebang #!/usr/bin/env ruby
-require 'fileutils'
-pwd = Dir.pwd
-argv,texfiles_with_path,flags=[],[],[]
-lngs = %{(am|bg|bn|br|ca|cs|cy|da|de|el|en|eo|es|et|eu|fi|fr|ga|gl|he|hi|hr|hy|ia|is|it|ja|ko|la|lo|lt|lv|ml|mr|nl|no|nn|oc|pl|pt|pt_BR|ro|ru|sa|se|sk|sl|sq|sr|sv|ta|te|th|tk|tr|uk|ur|vi|zh)}
-Regexp.new(lngs, Regexp::IGNORECASE)
-argv=$*
-argv.sort.each{|y| (y =~/^--\S+$/i) ? (flags << y) : (texfiles_with_path << y) }
-if flags.length==0 \
-|| flags.inspect =~/"--help"/
- cmd=(/([^\/]+)$/).match($0)[1]
- puts <<WOK
-#{cmd} --help
-#{cmd} --out=[output path]
-#{cmd} --paper-size=a5 --out=~/test
-WOK
-end
-paper_size = (flags.inspect.match(/"--paper-size=(a4|a5|b5|letter|legal)"/)) ? $1 : "a4"
-out_path = Dir.pwd
-if (flags.inspect.match(/"--out=\S+"/))
- out_path = flags.inspect.match(/"--out=(\S+)"/)[1]
- unless (FileTest.directory?(out_path))
- puts "Creating output directory: --out=#{out_path}"
- FileUtils::mkdir_p(out_path)
- unless (FileTest.directory?(out_path))
- puts "FAILS unable to create directory: #{out_path}"
- exit
- end
- end
-end
-if texfiles_with_path.length == 0
- texfiles_with_path=Dir.glob('*.tex')
-end
-if texfiles_with_path.length > 0
- texfiles_with_path.each do |texfile_with_path|
- if texfile_with_path =~/.+\.tex/
- #puts texfile_with_path
- if FileTest.file?(texfile_with_path)
- file_basename_with_path = texfile_with_path.sub(/\.tex$/,'')
- file_basename = file_basename_with_path.sub(/.*?([^\/]+)$/,'\1')
- _out_path = out_path
- if file_basename =~ /\.#{lngs}$/
- lng = file_basename.match(/\.#{lngs}$/)[1]
- puts file_basename
- puts lng
- puts _out_path
- unless _out_path.match(/\/#{lng}\/pdf$/)
- _out_path = "#{out_path}/#{lng}/pdf"
- FileUtils::mkdir_p(_out_path)
- end
- end
- texpdf_cmd = %{xetex -interaction=batchmode -fmt=xelatex -papersize=#{paper_size} #{texfile_with_path}\n}
- puts texpdf_cmd
- 2.times { |i| system(texpdf_cmd) }
- if (FileTest.file?(%{#{pwd}/#{file_basename}.pdf})) && (FileTest.directory?(_out_path))
- FileUtils::Verbose::mv(%{#{pwd}/#{file_basename}.pdf}, %{#{_out_path}/#{file_basename}.pdf})
- puts (%{#{_out_path}/#{file_basename}.pdf})
- else
- puts "issue with pdf file or output directory"
- puts "pdf file: #{pwd}/#{file_basename}.pdf}"
- puts "output dir: #{_out_path}/"
- end
- suffix = ['log', 'out', 'toc', 'aux']
- suffix.each { |s| FileUtils::rm_f(%{#{pwd}/#{file_basename}.#{s}})}
- end
- end
- end
-end
-Dir.chdir(pwd)
-__END__
-#+END_SRC
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-04 10:33:47 +0000