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
84
85
86
87
88
|
" Vim Indentation file
" Language: Myrddin
" Maintainer: Ori Bernstein
if exists("b:did_indent")
finish
endif
function! Quoted(lnum, col)
let stk = synstack(a:lnum, a:col)
for id in stk
let a = synIDattr(id, "name")
if a == "myrComment" || a == "myrString" || a == "myrChar"
return 1
endif
endfor
return 0
endfunction
function! s:CountMatches(line, lnum, pats)
let matches = 0
for p in a:pats
let idx = 0
while idx >= 0
let idx = match(a:line, p, idx)
if idx >= 0
let ic = Quoted(a:lnum, idx)
if !ic
let matches = matches + 1
endif
let idx = idx + strlen(p)
endif
endwhile
endfor
return matches
endfunction
function! s:LineMatch(line, pats)
for p in a:pats
let pat = '^\s*'.p.'\s*$'
if match(a:line, pat, 0) >= 0
return 1
endif
endfor
return 0
endfunction
function! GetMyrIndent(ln)
let ln = a:ln
if ln == 1
let ind = 0
else
let i = 1
let prevln = ''
while prevln =~ '^\s*$'
let prevln = getline(ln - i)
let ind = indent(ln - i)
let i = i + 1
endwhile
let i = i - 1
let curln = getline(ln)
let inpat = ['\<if\>', '\<elif\>', '\<else\>',
\ '\<while\>','\<for\>', '\<match\>',
\ '\<struct\>', '\<union\>',
\ '{', '\[', '^\s*|', '=\s*$']
let outpat = ['}', ']', ';;']
let outalone = ['\<else\>', '\<elif\>.*', '}.*', '^\s*].*', ';;', '|.*']
let width = &tabstop
let n_in = s:CountMatches(prevln, ln - i, inpat)
let n_out = s:CountMatches(prevln, ln - i, outpat)
if s:LineMatch(curln, outalone) != 0
let ind = ind + (n_in - n_out - 1) * &tabstop
" avoid double-counting outdents from outalones.
elseif s:LineMatch(prevln, outpat) == 0
let ind = ind + (n_in - n_out) * &tabstop
endif
endif
return ind
endfunction
setlocal indentkeys+=,;\|],=elif
setlocal indentexpr=GetMyrIndent(v:lnum)
let b:did_indent = 1
|
