dearwolf/aider
1
0
Fork 0
mirror of https://github.com/Aider-AI/aider.git synced 2025-06-11 23:25:01 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

refactor: Update CommonLisp tags to use more specific @name.* tags

Browse source
This commit is contained in:
Paul Gauthier (aider) 2025-03-12 14:18:40 -07:00
parent c0b9665cfc
commit 9a88363437
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
aider/queries/tree-sitter-language-pack/commonlisp-tags.scm
View file

@ -2,7 +2,7 @@
;;; Function Definitions ;;;;;;;;;;;;;;;;;;;;;;; ;;; Function Definitions ;;;;;;;;;;;;;;;;;;;;;;;
(defun_header (defun_header
function_name: (sym_lit) @name) @definition.function function_name: (sym_lit) @name.definition.function) @definition.function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Function Calls ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Function Calls ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -37,9 +37,9 @@
;; ;;
;; - exclude var, var2 ;; - exclude var, var2
;; - the same for let*, flet, labels, macrolet, symbol-macrolet ;; - the same for let*, flet, labels, macrolet, symbol-macrolet
(list_lit . [(sym_lit) (package_lit)] @name (list_lit . [(sym_lit) (package_lit)] @name.reference.call
. (list_lit (list_lit . [(sym_lit) (package_lit)] @ignore)) . (list_lit (list_lit . [(sym_lit) (package_lit)] @ignore))
(#match? @name (#match? @name.reference.call
"(?i)^(cl:)?(let|let\\*|flet|labels|macrolet|symbol-macrolet)$") "(?i)^(cl:)?(let|let\\*|flet|labels|macrolet|symbol-macrolet)$")
) )
@ -76,18 +76,18 @@
;; Include all other cases - list literal with symbol as the ;; Include all other cases - list literal with symbol as the
;; first element ;; first element
(list_lit . [(sym_lit) (package_lit)] @name) @reference.call (list_lit . [(sym_lit) (package_lit)] @name.reference.call) @reference.call
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; classes ;;; classes
(list_lit . [(sym_lit) (package_lit)] @ignore (list_lit . [(sym_lit) (package_lit)] @ignore
. [(sym_lit) (package_lit)] @name . [(sym_lit) (package_lit)] @name.definition.class
(#match? @ignore "(?i)^(cl:)?defclass$") (#match? @ignore "(?i)^(cl:)?defclass$")
) @definition.class ) @definition.class
(list_lit . [(sym_lit) (package_lit)] @ignore (list_lit . [(sym_lit) (package_lit)] @ignore
. (quoting_lit [(sym_lit) (package_lit)] @name) . (quoting_lit [(sym_lit) (package_lit)] @name.reference.class)
(#match? @ignore "(?i)^(cl:)?make-instance$") (#match? @ignore "(?i)^(cl:)?make-instance$")
) @reference.class ) @reference.class