mirror of
https://github.com/nvim-treesitter/nvim-treesitter.git
synced 2026-07-04 04:20:09 -04:00
09efcdb049
Units were shadowed by the punctuation highlights in all situations. Restrict the context where parentheses are highlighted as punctuation so () can be highlighted as constants. Signed-off-by: Pau Ruiz Safont <unduthegun@gmail.com>
174 lines
3.4 KiB
Scheme
174 lines
3.4 KiB
Scheme
; Modules
|
|
;--------
|
|
|
|
[(module_name) (module_type_name)] @namespace
|
|
|
|
; Types
|
|
;------
|
|
|
|
(
|
|
(type_constructor) @type.builtin
|
|
(#any-of? @type.builtin
|
|
"int" "char" "bytes" "string" "float"
|
|
"bool" "unit" "exn" "array" "list" "option"
|
|
"int32" "int64" "nativeint" "format6" "lazy_t")
|
|
)
|
|
|
|
[(class_name) (class_type_name) (type_constructor)] @type
|
|
|
|
[(constructor_name) (tag)] @constructor
|
|
|
|
; Functions
|
|
;----------
|
|
|
|
(let_binding
|
|
pattern: (value_name) @function
|
|
(parameter))
|
|
|
|
(let_binding
|
|
pattern: (value_name) @function
|
|
body: [(fun_expression) (function_expression)])
|
|
|
|
(value_specification (value_name) @function)
|
|
|
|
(external (value_name) @function)
|
|
|
|
(method_name) @method
|
|
|
|
; Variables
|
|
;----------
|
|
|
|
[(value_name) (type_variable)] @variable
|
|
|
|
(value_pattern) @parameter
|
|
|
|
; Application
|
|
;------------
|
|
|
|
(infix_expression
|
|
left: (value_path (value_name) @function)
|
|
(infix_operator) @operator
|
|
(#eq? @operator "@@"))
|
|
|
|
(infix_expression
|
|
(infix_operator) @operator
|
|
right: (value_path (value_name) @function)
|
|
(#eq? @operator "|>"))
|
|
|
|
(application_expression
|
|
function: (value_path (value_name) @function))
|
|
|
|
(
|
|
(value_name) @function.builtin
|
|
(#match? @function.builtin "^(raise(_notrace)?|failwith|invalid_arg)$")
|
|
)
|
|
|
|
; Properties
|
|
;-----------
|
|
|
|
[(label_name) (field_name) (instance_variable_name)] @property
|
|
|
|
; Constants
|
|
;----------
|
|
|
|
; Don't let normal parens take priority over this
|
|
((unit) @constant.builtin (#set! "priority" 105))
|
|
|
|
(boolean) @boolean
|
|
|
|
[(number) (signed_number)] @number
|
|
|
|
(character) @character
|
|
|
|
(string) @string
|
|
|
|
(quoted_string "{" @string "}" @string) @string
|
|
|
|
(escape_sequence) @string.escape
|
|
|
|
[
|
|
(conversion_specification)
|
|
(pretty_printing_indication)
|
|
] @string.special
|
|
|
|
; Keywords
|
|
;---------
|
|
|
|
[
|
|
"and" "as" "assert" "begin" "class" "constraint"
|
|
"end" "external" "in"
|
|
"inherit" "initializer" "lazy" "let" "match" "method" "module"
|
|
"mutable" "new" "nonrec" "object" "of" "private" "rec" "sig" "struct"
|
|
"type" "val" "virtual" "when" "with"
|
|
] @keyword
|
|
|
|
["fun" "function" "functor"] @keyword.function
|
|
|
|
["if" "then" "else"] @conditional
|
|
|
|
["exception" "try"] @exception
|
|
|
|
["include" "open"] @include
|
|
|
|
["for" "to" "downto" "while" "do" "done"] @repeat
|
|
|
|
; Punctuation
|
|
;------------
|
|
|
|
(attribute ["[@" "]"] @punctuation.special)
|
|
(item_attribute ["[@@" "]"] @punctuation.special)
|
|
(floating_attribute ["[@@@" "]"] @punctuation.special)
|
|
(extension ["[%" "]"] @punctuation.special)
|
|
(item_extension ["[%%" "]"] @punctuation.special)
|
|
(quoted_extension ["{%" "}"] @punctuation.special)
|
|
(quoted_item_extension ["{%%" "}"] @punctuation.special)
|
|
|
|
"%" @punctuation.special
|
|
|
|
["(" ")" "[" "]" "{" "}" "[|" "|]" "[<" "[>"] @punctuation.bracket
|
|
|
|
(object_type ["<" ">"] @punctuation.bracket)
|
|
|
|
[
|
|
"," "." ";" ":" "=" "|" "~" "?" "+" "-" "!" ">" "&"
|
|
"->" ";;" ":>" "+=" ":=" ".."
|
|
] @punctuation.delimiter
|
|
|
|
; Operators
|
|
;----------
|
|
|
|
[
|
|
(prefix_operator)
|
|
(sign_operator)
|
|
(infix_operator)
|
|
(hash_operator)
|
|
(indexing_operator)
|
|
(let_operator)
|
|
(and_operator)
|
|
(match_operator)
|
|
] @operator
|
|
|
|
(match_expression (match_operator) @keyword)
|
|
|
|
(value_definition [(let_operator) (and_operator)] @keyword)
|
|
|
|
;; TODO: this is an error now
|
|
;(prefix_operator "!" @operator)
|
|
|
|
(infix_operator ["&" "+" "-" "=" ">" "|" "%"] @operator)
|
|
|
|
(signed_number ["+" "-"] @operator)
|
|
|
|
["*" "#" "::" "<-"] @operator
|
|
|
|
; Attributes
|
|
;-----------
|
|
|
|
(attribute_id) @property
|
|
|
|
; Comments
|
|
;---------
|
|
|
|
[(comment) (line_number_directive) (directive) (shebang)] @comment
|
|
|
|
(ERROR) @error
|