Unnamed repository; edit this file 'description' to name the repository.
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
; Function definitions (defn, defn-, defmacro, defmethod, etc.)
(list_lit
  .
  (sym_lit) @_keyword
  .
  (sym_lit)
  (_)* @function.inside
  (#match? @_keyword "^(defn|defn-|defmacro|defmethod|defmulti|definline)$")) @function.around

; Anonymous functions (fn)
(list_lit
  .
  (sym_lit) @_fn
  (_)* @function.inside
  (#match? @_fn "^fn$")) @function.around

; Anonymous function shorthand #()
(anon_fn_lit
  (_)* @function.inside) @function.around

; deftype, defrecord, defprotocol
(list_lit
  .
  (sym_lit) @_keyword
  .
  (sym_lit)
  (_)* @class.inside
  (#match? @_keyword "^(deftype|defrecord|defprotocol|definterface|defstruct)$")) @class.around

; Test definitions (deftest)
(list_lit
  .
  (sym_lit) @_keyword
  .
  (sym_lit)
  (_)* @test.inside
  (#match? @_keyword "^deftest$")) @test.around

; Function parameters in vectors
(vec_lit
  (_)* @parameter.inside) @parameter.around

; List entries
(list_lit
  (_) @entry.inside @entry.around)

; Vector entries
(vec_lit
  (_) @entry.inside @entry.around)

; Map entries
(map_lit
  (_) @entry.inside @entry.around)

; Set entries
(set_lit
  (_) @entry.inside @entry.around)

; Comments
(comment) @comment.inside
(comment)+ @comment.around

; Discard expressions (also treated as comments)
(dis_expr) @comment.inside

; Comment special form (comment ...)
(list_lit
  .
  (sym_lit) @_comment
  (_)* @comment.inside
  (#match? @_comment "^comment$")) @comment.around