diff --git a/lib/highlight.tcl b/lib/highlight.tcl
index 2ad14eb..bf9c3e5 100644
--- a/lib/highlight.tcl
+++ b/lib/highlight.tcl
@@ -88,12 +88,21 @@ namespace eval Highlight {} {
}
proc XML {txt} {
ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
- ctext::addHighlightClassForRegexp $txt stackControl #19a2a6 {(<|<\\)*?[\w]+>}
+ ctext::addHighlightClassForRegexp $txt stackControl #19a2a6 {(<|<\\)*?[\w]+(/|)(>)}
ctext::addHighlightClassForRegexp $txt vars #4471ca {(\$|\*|\&)[\.a-zA-Z0-9\_\-]+}
ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
# ctext::addHighlightClassForRegexp $txt paths lightblue {\.[a-zA-Z0-9\_\-]+}
# ctext::addHighlightClassForRegexp $txt comments #666666 {(#|//)[^\n\r]*}
- ctext::addHighlightClassForSpecialChars $txt tags #666666 {<>/}
+ ctext::addHighlightClassForSpecialChars $txt tags lightgreen {<>/}
+ }
+ proc HTML {txt} {
+ ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
+ ctext::addHighlightClassForRegexp $txt stackControl #19a2a6 {(<|)([\w]+)}
+ ctext::addHighlightClassForRegexp $txt vars #4471ca {(\$|\*|\&)[\.a-zA-Z0-9\_\-]+}
+ ctext::addHighlightClassForSpecialChars $txt brackets green {[]{}()}
+ ctext::addHighlightClassForRegexp $txt paths lightblue {(\s)([\w]+)(=)}
+ ctext::addHighlightClassForSpecialChars $txt tags lightgreen {<>/}
+ ctext::addHighlightClassForRegexp $txt comments #666666 {(<\!--)\s*(.+)\s*(-->)}
}
proc RB {txt} {
ctext::addHighlightClassForRegexp $txt qoute #b84a0c {("|'|`).*?("|'|`)}
diff --git a/lib/lexers.tcl b/lib/lexers.tcl
index 874a45b..096c035 100644
--- a/lib/lexers.tcl
+++ b/lib/lexers.tcl
@@ -71,5 +71,10 @@ dict set lexers INI tabSize 4
dict set lexers INI procFindString {(\[)PROCNAME(\])}
dict set lexers INI procRegexpCommand {regexp -nocase -all -- {^\s*?(\[)([a-zA-Z0-9\-_:]+?)(\])$} $line match keyWord procName}
+dict set lexers HTML commentSymbol {<\!--}
+dict set lexers HTML tabSize 4
+dict set lexers HTML procFindString {(<.+>|)PROCNAME(|)}
+dict set lexers HTML procRegexpCommand {regexp -nocase -all -- {(<.+>|)(.+?)(|)} $line match v1 procName v2}
+
# -------------------------------------------------
dict set lexers ALL varDirectory {variables vars group_vars host_vars defaults}