helix - 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

; If a list has 2 elements on the first line, align to the second element.
; Exclude literals and special keywords that have different indentation rules.
(list_lit . (_) @first . (_) @anchor
  (#same-line? @first @anchor)
  (#set! "scope" "tail")
  (#not-kind-eq? @first "bool_lit")
  (#not-kind-eq? @first "nil_lit")
  (#not-kind-eq? @first "str_lit")
  (#not-kind-eq? @first "num_lit")
  (#not-kind-eq? @first "kwd_lit")
  (#not-match? @first "^(def|defn|defn-|defmacro|defmethod|defmulti|defonce|defprotocol|deftype|defrecord|defstruct|definline|definterface|deftest|ns|let|letfn|binding|loop|for|doseq|dotimes|when-let|if-let|when-some|if-some|with-.*|fn)$")) @align

; If the first element in a list is also a list and on a line by itself,
; the outer list is aligned to it
(list_lit . (list_lit) @anchor .
  (#set! "scope" "tail")) @align

(list_lit . (list_lit) @anchor . (_) @second
  (#not-same-line? @anchor @second)
  (#set! "scope" "tail")) @align

; If the first element in a list is not a list and on a line by itself,
; indent the list body by one level
(list_lit . (_) @first .
  (#not-kind-eq? @first "bool_lit")
  (#not-kind-eq? @first "nil_lit")
  (#not-kind-eq? @first "str_lit")
  (#not-kind-eq? @first "num_lit")
  (#not-kind-eq? @first "kwd_lit")
  (#not-match? @first "^(def|defn|defn-|defmacro|defmethod|defmulti|defonce|defprotocol|deftype|defrecord|defstruct|definline|definterface|deftest|ns|let|letfn|binding|loop|for|doseq|dotimes|when-let|if-let|when-some|if-some|with-.*|fn)$")) @indent

(list_lit . (_) @first . (_) @second
  (#not-same-line? @first @second)
  (#not-kind-eq? @first "bool_lit")
  (#not-kind-eq? @first "nil_lit")
  (#not-kind-eq? @first "str_lit")
  (#not-kind-eq? @first "num_lit")
  (#not-kind-eq? @first "kwd_lit")
  (#not-match? @first "^(def|defn|defn-|defmacro|defmethod|defmulti|defonce|defprotocol|deftype|defrecord|defstruct|definline|definterface|deftest|ns|let|letfn|binding|loop|for|doseq|dotimes|when-let|if-let|when-some|if-some|with-.*|fn)$")) @indent

; If the first element is a literal, align the list to it
(list_lit . [(bool_lit) (nil_lit) (str_lit) (num_lit) (kwd_lit)] @anchor
  (#set! "scope" "tail")) @align

; Special indentation for def-like forms, let bindings, and other special forms
; These forms typically have the body indented by one level after the name/bindings
(list_lit . (sym_lit) @first
  (#match? @first "^(def|defn|defn-|defmacro|defmethod|defmulti|defonce|defprotocol|deftype|defrecord|defstruct|definline|definterface|deftest|ns|let|letfn|binding|loop|for|doseq|dotimes|when-let|if-let|when-some|if-some|with-.*|fn)$")) @indent

; Align vector/map elements when first two are on same line (e.g., let bindings)
(vec_lit . (_) @anchor . (_) @second
  (#same-line? @anchor @second)
  (#set! "scope" "tail")) @align

(map_lit . (_) @anchor . (_) @second
  (#same-line? @anchor @second)
  (#set! "scope" "tail")) @align

; Indent vectors, maps, and sets
[(vec_lit) (map_lit) (set_lit)] @indent