From 5fa79cb72d3cbc9bb6c6e85edafeca9eaa02a1d0 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph.amissah@gmail.com>
Date: Wed, 12 Jun 2019 18:31:06 -0400
Subject: harvest, document reporting, sorted topic register

---
 org/doc_reform.org | 84 ++++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 76 insertions(+), 8 deletions(-)

(limited to 'org/doc_reform.org')

diff --git a/org/doc_reform.org b/org/doc_reform.org
index b13d086..b4bce52 100644
--- a/org/doc_reform.org
+++ b/org/doc_reform.org
@@ -124,17 +124,50 @@ void main(string[] args) {
     string[] _document_topic_register;
     string[] _topic_register;
     string[] _sub_topic_register;
+    string[][string][string][string][string] subject_trees;
     foreach(k, doc_harvest; harvests) {
       _topic_register = [];
       foreach(topic; doc_harvest.topic_register_arr.sort) {
         _sub_topic_register = [];
         string _spaces;
-        foreach (i, _top; topic.split(mkup.sep)) {
-          _sub_topic_register ~= format(
-            "  %s- %s",
-            "  ".repeat(i).join,
-            _top,
-          );
+        string[] subject_tree = topic.split(mkup.sep);
+        switch (subject_tree.length) {
+        case 1:
+          if (subject_tree[0] in subject_trees) {
+            subject_trees[subject_tree[0]]["_a"]["_a"]["_a"] ~= doc_harvest.uid;
+          } else {
+            subject_trees[subject_tree[0]]["_a"]["_a"]["_a"] = [doc_harvest.uid];
+          }
+          break;
+        case 2:
+          if (subject_tree[0] in subject_trees
+          && subject_tree[1] in subject_trees[subject_tree[0]]) {
+            subject_trees[subject_tree[0]][subject_tree[1]]["_a"]["_a"] ~= doc_harvest.uid;
+          } else {
+            subject_trees[subject_tree[0]][subject_tree[1]]["_a"]["_a"] = [doc_harvest.uid];
+          }
+          break;
+        case 3:
+          if (subject_tree[0] in subject_trees
+          && subject_tree[1] in subject_trees[subject_tree[0]]
+          && subject_tree[2] in subject_trees[subject_tree[0]][subject_tree[1]]) {
+            subject_trees[subject_tree[0]][subject_tree[1]][subject_tree[2]]["_a"] ~= doc_harvest.uid;
+          } else {
+            subject_trees[subject_tree[0]][subject_tree[1]][subject_tree[2]]["_a"] = [doc_harvest.uid];
+          }
+          break;
+        case 4:
+          if (subject_tree[0] in subject_trees
+          && subject_tree[1] in subject_trees[subject_tree[0]]
+          && subject_tree[2] in subject_trees[subject_tree[0]][subject_tree[1]]
+          && subject_tree[3] in subject_trees[subject_tree[0]][subject_tree[1]][subject_tree[2]]) {
+            subject_trees[subject_tree[0]][subject_tree[1]][subject_tree[2]][subject_tree[3]] ~= doc_harvest.uid;
+          } else {
+            subject_trees[subject_tree[0]][subject_tree[1]][subject_tree[2]][subject_tree[3]] = [doc_harvest.uid];
+          }
+          break;
+        default:
+          break;
         }
         _topic_register ~= _sub_topic_register.join("\n");
       }
@@ -150,8 +183,43 @@ void main(string[] args) {
         (doc_harvest.date_published.length > 0) ? " (" ~ doc_harvest.date_published ~ ")" : "",
         _topic_register.sort!("toUpper(a) < toUpper(b)", SwapStrategy.stable).release.join("\n"),
       );
-      foreach(_dtr; _document_topic_register.sort) {
-        writeln(_dtr);
+    }
+    foreach(k0; subject_trees.keys.sort) {
+      if (k0 != "_a") {
+        writeln("", k0);
+        if ("_a" in subject_trees[k0]) {
+          foreach (uid; subject_trees[k0]["_a"]["_a"]["_a"].sort) {
+            writeln("- ", uid);
+          }
+        }
+      }
+      foreach(k1; subject_trees[k0].keys.sort) {
+        if (k1 != "_a") {
+          writeln("  ", k1);
+          if ("_a" in subject_trees[k0][k1]) {
+            foreach (uid; subject_trees[k0][k1]["_a"]["_a"].sort) {
+              writeln("  - ", uid);
+            }
+          }
+        }
+        foreach(k2; subject_trees[k0][k1].keys.sort) {
+          if (k2 != "_a") {
+            writeln("    ", k2);
+            if ("_a" in subject_trees[k0][k1][k2]) {
+              foreach (uid; subject_trees[k0][k1][k2]["_a"].sort) {
+                writeln("    - ", uid);
+              }
+            }
+          }
+          foreach(k3; subject_trees[k0][k1][k2].keys.sort) {
+            if (k3 != "_a") {
+              writeln("      ", k3);
+              foreach (uid; subject_trees[k0][k1][k2][k3]) {
+                writeln("      - ", uid);
+              }
+            }
+          }
+        }
       }
     }
   }
-- 
cgit v1.2.3