From aae005b24ce816d89bcda6e72de2cdeadcf7ded0 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Sat, 17 Sep 2016 16:45:36 -0400
Subject: heading anchor_tags and cleaning

---
 org/ao_defaults.org | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'org/ao_defaults.org')

diff --git a/org/ao_defaults.org b/org/ao_defaults.org
index 3ea0a6f..b4ea917 100644
--- a/org/ao_defaults.org
+++ b/org/ao_defaults.org
@@ -94,6 +94,7 @@ template SiSUregisters() {
         "home_button_text"  : "",
         "italics"           : "",
         "num_top"           : "",
+        "num_depth"         : "",
         "substitute"        : "",
         "texpdf_font"       : ""
       ]
@@ -219,7 +220,7 @@ template SiSUregisters() {
       "home_button_image",
       "home_button_text",
       "footer", "headings",
-      "num_top",
+      "num_top", "num_depth",
       "breaks",
       "substitute",
       "bold",
@@ -597,7 +598,7 @@ static native_subhead_classify          = ctRegex!(`^(?:topic_register|subject|k
 static native_subhead_identifier        = ctRegex!(`^(?:oclc|pg|isbn)$`, "m");
 static native_subhead_notes             = ctRegex!(`^(?:abstract|description)$`, "m");
 static native_subhead_publisher         = ctRegex!(`^(?:name)$`, "m");
-static native_subhead_make              = ctRegex!(`^(?:cover_image|home_button_image|home_button_text|footer|headings|num_top|breaks|substitute|bold|italics|emphasis|texpdf_font|css)$`, "m");
+static native_subhead_make              = ctRegex!(`^(?:cover_image|home_button_image|home_button_text|footer|headings|num_top|num_depth|breaks|substitute|bold|italics|emphasis|texpdf_font|css)$`, "m");
 #+END_SRC
 
 ** heading & paragraph operators                         :paragraph:operator:
@@ -608,6 +609,11 @@ static native_subhead_make              = ctRegex!(`^(?:cover_image|home_button_
 static heading_a          = ctRegex!(`^:?[A][~] `, "m");
 static heading            = ctRegex!(`^:?([A-D1-4])[~]([a-z0-9_.-]*[?]?) `);
 static heading_marker     = ctRegex!(`^:?([A-D1-4])[~]`);
+static heading_anchor_tag = ctRegex!(`^:?[A-D1-4][~]([a-z0-9_.-]+) `,"i");
+static heading_identify_anchor_tag = ctRegex!(`^:?[A-D1-4][~]\s+(?:(?:(?:chapter|article|section|clause)\s+[0-9.]+)|(?:[0-9.]+))`,"i"); // unless dob.obj =~/^:?[A-D1-4]~\s+(?:|(?:chapter|article|section|clause)\s+)([0-9.]+)/i
+static heading_extract_named_anchor_tag = ctRegex!(`^:?[A-D1-4][~]\s+(chapter|article|section|clause)\s+([0-9.]+)`,"i");
+static heading_extract_unnamed_anchor_tag = ctRegex!(`^:?[A-D1-4][~]\s+([0-9.]+)`);
+static heading_marker_missing_tag = ctRegex!(`^:?([A-D1-4])[~] `);
 static heading_title      = ctRegex!(`^:?[A-D1-4][~][a-z0-9_.-]*[?]?\s+(.+?)$`);
 static heading_all        = ctRegex!(`^:?([A-D1-4])[~]([a-z0-9_.-]*[?]?)\s+(.+?)$`); // test, particularly [2] name/hashtag which may or may not be, does this affect title [3]
 static heading_biblio     = ctRegex!(`^:?(1)[~][!](biblio(?:graphy)?|references?)`);
@@ -761,7 +767,7 @@ static obj_cite_number_block_marks           = ctRegex!(`^--[+~-]#$`);
 #+name: ao_rgx
 #+BEGIN_SRC d
 /+ ignore outside code blocks +/
-static skip_code_block_from_regular_parse    = ctRegex!(`^(--[+~-]#|-[\\]{2}-|=[.\\]{2}=)$`); // not structural info
+static skip_from_regular_parse    = ctRegex!(`^(--[+~-]#|-[\\]{2}-|=[.\\]{2}=)$`); // not structural info
 #+END_SRC
 
 ** line & page breaks                                                 :break:
-- 
cgit v1.2.3