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

---
 org/out_xmls.org | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'org/out_xmls.org')

diff --git a/org/out_xmls.org b/org/out_xmls.org
index 54b40aa..e875330 100644
--- a/org/out_xmls.org
+++ b/org/out_xmls.org
@@ -756,6 +756,9 @@ auto nav_pre_next_svg(O,M)(
                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 = "";
@@ -796,6 +799,7 @@ auto nav_pre_next_svg(O,M)(
     );
   }
   string _toc_pre_next = format(q"┃        <div class="flex-menu-option">
+      %s
       <div class="nav-bar">
         %s
         %s
@@ -804,11 +808,13 @@ auto nav_pre_next_svg(O,M)(
     </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
@@ -816,6 +822,7 @@ auto nav_pre_next_svg(O,M)(
     </div>
   </div>
 </div>┃",
+    harvest_link,
     prev,
     next,
   );
-- 
cgit v1.2.3