From 69c9a85008a58e74846e6e22420f3ecb2e840d32 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph.amissah@gmail.com>
Date: Fri, 28 Sep 2018 21:07:50 -0400
Subject: output xmls, work on internal links

---
 org/output_xmls.org | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'org/output_xmls.org')

diff --git a/org/output_xmls.org b/org/output_xmls.org
index 7a4338e..441ed95 100644
--- a/org/output_xmls.org
+++ b/org/output_xmls.org
@@ -464,6 +464,18 @@ auto inline_links(M,O)(
         rgx.inline_seg_link,
         "$1");
     }
+    if (_xml_type == "seg" || _xml_type == "epub") {
+      if (auto m = _txt.match(rgx.inline_link_hash)) {
+        foreach (segname; doc_matters.xml.segnames) {
+          if (auto n = segname.match(m.captures[3])) {
+            _txt = _txt.replaceFirst(
+              rgx.inline_link_hash,
+              "┥$1┝┤$3" ~ _suffix ~ "├");
+            break;
+          }
+        }
+      }
+    }
     _txt = (_txt)
       .replaceAll(
         rgx.inline_link_fn_suffix,
@@ -752,7 +764,7 @@ auto heading(M,O)(
   if (obj.metainfo.object_number.empty) {
     o = format(q"¶%s
   <div class="substance">
-    <h%s class="%s">%s
+    <h%s class="%s">%s<a name="%s"></a>
       %s
     </h%s>
   </div>¶",
@@ -760,6 +772,7 @@ auto heading(M,O)(
       obj.metainfo.heading_lev_markup,
       obj.metainfo.is_a,
       tags,
+      obj.tags.segment_anchor_tag,
       _txt,
       obj.metainfo.heading_lev_markup,
     );
@@ -767,7 +780,7 @@ auto heading(M,O)(
     o = format(q"¶%s
   <div class="substance">
     <label class="ocn"><a href="#%s" class="lnkocn">%s</a></label>
-    <h%s class="%s" id="%s"><a name="%s"></a>%s
+    <h%s class="%s" id="%s"><a name="%s"></a>%s<a name="%s"></a>
       %s
     </h%s>
   </div>¶",
@@ -779,6 +792,7 @@ auto heading(M,O)(
     obj.metainfo.object_number,
     obj.metainfo.object_number,
     tags,
+    obj.tags.segment_anchor_tag,
     _txt,
     obj.metainfo.heading_lev_markup,
     );
-- 
cgit v1.2.3