r add new highlights

queries/r/highlights.scm

@@ -1,16 +1,25 @@
 ; highlights.scm
 
 (call function: (identifier) @function)
+(call arguments:
+ (arguments
+  name: (identifier) @parameter ))
+
+(lambda_function "\\" @operator)
+
 (namespace_get function: (identifier) @method)
 (namespace_get_internal function: (identifier) @method)
-(namespace_get namespace: (identifier) @namespace )
+
-(namespace_get_internal namespace: (identifier) @namespace )
+(namespace_get namespace: (identifier) @namespace
+ "::" @operator)
+(namespace_get_internal namespace: (identifier) @namespace
+ ":::" @operator)
 
 ; Literals
 
 (integer) @number
 
-(float) @number
+(float) @float
 
 (complex) @number
 
@@ -69,23 +78,43 @@
  "}"
 ] @punctuation.bracket
 
+(dollar "$" @operator)
+
+(subset2
+  "[[" @punctuation.bracket
+  "]]" @punctuation.bracket)
+
 [
- "while"
- "if"
- "else"
- "repeat"
- "for"
  "in"
  (dots)
- (true)
- (false)
  (break)
  (next)
  (inf)
- (nan)
- (na)
- (null)
 ] @keyword
 
+[
+  (nan)
+  (na)
+  (null)
+] @type.builtin
+
+[
+  "if"
+  "else"
+] @conditional
+
+[
+  "while"
+  "repeat"
+  "for"
+] @repeat
+
+[
+  (true)
+  (false)
+] @boolean
 
 "function" @keyword.function
+
+; Error
+(ERROR) @error