From 78deb546af616c0a664a8acb4d6e33d3e5a7060c Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph.amissah@gmail.com>
Date: Thu, 12 Dec 2019 13:07:13 -0500
Subject: harvest topics, name hashtag level names

---
 org/out_harvest_metadata.org                  | 9 ++++++---
 src/doc_reform/meta/metadoc_harvests_topics.d | 9 ++++++---
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/org/out_harvest_metadata.org b/org/out_harvest_metadata.org
index 35b48e9..ebea75a 100644
--- a/org/out_harvest_metadata.org
+++ b/org/out_harvest_metadata.org
@@ -292,7 +292,8 @@ foreach(k0;
       .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
     ) {
       if (k1 != "_a") {
-        topics ~= format(q"┃<p class="lev1"><a name="%s" class="lev1">%s</a></p>┃",
+        topics ~= format(q"┃<p class="lev1"><a name="%s.%s" class="lev1">%s</a></p>┃",
+          k0.translate([' ' : "_"]),
           k1.translate([' ' : "_"]), k1,) ~ "\n";
         if (_opt_action.very_verbose) {
           writeln("  ", k1);
@@ -332,7 +333,8 @@ foreach(k0;
         .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
       ) {
         if (k2 != "_a") {
-          topics ~= format(q"┃<p class="lev2"><a name="%s" class="lev2">%s</a></p>┃",
+          topics ~= format(q"┃<p class="lev2"><a name="%s.%s.%s" class="lev2">%s</a></p>┃",
+            k0.translate([' ' : "_"]), k1.translate([' ' : "_"]),
             k2.translate([' ' : "_"]), k2,) ~ "\n";
           if (_opt_action.very_verbose) {
             writeln("    ", k2);
@@ -372,7 +374,8 @@ foreach(k0;
           .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
         ) {
           if (k3 != "_a") {
-            topics ~= format(q"┃<p class="lev3"><a name="%s" class="lev3">%s</a></p>┃",
+            topics ~= format(q"┃<p class="lev3"><a name="%s.%s.%s.%s" class="lev3">%s</a></p>┃",
+              k0.translate([' ' : "_"]), k1.translate([' ' : "_"]), k2.translate([' ' : "_"]),
               k3.translate([' ' : "_"]), k3,) ~ "\n";
             if (_opt_action.very_verbose) {
               writeln("      ", k3);
diff --git a/src/doc_reform/meta/metadoc_harvests_topics.d b/src/doc_reform/meta/metadoc_harvests_topics.d
index 7c7efc3..82601fc 100644
--- a/src/doc_reform/meta/metadoc_harvests_topics.d
+++ b/src/doc_reform/meta/metadoc_harvests_topics.d
@@ -374,7 +374,8 @@ string theme_light_1 = format(q"┃
             .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
           ) {
             if (k1 != "_a") {
-              topics ~= format(q"┃<p class="lev1"><a name="%s" class="lev1">%s</a></p>┃",
+              topics ~= format(q"┃<p class="lev1"><a name="%s.%s" class="lev1">%s</a></p>┃",
+                k0.translate([' ' : "_"]),
                 k1.translate([' ' : "_"]), k1,) ~ "\n";
               if (_opt_action.very_verbose) {
                 writeln("  ", k1);
@@ -414,7 +415,8 @@ string theme_light_1 = format(q"┃
               .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
             ) {
               if (k2 != "_a") {
-                topics ~= format(q"┃<p class="lev2"><a name="%s" class="lev2">%s</a></p>┃",
+                topics ~= format(q"┃<p class="lev2"><a name="%s.%s.%s" class="lev2">%s</a></p>┃",
+                  k0.translate([' ' : "_"]), k1.translate([' ' : "_"]),
                   k2.translate([' ' : "_"]), k2,) ~ "\n";
                 if (_opt_action.very_verbose) {
                   writeln("    ", k2);
@@ -454,7 +456,8 @@ string theme_light_1 = format(q"┃
                 .sort!("toUpper(a) < toUpper(b)", SwapStrategy.unstable)
               ) {
                 if (k3 != "_a") {
-                  topics ~= format(q"┃<p class="lev3"><a name="%s" class="lev3">%s</a></p>┃",
+                  topics ~= format(q"┃<p class="lev3"><a name="%s.%s.%s.%s" class="lev3">%s</a></p>┃",
+                    k0.translate([' ' : "_"]), k1.translate([' ' : "_"]), k2.translate([' ' : "_"]),
                     k3.translate([' ' : "_"]), k3,) ~ "\n";
                   if (_opt_action.very_verbose) {
                     writeln("      ", k3);
-- 
cgit v1.2.3