From 62c09971f066824374d72609fcdc1cf9e0a30c43 Mon Sep 17 00:00:00 2001 From: Anton Vodonosov Date: Sat, 10 Jun 2023 03:16:57 +0300 Subject: [PATCH] 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) --- queries/tags.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/queries/tags.scm b/queries/tags.scm index ad264d933..f9143c216 100644 --- 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