From 194c896c4a3780e9fece376507dcac3657237cd4 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Mon, 26 Feb 2018 15:42:10 -0500
Subject: playing with header/make substitutions

---
 org/meta_abstraction.org | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

(limited to 'org/meta_abstraction.org')

diff --git a/org/meta_abstraction.org b/org/meta_abstraction.org
index aa79d9a..a1e5a95 100644
--- a/org/meta_abstraction.org
+++ b/org/meta_abstraction.org
@@ -88,6 +88,7 @@ template SiSUdocAbstraction() {
   <<abs_functions_object_reset>>
   <<abs_functions_header_set_common>>
   <<abs_functions_ocn_status>>
+  <<abs_functions_substitutions>>
   <<abs_functions_block>>
   <<abs_functions_block_quote>>
   <<abs_functions_block_group>>
@@ -825,6 +826,7 @@ if there is a blurb section you need to:
 #+BEGIN_SRC d
 } else if (obj_type_status["quote"] == TriState.on) {
   /+ within block object: quote +/
+  line = _doc_header_and_make_substitutions_(line, conf_make_meta);
   _quote_block_(line, an_object, obj_type_status);
   continue;
 #+END_SRC
@@ -836,6 +838,7 @@ if there is a blurb section you need to:
 /+ within block object: group +/
 } else if (obj_type_status["group"] == TriState.on) {
   /+ within block object: group +/
+  line = _doc_header_and_make_substitutions_(line, conf_make_meta);
   line = (line)
     .replaceAll(rgx.para_delimiter, mkup.br_paragraph ~ "$1");
   _group_block_(line, an_object, obj_type_status);
@@ -848,6 +851,7 @@ if there is a blurb section you need to:
 #+BEGIN_SRC d
 } else if (obj_type_status["block"] == TriState.on) {
   /+ within block object: block +/
+  line = _doc_header_and_make_substitutions_(line, conf_make_meta);
   if (auto m = line.match(rgx.spaces_line_start)) {
     line = (line)
       .replaceAll(rgx.spaces_line_start, (m.captures[1]).translate([ ' ' : mkup.nbsp ]));
@@ -903,6 +907,7 @@ if (line.matchFirst(rgx.block_poem_open)) {
   processing.remove("verse");
   obj_cite_number_poem["start"] = obj_cite_digits.on.to!string;
 }
+line = _doc_header_and_make_substitutions_(line, conf_make_meta);
 _start_block_(line, obj_type_status, obj_cite_number_poem);
 continue;
 #+END_SRC
@@ -1012,6 +1017,7 @@ if (line.matchFirst(rgx.book_index)
     } else if (line_occur["para"] == State.off) {
       /+ para match +/
       an_object_key="body_nugget";
+      line = _doc_header_and_make_substitutions_(line, conf_make_meta);
       _para_match_(line, an_object, an_object_key, indent, bullet, obj_type_status, line_occur);
     }
 #+END_SRC
@@ -1038,6 +1044,7 @@ if (line.matchFirst(rgx.book_index)
     debug(para) {
       writeln(an_object_key, "-> ", line);
     }
+    line = _doc_header_and_make_substitutions_(line, conf_make_meta);
     an_object[an_object_key] ~= " " ~ line;
     ++line_occur["para"];
   }
@@ -2524,6 +2531,46 @@ static auto _check_ocn_status_(L,T)(
 }
 #+END_SRC
 
+#+name: abs_functions_substitutions
+#+BEGIN_SRC d
+auto _doc_header_and_make_substitutions_(L,CMM)(
+  L    line,
+  CMM  conf_make_meta,
+) {
+  debug(asserts) {
+    static assert(is(typeof(line)            == char[]));
+  }
+  if (!(
+    conf_make_meta.make.bold_rgxmatch == "=NULL"
+    || conf_make_meta.make.bold_rgxmatch.empty
+  )) {
+    line = line.replaceAll(
+      regex(conf_make_meta.make.bold_rgxmatch),
+      conf_make_meta.make.bold_substitute_sisu_markup
+    );
+  }
+  if (!(
+    conf_make_meta.make.emphasis_rgxmatch == "=NULL"
+    || conf_make_meta.make.emphasis_rgxmatch.empty
+  )) {
+    line = line.replaceAll(
+      regex(conf_make_meta.make.emphasis_rgxmatch),
+      conf_make_meta.make.emphasis_substitute_sisu_markup
+    );
+  }
+  if (!(
+    conf_make_meta.make.italics_rgxmatch == "=NULL"
+    || conf_make_meta.make.italics_rgxmatch.empty
+  )) {
+    line = line.replaceAll(
+      regex(conf_make_meta.make.italics_rgxmatch),
+      conf_make_meta.make.italics_substitute_sisu_markup
+    );
+  }
+  return line;
+}
+#+END_SRC
+
 *** block                                                           :block:
 **** block start (open) block                                      :start:
 ***** { block starts function
-- 
cgit v1.2.3