step4.1 as step4 but extract header meta & make on first reading in documentdoc-reform_v0.0.4

1 files changed, 94 insertions, 503 deletions

diff --git a/org/ao_abstract_doc_source.org b/org/ao_abstract_doc_source.org
index 3c82dba..557cda0 100644
--- a/org/ao_abstract_doc_source.org
+++ b/org/ao_abstract_doc_source.org
@@ -53,7 +53,6 @@ ObjComposite[] contents_the_objects;
 
 string[string] an_object, processing;
 auto set_abstract_object = ObjectAbstractSet();
-auto set_header = HeaderDocMetadataMakeJson();
 auto note_section = NotesSection();
 
 /+ enum +/
@@ -157,9 +156,11 @@ scope(exit) {
   destroy(processing);
   destroy(biblio_arr_json);
 }
+line_occur = [
+  "heading" : 0,
+  "para"    : 0,
+];
 auto type = flags_type_init;
-auto dochead_make = parseJSON(header_make_jsonstr).object;
-auto dochead_meta = parseJSON(header_metadata_jsonstr).object;
 mixin ScreenTxtColors;
 int tell_lo(string color, int obj_cite_number, in char[] line) {
   writefln(
@@ -284,8 +285,9 @@ if (type["code"] == TriState.on) {
 
 #+name: abs_in_loop_body_00
 #+BEGIN_SRC d
-} else if (!matchFirst(line, rgx.regular_parse_skip)) {
-  /+ object other than code block object (includes regular text paragraph) +/
+} else if (!matchFirst(line, rgx.skip_code_block_from_regular_parse)) {
+  /+ object other than "code block" object
+     (includes regular text paragraph, headings & blocks other than code) +/
 #+END_SRC
 
 ***** within block group [+1]                                  :block:active:
@@ -394,7 +396,7 @@ if (matchFirst(line, rgx.block_open)) {
 #+BEGIN_SRC d
 } else if (!line.empty) {
   /+ line not empty +/
-  /+ non blocks (headers, paragraphs) & closed blocks +/
+  /+ non blocks (headings, paragraphs) & closed blocks +/
 #+END_SRC
 
 ******* asserts                                                      :assert:
@@ -451,22 +453,8 @@ if (matchFirst(line, rgx.block_open)) {
         set_abstract_object.contents_comment(strip(an_object["obj"]));
       header_set_common(line_occur, an_object, type);
       processing.remove("verse");
-      type["header_make"] = State.off;
-      type["header_metadata"] = State.off;
       ++counter;
 #+END_SRC
-******** matched: header make                                        :header:
-#+name: abs_in_loop_body_not_block_obj
-#+BEGIN_SRC d
-    } else if ((matchFirst(line, rgx.header_make))
-      || (matchFirst(line, rgx.header_metadata))
-      || (type["header_make"] == State.on
-      && (line_occur["header_make"] > State.off))
-      || (type["header_metadata"] == State.on
-      && (line_occur["header_metadata"] > State.off))) {
-        header_extract(line, line_occur, an_object, type);
-#+END_SRC
-
 ******** flag not set & line not exist: heading or para   :heading:paragraph:
 #+name: abs_in_loop_body_not_block_obj
 #+BEGIN_SRC d
@@ -475,11 +463,11 @@ if (matchFirst(line, rgx.block_open)) {
     && ((type["para"] == State.off)
     && (type["heading"] == State.off))) {
       /+ heading or para but neither flag nor line exists +/
-      if ((to!string(dochead_make["make"]["headings"]).length > 2)
+      if ((to!string(dochead_make_json["make"]["headings"]).length > 2)
       && (type["make_headings"] == State.off)) {
         /+ heading found +/
         auto dochead_make_headings =
-          to!string(dochead_make["make"]["headings"]);
+          to!string(dochead_make_json["make"]["headings"]);
         heading_found(line, dochead_make_headings, heading_match_str, heading_match_rgx, type);
       }
       if ((type["make_headings"] == State.on)
@@ -492,36 +480,13 @@ if (matchFirst(line, rgx.block_open)) {
       }
       if (matchFirst(line, rgx.heading)) {
         /+ heading match +/
-        heading_match(line, line_occur, an_object, lv, collapsed_lev, type, dochead_meta);
+        heading_matched(line, line_occur, an_object, lv, collapsed_lev, type, dochead_meta_json);
       } else if (line_occur["para"] == State.off) {
         /+ para match +/
-        para_match(line, an_object, indent, bullet, type);
-      }
-#+END_SRC
-******** line exist: header make                                :header:make:
-#+name: abs_in_loop_body_not_block_obj
-#+BEGIN_SRC d
-    } else if (line_occur["header_make"] > State.off) {
-      /+ header_make +/
-      // should be caught by sub-header
-      debug(header) {
-        tell_l("red", line);
-      }
-      an_object["obj"] ~= line ~= "\n";
-      ++line_occur["header_make"];
-#+END_SRC
-******** line exist: header metadata                        :header:metadata:
-#+name: abs_in_loop_body_not_block_obj
-#+BEGIN_SRC d
-    } else if (line_occur["header_metadata"] > State.off) {
-      /+ header_metadata +/
-      // should be caught by sub-header
-      debug(header) {                          // para
-        tell_l("red", line);
+        para_match(line, an_object, indent, bullet, type, line_occur);
       }
-      an_object["obj"] ~= line ~= "\n";
-      ++line_occur["header_metadata"];
 #+END_SRC
+
 ******** line exist: heading                                        :heading:
 #+name: abs_in_loop_body_not_block_obj
 #+BEGIN_SRC d
@@ -560,7 +525,7 @@ if (matchFirst(line, rgx.block_open)) {
 #+name: abs_in_loop_body_not_block_obj
 #+BEGIN_SRC d
 } else {
-/+ line empty +/
+  /+ line empty +/
 #+END_SRC
 
 ******* assert line empty                                            :assert:
@@ -578,45 +543,11 @@ assert(
 );
 #+END_SRC
 
-******* header_make instructions                   :header:make:instructions:
-
-#+name: abs_in_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d
-if ((type["header_make"] == State.on)
-&& (line_occur["header_make"] > State.off)) {
-  /+ header_make instructions (current line empty) +/
-  auto dochead_metadata_and_make =
-    set_header.header_metadata_and_make_jsonstr(strip(an_object["obj"]), dochead_meta, dochead_make);
-  static assert(!isTypeTuple!(dochead_metadata_and_make));
-  dochead_meta = dochead_metadata_and_make[0];
-  dochead_make = dochead_metadata_and_make[1];
-  header_set_common(line_occur, an_object, type);
-  processing.remove("verse");
-#+END_SRC
-
-******* header_metadata                                     :header:metadata:
-
-#+name: abs_in_loop_body_not_block_obj_line_empty
-#+BEGIN_SRC d
-} else if ((type["header_metadata"] == State.on)
-&& (line_occur["header_metadata"] > State.off)) {
-  /+ header_metadata (current line empty) +/
-  auto dochead_metadata_and_make =
-    set_header.header_metadata_and_make_jsonstr(strip(an_object["obj"]), dochead_meta, dochead_make);
-  static assert(!isTypeTuple!(dochead_meta));
-  dochead_meta = dochead_metadata_and_make[0];
-  dochead_make = dochead_metadata_and_make[1];
-  header_set_common(line_occur, an_object, type);
-  type["header_make"] = State.off;
-  type["header_metadata"] = State.off;
-  processing.remove("verse");
-#+END_SRC
-
 ******* heading object                                       :heading:object:
 
 #+name: abs_in_loop_body_not_block_obj_line_empty
 #+BEGIN_SRC d
-} else if ((type["heading"] == State.on)
+if ((type["heading"] == State.on)
 && (line_occur["heading"] > State.off)) {
   /+ heading object (current line empty) +/
   obj_cite_number = obj_cite_number_emit(type["obj_cite_number_status"]);
@@ -655,8 +586,6 @@ if ((type["header_make"] == State.on)
     // writeln(m.hit, "\n");
   }
   header_set_common(line_occur, an_object, type);
-  type["header_make"] = State.off;
-  type["header_metadata"] = State.off;
   an_object.remove("lev");
   an_object.remove("lev_markup_number");
   // an_object["lev_markup_number"]="9";
@@ -705,8 +634,6 @@ if ((type["header_make"] == State.on)
   //     bullet
   //   );
   header_set_common(line_occur, an_object, type);
-  type["header_make"] = State.off;
-  type["header_metadata"] = State.off;
   indent["first"] = "0";
   indent["second"] = "0";
   bullet = false;
@@ -734,21 +661,24 @@ if ((type["header_make"] == State.on)
 
 #+name: abs_in_loop_body_01
 #+BEGIN_SRC d
-if (((contents_the_objects[$-1].is_a == "para")
-|| (contents_the_objects[$-1].is_a == "heading"))
-&& (counter-1 > previous_count)) {
-  if (match(contents_the_objects[$-1].object,
-  rgx.inline_notes_delimiter_al_regular_number_note)) {
-    // endnotes/ footnotes for
-    // doc objects other than paragraphs & headings
-    // various forms of grouped text
-    previous_count=contents_the_objects.length -1;
-    note_section.gather_notes_for_endnote_section(
-      contents_the_objects,
-      contents_the_objects.length -1
-    );
-    // notes[notepoint]=note_section.notes_section(contents_the_objects, counter-1);
-    // notepoint +=1;
+/+ unless (contents_the_objects.length == 0) ? +/
+if (contents_the_objects.length > 0) {
+  if (((contents_the_objects[$-1].is_a == "para")
+  || (contents_the_objects[$-1].is_a == "heading"))
+  && (counter-1 > previous_count)) {
+    if (match(contents_the_objects[$-1].object,
+    rgx.inline_notes_delimiter_al_regular_number_note)) {
+      // endnotes/ footnotes for
+      // doc objects other than paragraphs & headings
+      // various forms of grouped text
+      previous_count=contents_the_objects.length -1;
+      note_section.gather_notes_for_endnote_section(
+        contents_the_objects,
+        contents_the_objects.length -1
+      );
+      // notes[notepoint]=note_section.notes_section(contents_the_objects, counter-1);
+      // notepoint +=1;
+    }
   }
 }
 #+END_SRC
@@ -903,14 +833,14 @@ destroy(bookindex_section);
 // struct Document {
 //   char content;
 //   char head_make;
-//   char head_metadata;
+//   char head_meta;
 //   char bookindex_section;
 //   char biblio;
 // }
 // struct Document {
 //   char content;
 //   char head_make;
-//   char head_metadata;
+//   char head_meta;
 //   char bookindex_section;
 //   char biblio;
 // }
@@ -920,14 +850,11 @@ destroy(bookindex_section);
 
 #+name: abs_post
 #+BEGIN_SRC d
-auto t =
-  tuple(
-    document_the,
-    dochead_make,
-    dochead_meta,
-    bookindex_unordered_hashes,
-    biblio_ordered
-  );
+auto t = tuple(
+  document_the,
+  bookindex_unordered_hashes,
+  biblio_ordered
+);
 return t;
 #+END_SRC
 
@@ -958,13 +885,8 @@ auto header_set_common(
   ref int[string] type
 ) {
   // line_occur["header"] = State.off;
-  line_occur["header_make"] = State.off;
-  line_occur["header_metadata"] = State.off;
   line_occur["heading"] = State.off;
   line_occur["para"]= State.off;
-  type["header"] = State.off;
-  // type["header_make"] = State.off;
-  // type["header_metadata"] = State.off;
   type["heading"] = State.off;
   type["para"] = State.off;
   object_reset(an_object);
@@ -2074,67 +1996,6 @@ auto book_index(
 }
 #+END_SRC
 
-** header extract                                                    :header:
-
-#+name: abs_functions
-#+BEGIN_SRC d
-auto header_extract(
-  char[] line,
-  ref int[string] line_occur,
-  ref string[string] an_object,
-  ref int[string] type
-) {
-  if (matchFirst(line, rgx.header_make)) {
-    /+ matched header_make +/
-    debug(header1) {                          // header
-      tell_l("yellow", line);
-    }
-    type["header"] = State.on;
-    type["header_make"] = State.on;
-    type["header_metadata"] = State.off;
-    type["heading"] = State.off;
-    type["para"] = State.off;
-    ++line_occur["header_make"];
-    an_object["obj"] ~= line ~= "\n";
-  } else if (matchFirst(line, rgx.header_metadata)) {
-    /+ matched header_metadata +/
-    debug(header1) {                          // header
-      tell_l("yellow", line);
-    }
-    type["header"] = State.on;
-    type["header_make"] = State.off;
-    type["header_metadata"] = State.on;
-    type["heading"] = State.off;
-    type["para"] = State.off;
-    ++line_occur["header_metadata"];
-    an_object["obj"] ~= line ~= "\n";
-  } else if (type["header_make"] == State.on
-  && (line_occur["header_make"] > State.off)) {
-    /+ header_make flag set +/
-    if (matchFirst(line, rgx.header_sub)) {
-      /+ sub-header +/
-      debug(header1) {
-        tell_l("yellow", line);
-      }
-      // type["header"] = State.on;
-      ++line_occur["header_make"];
-      an_object["obj"] ~= line ~= "\n";
-    }
-  } else if (type["header_metadata"] == State.on
-  && (line_occur["header_metadata"] > State.off)) {
-    /+ header_metadata flag set +/
-    if (matchFirst(line, rgx.header_sub)) {
-      /+ sub-header +/
-      debug(header1) {
-        tell_l("yellow", line);
-      }
-      ++line_occur["header_metadata"];
-      an_object["obj"] ~= line ~= "\n";
-    }
-  }
-  return 0;
-}
-#+END_SRC
 
 ** heading or paragraph                                   :heading:paragraph:
 *** heading found                                                   :heading:
@@ -2297,31 +2158,31 @@ auto heading_make_set(
 
 #+name: abs_functions
 #+BEGIN_SRC d
-auto heading_match(
+auto heading_matched(
   char[] line,
   ref int[string] line_occur,
   ref string[string] an_object,
   ref int[string] lv,
   ref int[string] collapsed_lev,
   ref int[string] type,
-  ref JSONValue[string] dochead_meta
+  ref JSONValue[string] dochead_meta_json
 ) {
   if (auto m = match(line, rgx.heading)) {
     /+ heading match +/
     type["heading"] = State.on;
-    type["header"] = State.off;
-    type["header_make"] = State.off;
-    type["header_metadata"] = State.off;
     type["heading_biblio"] = State.off;
     type["para"] = State.off;
     ++line_occur["heading"];
     an_object["obj"] ~= line ~= "\n";
     an_object["lev"] ~= m.captures[1];
+    // writeln("an object level: ", an_object);
     assertions_doc_structure(an_object, lv); // includes most of the logic for collapsed levels
     switch (an_object["lev"]) {
     case "A":
-      an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_title, to!string(dochead_meta["title"]["main"]));
-      an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_author, to!string(dochead_meta["creator"]["author"]));
+      an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_title, to!string(dochead_meta_json["title"]["main"]));
+      an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_author, to!string(dochead_meta_json["creator"]["author"]));
+      // an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_title, to!string(parseJSON(dochead_meta_json["title"]["main"])));
+      // an_object["obj"]=replaceFirst(an_object["obj"], rgx.head_value_author, to!string(parseJSON(dochead_meta_json["creator"]["author"])));
       collapsed_lev["h0"] = 1;
       an_object["lev_collapsed_number"] =
         to!string(collapsed_lev["h0"]);
@@ -2449,7 +2310,8 @@ auto para_match(
   ref string[string] an_object,
   ref string[string] indent,
   ref bool bullet,
-  ref int[string] type
+  ref int[string] type,
+  ref int[string] line_occur
 ) {
   if (line_occur["para"] == State.off) {
     /+ para matches +/
@@ -2587,28 +2449,29 @@ struct ObjAttributes {
   }
   invariant() {
   }
-  string header_make(string obj_txt_in)
-  in { }
-  body {
-    obj_txt["munge"]=obj_txt_in;
-    obj_txt["attrib"] = " \"use\": \"head\","
-    ~ " \"of\": \"header\","
-    ~ " \"is\": \"header_make\"";
-    return obj_txt["attrib"];
-  }
-  invariant() {
-  }
-  string header_metadata(string obj_txt_in)
-  in { }
-  body {
-    obj_txt["munge"]=obj_txt_in;
-    obj_txt["attrib"] = " \"use\": \"head\","
-    ~ " \"of\": \"header\","
-    ~ " \"is\": \"header_metadata\"";
-    return obj_txt["attrib"];
-  }
-  invariant() {
-  }
+  /+ revist +/
+  // string header_make(string obj_txt_in)
+  // in { }
+  // body {
+  //   obj_txt["munge"]=obj_txt_in;
+  //   obj_txt["attrib"] = " \"use\": \"head\","
+  //   ~ " \"of\": \"header\","
+  //   ~ " \"is\": \"header_make\"";
+  //   return obj_txt["attrib"];
+  // }
+  // invariant() {
+  // }
+  // string header_meta(string obj_txt_in)
+  // in { }
+  // body {
+  //   obj_txt["munge"]=obj_txt_in;
+  //   obj_txt["attrib"] = " \"use\": \"head\","
+  //   ~ " \"of\": \"header\","
+  //   ~ " \"is\": \"header_metadata\"";
+  //   return obj_txt["attrib"];
+  // }
+  // invariant() {
+  // }
   string code(string obj_txt_in)
   in { }
   body {
@@ -2802,22 +2665,23 @@ struct ObjInlineMarkupMunge {
   }
   invariant() {
   }
-  string header_make(string obj_txt_in)
-  in { }
-  body {
-    obj_txt["munge"]=obj_txt_in;
-    return obj_txt["munge"];
-  }
-  invariant() {
-  }
-  string header_metadata(string obj_txt_in)
-  in { }
-  body {
-    obj_txt["munge"]=obj_txt_in;
-    return obj_txt["munge"];
-  }
-  invariant() {
-  }
+  /+ revisit +/
+  // string header_make(string obj_txt_in)
+  // in { }
+  // body {
+  //   obj_txt["munge"]=obj_txt_in;
+  //   return obj_txt["munge"];
+  // }
+  // invariant() {
+  // }
+  // string header_meta(string obj_txt_in)
+  // in { }
+  // body {
+  //   obj_txt["munge"]=obj_txt_in;
+  //   return obj_txt["munge"];
+  // }
+  // invariant() {
+  // }
   string code(string obj_txt_in)
   in { }
   body {
@@ -2896,12 +2760,6 @@ struct ObjInlineMarkup {
       ? obj_txt["munge"]
       : strip(obj_txt["munge"]);
     switch (obj_is_) {
-    case "header_make":
-      obj_txt["munge"]=munge.header_make(obj_txt["munge"]);
-      break;
-    case "header_metadata":
-      obj_txt["munge"]=munge.header_metadata(obj_txt["munge"]);
-      break;
     case "heading":
       obj_txt["munge"]=munge.heading(obj_txt["munge"]);
       break;
@@ -2964,12 +2822,6 @@ struct ObjAttrib {
     obj_attrib.remove("json");
     obj_attrib["json"] ="{";
     switch (obj_is_) {
-    case "header_make":
-      obj_attrib["json"] ~= attrib.header_make(obj_raw);
-      break;
-    case "header_metadata":
-      obj_attrib["json"] ~= attrib.header_metadata(obj_raw);
-      break;
     case "heading":
       obj_attrib["json"] ~= attrib.heading(obj_raw); //
       break;
@@ -3041,270 +2893,6 @@ struct ObjAttrib {
 }
 #+END_SRC
 
-*** header document metadata                              :document:metadata:
-**** header document metadata in json                                  :json:
-
-#+name: ao_emitters
-#+BEGIN_SRC d
-struct HeaderDocMetadataMakeJson {
-// class HeaderMetadataMakeHash : AssertHeaderMetadataMakeJson {
-  auto rgx = Rgx();
-  string hm, hs;
-  auto header_metadata_and_make_jsonstr(
-    string header,
-    JSONValue[string] dochead_meta,
-    JSONValue[string] dochead_make
-  )
-  in { }
-  body {
-    scope(exit) {
-      destroy(header);
-      destroy(dochead_meta);
-      destroy(dochead_make);
-    }
-    if (auto t = match(header, rgx.head_main)) {
-      char[][] obj_spl = split(
-        cast(char[]) header,
-        rgx.line_delimiter_ws_strip
-      );
-      auto hm = to!string(t.captures[1]);
-      if (match(hm, rgx.main_headers)) {
-        foreach (line; obj_spl) {
-          if (auto m = match(line, rgx.head_main)) {
-            if (!empty(m.captures[2])) {
-              if (hm == "creator") {
-                dochead_meta[hm]["author"].str =
-                  to!string(m.captures[2]);
-              } else if (hm == "title") {
-                dochead_meta[hm]["main"].str =
-                  to!string(m.captures[2]);
-              } else if (hm == "publisher") {
-                dochead_meta[hm]["name"].str =
-                  to!string(m.captures[2]);
-              }
-            }
-          } else if (auto s = match(line, rgx.head_sub)) {
-            if (!empty(s.captures[2])) {
-              auto hs = to!string(s.captures[1]);
-              if ((hm == "make" )
-              && (dochead_make[hm].type() == JSON_TYPE.OBJECT)) {
-                switch (hm) {
-                case "make":
-                  if (match(hs, rgx.subhead_make)) {
-                    if (dochead_make[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_make[hm][hs].str = to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                default:
-                  break;
-                }
-              } else if (dochead_meta[hm].type() == JSON_TYPE.OBJECT) {
-                switch (hm) {
-                case "creator":
-                  if (match(hs, rgx.subhead_creator)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "title":
-                  if (match(hs, rgx.subhead_title)) {
-                    if ((hs == "subtitle")
-                    && (dochead_meta[hm]["sub"].type() == JSON_TYPE.STRING)) {
-                      dochead_meta[hm]["sub"].str =
-                        to!string(s.captures[2]);
-                    } else if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "rights":
-                  if (match(hs, rgx.subhead_rights)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "date":
-                  if (match(hs, rgx.subhead_date)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "original":
-                  if (match(hs, rgx.subhead_original)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "classify":
-                  if (match(hs, rgx.subhead_classify)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "identifier":
-                  if (match(hs, rgx.subhead_identifier)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "notes":
-                  if (match(hs, rgx.subhead_notes)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "publisher":
-                  if (match(hs, rgx.subhead_publisher)) {
-                    if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                      dochead_meta[hm][hs].str =
-                        to!string(s.captures[2]);
-                    }
-                  } else {
-                    writeln("not a valid header type:", hm, ":", hs);
-                    destroy(hm);
-                    destroy(hs);
-                  }
-                  break;
-                case "links":
-                  destroy(hm);
-                  destroy(hs);
-                  // if (match(hs, rgx.subhead_links)) {
-                  //   if (dochead_meta[hm][hs].type() == JSON_TYPE.STRING) {
-                  //     dochead_meta[hm][hs].str = to!string(s.captures[2]);
-                  //   }
-                  // } else {
-                  //   writeln("not a valid header type:", hm, ":", hs);
-                  //   destroy(hm);
-                  //   destroy(hs);
-                  // }
-                  break;
-                default:
-                  break;
-                }
-              }
-            }
-          }
-        }
-      } else {
-        writeln("not a valid header type:", hm);
-      }
-    }
-    auto t = tuple(dochead_meta, dochead_make);
-    static assert(!isTypeTuple!(t));
-    return t;
-  }
-  // invariant() {
-  // }
-}
-#+END_SRC
-
-**** header document metadata as hash                                  :hash:
-
-#+name: ao_emitters
-#+BEGIN_SRC d
-class HeaderMetadataMakeHash {
-// class HeaderMetadataMakeHash : AssertHeaderMetadataMakeHash {
-  auto rgx = Rgx();
-  string header_main;
-  string[string] head;
-  string[string] header_topic_hash(string header)
-  in { }
-  body {
-    if (auto t = match(header, rgx.head_main)) {
-      char[][] obj_spl = split(
-        cast(char[]) header,
-        rgx.line_delimiter_ws_strip
-      );
-      auto header_main = to!string(t.captures[1]);
-      head[header_main] = "{";
-      foreach (line; obj_spl) {
-        if (auto m = match(line, rgx.head_main)) {
-          if (!empty(m.captures[2])) {
-            head[header_main] ~=
-              "\"" ~ header_main ~
-              "\": \"" ~
-              to!string(m.captures[2]) ~
-              "\",";
-          }
-        } else if (auto s = match(line, rgx.head_sub)) {
-          head[header_main] ~= "\"" ~ s.captures[1] ~ "\":";
-          if (!empty(s.captures[2])) {
-            head[header_main] ~= "\"" ~ s.captures[2] ~ "\",";
-          }
-        }
-      }
-      head[header_main] = replaceFirst(
-        head[header_main],
-        rgx.tailing_comma,
-        ""
-      );
-      head[header_main] ~= "}";
-      debug(headerjson) {
-        JSONValue j = parseJSON(head[header_main]);
-        assert(
-          (j.type == JSON_TYPE.OBJECT)
-        );
-      }
-    }
-    return head;
-  }
-  invariant() {
-  }
-}
-#+END_SRC
-
 *** book index                                                   :book:index:
 **** book index nugget hash                                     :hash:nugget:
 
@@ -4451,8 +4039,11 @@ template SiSUdocAbstraction() {
     <<abs_init_struct>>
 
     /+ ↓ abstract marked up document +/
-    auto abstract_doc_source(char[][] markup_sourcefile_content) {
-
+    auto abstract_doc_source(
+      char[][] markup_sourcefile_content,
+      JSONValue[string] dochead_make_json,
+      JSONValue[string] dochead_meta_json
+    ) {
       /+ ↓ abstraction init +/
       <<abs_init_rest>>
       /+ abstraction init ↑ +/