From 7520bb9fbd1eb03968805717ed751eb9e8bf86a9 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Wed, 7 Sep 2016 18:31:39 -0400
Subject: heading debug info, moved

---
 org/ao_output_debugs.org | 103 +++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 86 insertions(+), 17 deletions(-)

(limited to 'org/ao_output_debugs.org')

diff --git a/org/ao_output_debugs.org b/org/ao_output_debugs.org
index c52b622..4b79a54 100644
--- a/org/ao_output_debugs.org
+++ b/org/ao_output_debugs.org
@@ -319,32 +319,72 @@ debug(biblio) {
 
 #+END_SRC
 
-** (summary) [+1]                                                   :summary:
+** (headings)                                                     :headings:
 
 #+name: ao_output_debugs
 #+BEGIN_SRC d
-debug(summary) {
-  string[string] check = [
-    "last_obj_cite_number" : "NA [debug \"checkdoc\" not run]",
-  ];
-#+END_SRC
-
-*** (checkdoc)                                                     :checkdoc:
-
-#+name: ao_output_debugs_summary
-#+BEGIN_SRC d
-debug(checkdoc) {
-  foreach (obj; contents) {
-    if (obj.use == "content") {
-      if (!empty(obj.obj_cite_number)) {
-        check["last_obj_cite_number"] = obj.obj_cite_number;
+debug(heading) {                         // heading
+  string spc;
+  foreach (o; contents) {
+    if (o.is_a == "heading") {
+      switch (o.heading_attrib.lev_markup_number) {
+      case 0:
+      // case to!string(DocStructMarkupHeading.h_sect_A):
+        spc="";
+        break;
+      case 1:
+      // case to!string(DocStructMarkupHeading.h_sect_B):
+        spc="  ";
+        break;
+      case 2:
+      // case to!string(DocStructMarkupHeading.h_sect_C):
+        spc="    ";
+        break;
+      case 3:
+      // case to!string(DocStructMarkupHeading.h_sect_D):
+        spc="      ";
+        break;
+      case 4:
+      // case to!string(DocStructMarkupHeading.h_text_1):
+        spc="        ";
+        break;
+      case 5:
+      // case to!string(DocStructMarkupHeading.h_text_2):
+        spc="          ";
+        break;
+      case 6:
+      // case to!string(DocStructMarkupHeading.h_text_3):
+        spc="            ";
+        break;
+      case 7:
+      // case to!string(DocStructMarkupHeading.h_text_4):
+        spc="              ";
+        break;
+      case 8:
+      // case to!string(DocStructMarkupHeading.h_text_5):
+        spc="                ";
+        break;
+      default:
+        spc="";
+        break;
       }
+      // writeln(
+      //   spc, "* ", " ",
+      //   o
+      // );
+      writefln(
+        "%s* %s\n                (markup level: %s; collapsed level: %s)",
+        spc,
+        strip(o.object),
+        o.heading_attrib.lev_markup_number,
+        o.heading_attrib.lev_collapsed_number
+      );
     }
   }
 }
 #+END_SRC
 
-*** (headings)                                                     :headings:
+** (summary) [+1]                                                   :summary:
 
 #+name: ao_output_debugs_summary
 #+BEGIN_SRC d
@@ -368,6 +408,35 @@ debug(headings) {
     }
   }
 }
+#+END_SRC
+
+#+name: ao_output_debugs
+#+BEGIN_SRC d
+debug(summary) {
+  string[string] check = [
+    "last_obj_cite_number" : "NA [debug \"checkdoc\" not run]",
+  ];
+#+END_SRC
+
+*** (checkdoc)                                                     :checkdoc:
+
+#+name: ao_output_debugs_summary
+#+BEGIN_SRC d
+debug(checkdoc) {
+  foreach (obj; contents) {
+    if (obj.use == "content") {
+      if (!empty(obj.obj_cite_number)) {
+        check["last_obj_cite_number"] = obj.obj_cite_number;
+      }
+    }
+  }
+}
+#+END_SRC
+
+*** output summary
+
+#+name: ao_output_debugs_summary
+#+BEGIN_SRC d
 writefln(
   "%s%s%s\n%s\n%s%s\n%s%s\n%s%s\n%s:%s",
   scr_txt_color["green"],
-- 
cgit v1.2.3