fix(clojure): fix field highlighting (#5319)

queries/clojure/highlights.scm

@@ -63,7 +63,7 @@
 
 ; Constructor
 ((sym_lit) @constructor
- (#lua-match? @constructor "^-\\>[^\\>].*"))
+ (#lua-match? @constructor "^-%>[^>].*"))
 
 ; Builtin dynamic variables
 ((sym_lit) @variable.builtin
@@ -100,12 +100,17 @@
  (#lua-match? @type "^[^/]+[.][^/]*$"))
 
 ; Interop
+; (.instanceMember instance args*)
+; (.instanceMember Classname args*)
 ((sym_lit) @method
- (#lua-match? @method "^[.][^-]"))
+ (#lua-match? @method "^%.[^-]"))
+; (.-instanceField instance)
 ((sym_lit) @field
- (#lua-match? @field "^[.]-"))
+ (#lua-match? @field "^%.%-.*"))
+;  Classname/staticField
 ((sym_lit) @field
  (#lua-match? @field "^[%u].*/.+"))
+; (Classname/staticMethod args*)
 (list_lit
  .
  (sym_lit) @method

tests/query/highlights/clojure/test.clj

@@ -0,0 +1,52 @@
+(ns test {:clj-kondo/ignore true})
+; <- punctuation.bracket
+; ^ include
+;    ^ namespace
+
+ ; asdf
+;^^^^^^ comment
+
+ #_ abc
+;^^^^^^ comment
+
+(func obj)
+;^^^^ function.call
+;     ^^^ variable
+
+ #(+ % %1 %&)
+;^ punctuation.special
+;  ^ function.call
+;    ^ ^^ ^^ variable.builtin
+
+ &
+;^ parameter
+
+ ->abc
+;^^^^^ constructor
+
+ ->>abc
+;^^^^^^ variable
+
+ *1 *2 *3 *e
+;^^ ^^ ^^ ^^ variable.builtin
+
+(.method)
+;^^^^^^^ method
+
+(.-field)
+;^^^^^^^ field
+
+ Abc/method
+;^^^^^^^^^^ field
+
+(Abc/method)
+;^^^^^^^^^^ method
+
+ Abc
+;^^^ type
+
+ abc.
+;^^^^ type
+
+ ^abc
+;^ punctuation.special