From 2d5d871e51692c30e26c1500fc38879857a754de Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph.amissah@gmail.com>
Date: Tue, 19 Nov 2019 14:34:12 -0500
Subject: segmented html harvest links cli option

---
 src/doc_reform/io_out/xmls.d | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/doc_reform/io_out/xmls.d')

diff --git a/src/doc_reform/io_out/xmls.d b/src/doc_reform/io_out/xmls.d
index a906d89..a88dced 100644
--- a/src/doc_reform/io_out/xmls.d
+++ b/src/doc_reform/io_out/xmls.d
@@ -599,6 +599,9 @@ template outputXHTMLs() {
                    M  doc_matters,
     ) {
       string prev, next, toc;
+      string harvest_link = (doc_matters.opt.action.harvest_link)
+      ? format(q"┃<p class="tiny">[<a href="../../../topics.html">&nbsp;T&nbsp;</a>|<a href="../../../authors.html">&nbsp;A&nbsp;</a>]</p>┃")
+      : "";
       if (obj.tags.segment_anchor_tag_epub == "toc") {
         toc = "";
         prev = "";
@@ -639,6 +642,7 @@ template outputXHTMLs() {
         );
       }
       string _toc_pre_next = format(q"┃        <div class="flex-menu-option">
+          %s
           <div class="nav-bar">
             %s
             %s
@@ -647,11 +651,13 @@ template outputXHTMLs() {
         </div>
       </div>
     </div>┃",
+        harvest_link,
         toc,
         prev,
         next,
       );
       string _pre_next = format(q"┃        <div class="flex-menu-option">
+          %s
           <div class="nav-bar">
             %s
             %s
@@ -659,6 +665,7 @@ template outputXHTMLs() {
         </div>
       </div>
     </div>┃",
+        harvest_link,
         prev,
         next,
       );
-- 
cgit v1.2.3