aboutsummaryrefslogtreecommitdiff
path: root/runtime/queries/elm/highlights.scm
blob: d02b3a5c69d1604ffd495ffd790e24c166432149 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
; Keywords
[
    "if"
    "then"
    "else"
    "let"
    "in"
 ] @keyword.control
(case) @keyword.control
(of) @keyword.control

(colon) @keyword.operator
(backslash) @keyword
(as) @keyword
(port) @keyword
(exposing) @keyword
(alias) @keyword
(infix) @keyword

(arrow) @keyword.operator
(dot) @keyword.operator

(port) @keyword

(type_annotation(lower_case_identifier) @function)
(port_annotation(lower_case_identifier) @function)
(file (value_declaration (function_declaration_left(lower_case_identifier) @function)))

(field name: (lower_case_identifier) @attribute)
(field_access_expr(lower_case_identifier) @attribute)

(operator_identifier) @keyword.operator
(eq) @keyword.operator.assignment

[
  "("
  ")"
  "["
  "]"
  "{"
  "}"
] @punctuation.bracket

"|" @keyword
"," @punctuation.delimiter

[
  "|>"
] @keyword


(import) @keyword.control.import
(module) @keyword.other

(number_constant_expr) @constant.numeric

(type) @type

(type_declaration(upper_case_identifier) @type)
(type_ref) @type
(type_alias_declaration name: (upper_case_identifier) @type)

(union_pattern constructor: (upper_case_qid (upper_case_identifier) @label (dot) (upper_case_identifier) @variable.other.member)) 
(union_pattern constructor: (upper_case_qid (upper_case_identifier) @variable.other.member)) 

(union_variant(upper_case_identifier) @variable.other.member)
(value_expr name: (value_qid (upper_case_identifier) @label))
(value_expr (upper_case_qid (upper_case_identifier) @label (dot) (upper_case_identifier) @variable.other.member))
(value_expr(upper_case_qid(upper_case_identifier)) @variable.other.member)

; comments
(line_comment) @comment
(block_comment) @comment

; strings
(string_escape) @constant.character.escape

(open_quote) @string
(close_quote) @string
(regular_string_part) @string

(open_char) @constant.character
(close_char) @constant.character