tagging: case insensitive match for defclass and make-instance, also check for boundaries (only exact match instead of them being substrins of the symbol name) (#19)

2023-06-10 03:16:57 +07:00 · 2023-06-10 03:16:57 +07:00 · 62c09971f0
parent ff0c1850cf
commit 62c09971f0
1 changed files with 2 additions and 2 deletions
--- a/queries/tags.scm
+++ b/queries/tags.scm
@ -47,10 +47,10 @@

 (list_lit . [(sym_lit) (package_lit)] @ignore
          . [(sym_lit) (package_lit)] @name
-  (#match? @ignore "(cl:defclass|defclass)")
+  (#match? @ignore "(?i)^(cl:)?defclass$")
          ) @definition.class

 (list_lit . [(sym_lit) (package_lit)] @ignore
          . (quoting_lit [(sym_lit) (package_lit)] @name)
-  (#match? @ignore "(cl:make-instance|make-instance)")
+  (#match? @ignore "(?i)^(cl:)?make-instance$")
          ) @reference.class