196 lines
2.9 KiB
Scheme
196 lines
2.9 KiB
Scheme
; ----------------------------------------------------------------------------
|
|
; Literals and comments
|
|
[
|
|
(integer)
|
|
(exp_negation)
|
|
] @number
|
|
|
|
(exp_literal
|
|
(number)) @number.float
|
|
|
|
(char) @character
|
|
|
|
[
|
|
(string)
|
|
(triple_quote_string)
|
|
] @string
|
|
|
|
(comment) @comment @spell
|
|
|
|
; ----------------------------------------------------------------------------
|
|
; Punctuation
|
|
[
|
|
"("
|
|
")"
|
|
"{"
|
|
"}"
|
|
"["
|
|
"]"
|
|
] @punctuation.bracket
|
|
|
|
[
|
|
(comma)
|
|
";"
|
|
(qualified_module) ; grabs the `.` (dot), ex: import System.IO
|
|
"."
|
|
] @punctuation.delimiter
|
|
|
|
; ----------------------------------------------------------------------------
|
|
; Keywords, operators, includes
|
|
[
|
|
"if"
|
|
"then"
|
|
"else"
|
|
"case"
|
|
"of"
|
|
] @keyword.conditional
|
|
|
|
[
|
|
"import"
|
|
"module"
|
|
] @keyword.import
|
|
|
|
[
|
|
(operator)
|
|
(constructor_operator)
|
|
(type_operator)
|
|
(all_names)
|
|
"="
|
|
"|"
|
|
"::"
|
|
"∷"
|
|
"=>"
|
|
"⇒"
|
|
"<="
|
|
"⇐"
|
|
"->"
|
|
"→"
|
|
"<-"
|
|
"←"
|
|
"\\"
|
|
"`"
|
|
"@"
|
|
] @operator
|
|
|
|
(qualified_module
|
|
(module) @constructor)
|
|
|
|
(module) @module
|
|
|
|
(qualified_type
|
|
(module) @module)
|
|
|
|
(qualified_variable
|
|
(module) @module)
|
|
|
|
(import
|
|
(module) @module)
|
|
|
|
[
|
|
(where)
|
|
"let"
|
|
"in"
|
|
"instance"
|
|
"derive"
|
|
"foreign"
|
|
"data"
|
|
"as"
|
|
"hiding"
|
|
"do"
|
|
"ado"
|
|
"forall"
|
|
"∀"
|
|
"infix"
|
|
"infixl"
|
|
"infixr"
|
|
] @keyword
|
|
|
|
[
|
|
"type"
|
|
"newtype"
|
|
"class"
|
|
] @keyword.type
|
|
|
|
(class_instance
|
|
"else" @keyword)
|
|
|
|
(type_role_declaration
|
|
"role" @keyword
|
|
role: (type_role) @keyword.modifier)
|
|
|
|
(hole) @character.special
|
|
|
|
; `_` wildcards in if-then-else and case-of expressions,
|
|
; as well as record updates and operator sections
|
|
(wildcard) @variable.parameter
|
|
|
|
; ----------------------------------------------------------------------------
|
|
; Functions and variables
|
|
(variable) @variable
|
|
|
|
(exp_apply
|
|
.
|
|
(exp_name
|
|
(variable) @function))
|
|
|
|
(exp_apply
|
|
.
|
|
(exp_name
|
|
(qualified_variable
|
|
(variable) @function)))
|
|
|
|
(row_field
|
|
(field_name) @variable.member)
|
|
|
|
(record_field
|
|
(field_name) @variable.member)
|
|
|
|
(record_accessor
|
|
(variable) @variable.member)
|
|
|
|
(exp_record_access
|
|
(variable) @variable.member)
|
|
|
|
(signature
|
|
name: (variable) @type)
|
|
|
|
(kind_declaration
|
|
(class_name) @type)
|
|
|
|
(function
|
|
name: (variable) @function)
|
|
|
|
(foreign_import
|
|
(variable) @function)
|
|
|
|
(class_instance
|
|
(instance_name) @function)
|
|
|
|
(derive_declaration
|
|
(instance_name) @function)
|
|
|
|
; true or false
|
|
((variable) @boolean
|
|
(#any-of? @boolean "true" "false"))
|
|
|
|
; The former one works for `tree-sitter highlight` but not in Helix/Kakoune.
|
|
; The latter two work in Helix (but not Kakoune) and are a good compromise between not highlighting anything at all
|
|
; as an operator and leaving it to the child nodes, and highlighting everything as an operator.
|
|
(exp_ticked
|
|
(_) @operator)
|
|
|
|
(exp_ticked
|
|
(exp_name
|
|
(variable) @operator))
|
|
|
|
(exp_ticked
|
|
(exp_name
|
|
(qualified_variable
|
|
(variable) @operator)))
|
|
|
|
; ----------------------------------------------------------------------------
|
|
; Types
|
|
(type) @type
|
|
|
|
(constructor) @constructor
|