From a586864630243487f98c1d13025d83e2ae724c09 Mon Sep 17 00:00:00 2001
From: Roman Kuzmin <nightroman@gmail.com>
Date: Thu, 30 May 2024 05:58:07 +0000
Subject: [PATCH] markdown.hrc - special all caps HTML tags, close #155

---
 hrc/hrc/misc/markdown.hrc | 31 ++++++++++++++++++++++++-------
 1 file changed, 24 insertions(+), 7 deletions(-)

diff --git a/hrc/hrc/misc/markdown.hrc b/hrc/hrc/misc/markdown.hrc
index 997f3a7..36c77c2 100644
--- a/hrc/hrc/misc/markdown.hrc
+++ b/hrc/hrc/misc/markdown.hrc
@@ -7,16 +7,20 @@ xsi:schemaLocation="http://colorer.sf.net/2003/hrc http://colorer.sf.net/2003/hr
 <type name="markdown">
 <annotation><documentation><![CDATA[
 
-markdown.hrc by Roman Kuzmin, aka NightRoman, 2024-05-22
+markdown.hrc by Roman Kuzmin, aka NightRoman, 2024-05-29
 
 * Use markdown2 for extensions.
-* Inline HTML should be valid XML.
 * Opened spans are always colored.
 * Blockquotes are partially parsed.
 * List levels 4: only items are parsed.
 * List levels 5+: all is colored as code.
 * Indentation: 4/8/12 spaces, 1/2/3 tabs.
 
+Inline HTML
+
+* ALLCAPS tags are treated separately, not affecting markdown, see #6: https://github.github.com/gfm/#html-block
+* Other HTML is treated as XML and should be well formed.
+
 ]]></documentation></annotation>
 
 <region name="Anchor"        parent="def:LabelStrong"    description="{#Anchor}"/>
@@ -71,6 +75,7 @@ markdown.hrc by Roman Kuzmin, aka NightRoman, 2024-05-22
 <entity name="Ref" value=" {,3}\[[^\]]+\]:"/>
 <entity name="Rule" value=" {,3}(?:(?:\*\s*){3,}$|(?:-\s*){3,}$|(?:_\s*){3,}$)"/>
 <entity name="URI" value="(?:http|https|ftp|file):\/\/[^&gt;]*"/>
+<entity name="Html" value="(?:ADDRESS|ARTICLE|ASIDE|BASE|BASEFONT|BLOCKQUOTE|BODY|CAPTION|CENTER|COL|COLGROUP|DD|DETAILS|DIALOG|DIR|DIV|DL|DT|FIELDSET|FIGCAPTION|FIGURE|FOOTER|FORM|FRAME|FRAMESET|H1|H2|H3|H4|H5|H6|HEAD|HEADER|HR|HTML|IFRAME|LEGEND|LI|LINK|MAIN|MENU|MENUITEM|NAV|NOFRAMES|OL|OPTGROUP|OPTION|P|PARAM|SECTION|SOURCE|SUMMARY|TABLE|TBODY|TD|TFOOT|TH|THEAD|TITLE|TR|TRACK|UL)"/>
 
 <entity name="Top" value="^(?:\s*$|%Rule;|%Head;|%Ref;|%Abbr;)"/>
 <entity name="LEnd" value="^(?:%Top;|\s*%List2;|%Fence;|%i3;%Quote;)?="/>
@@ -106,16 +111,28 @@ markdown.hrc by Roman Kuzmin, aka NightRoman, 2024-05-22
   start="/(?{start}(?{LinkMark}!?\[))/" end="/(?{end}(?{LinkMark}\](?:\([^)]*\)| ?\[[^\]]*\])?))|%PEnd;/"/>
 </scheme>
 
+<scheme name="Html">
+  <regexp match="/(?{LinkMark}&lt;)(?{LinkText}%URI;|%Email;)(?{LinkMark}&gt;)/"/>
+
+  <block scheme="xml:Attribute"
+    start="/(?{start}(?{xml:element.start.lt}&lt;)(?{xml:element.start.name}%Html;)\b)/"
+    end="/(?{end}(?{xml:element.start.gt}&gt;))/"
+  />
+
+  <regexp match="/(?{xml:element.end.lt}&lt;\/)(?{xml:element.end.name}%Html;)(?{xml:element.end.gt}&gt;)/"/>
+
+  <block scheme="xml:xml"
+    start="/\M&lt;(?:!--|\d?!\w+(?:\s|\/?&gt;|$))/"
+    end="//"
+  />
+</scheme>
+
 <scheme name="Base">
   <inherit scheme="Wrap"/>
   <inherit scheme="Escape"/>
   <inherit scheme="CodeSpan"/>
   <inherit scheme="LinkSpan"/>
-
-  <regexp match="/(?{LinkMark}&lt;)(?{LinkText}%URI;|%Email;)(?{LinkMark}&gt;)/"/>
-
-  <block scheme="xml:xml"
-  start="/\M&lt;(?:!--|\d?!\w+(?:\s|\/?&gt;|$))/" end="//"/>
+  <inherit scheme="Html"/>
 </scheme>
 
 <scheme name="EmSpan">