feat(queries): Extract html_tags rules (#501)

* feat(queries): Extract html_tags rules

* ignore queries test for html_tags

Author: jcs090218

CHANGELOG.md

@@ -1,6 +1,7 @@
 # Changelog
 
 ## Unreleased
+- feat(queries): Extract `html_tags` rules
 - feat(queries): Extract `ecma` rules
 
 ## 0.12.165 - 2024-03-31

queries/html/highlights.scm

@@ -1,10 +1,7 @@
-(tag_name) @tag
-(erroneous_end_tag_name) @tag.error
+;; inherits: html_tags
+
 (doctype) @constant
-(attribute_name) @attribute
-(attribute_value) @string
-(comment) @comment
 
-"<" @punctuation.bracket
-">" @punctuation.bracket
-"</" @punctuation.bracket
+"<!" @tag.delimiter
+
+(entity) @character.special

queries/html_tags/highlights.scm

@@ -0,0 +1,105 @@
+(tag_name) @tag
+
+; (erroneous_end_tag_name) @error ; we do not lint syntax errors
+(comment) @comment @spell
+
+(attribute_name) @tag.attribute
+
+((attribute
+  (quoted_attribute_value) @string)
+  (#set! "priority" 99))
+
+(text) @none @spell
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading)
+  (#eq? @_tag "title"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.1)
+  (#eq? @_tag "h1"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.2)
+  (#eq? @_tag "h2"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.3)
+  (#eq? @_tag "h3"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.4)
+  (#eq? @_tag "h4"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.5)
+  (#eq? @_tag "h5"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.heading.6)
+  (#eq? @_tag "h6"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.strong)
+  (#any-of? @_tag "strong" "b"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.italic)
+  (#any-of? @_tag "em" "i"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.strikethrough)
+  (#any-of? @_tag "s" "del"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.underline)
+  (#eq? @_tag "u"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @markup.raw)
+  (#any-of? @_tag "code" "kbd"))
+
+((element
+  (start_tag
+    (tag_name) @_tag)
+  (text) @string.special.url)
+  (#eq? @_tag "a"))
+
+((attribute
+  (attribute_name) @_attr
+  (quoted_attribute_value
+    (attribute_value) @string.special.url))
+  (#any-of? @_attr "href" "src"))
+
+[
+  "<"
+  ">"
+  "</"
+  "/>"
+] @tag.delimiter
+
+"=" @operator

queries/svelte/highlights.scm

@@ -1,4 +1,4 @@
-; inherits: html_tags
+;; inherits: html_tags
 (raw_text_expr) @none
 
 [

tree-sitter-langs-tests.el

@@ -20,7 +20,7 @@
   (require 'subr-x))
 
 (defvar tree-sitter-langs-tests-ignore-queries
-  '( psv tsv ecma)
+  '( psv tsv ecma html_tags)
   "List of queries to ignore the test.")
 
 (defun tree-sitter-langs-tests-check-queries (lang-symbol)

tree-sitter-langs.el

@@ -248,10 +248,12 @@ Return nil if there are no bundled patterns."
         (dolist (sym (cons lang-symbol
                            (pcase lang-symbol
                              ('arduino    '(cpp c))
-                             ('astro      '(html))
+                             ('astro      '(html_tags html))
                              ('cpp        '(c))
                              ('csv        '(tsv))
                              ('hlsl       '(cpp c))
+                             ('html       '(html_tags))
+                             ('svelte     '(html_tags))
                              ('javascript '(ecma))
                              ('typescript '(ecma))
                              ('tsx        '(ecma typescript))