blob: 4303986fb958d787b6dcf91458a38ae57ab29a18 (
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
|
if exists('b:did_indent')
finish
endif
let b:did_indent = 1
setlocal indentexpr=GetBeancountIndent(v:lnum)
if exists('*GetBeancountIndent')
finish
endif
function! s:IsDirective(str)
return a:str =~# '\v^\s*(\d{4}-\d{2}-\d{2}|pushtag|poptag|option|plugin|include)'
endfunction
function! s:IsPosting(str)
return a:str =~# '\v^\s*[A-Z]\w+:'
endfunction
function! s:IsMetadata(str)
return a:str =~# '\v^\s*[a-z][a-zA-Z0-9\-_]+:'
endfunction
function! s:IsTransaction(str)
" The final \S represents the flag (e.g. * or !).
return a:str =~# '\v^\s*\d{4}-\d{2}-\d{2}\s+(txn\s+)?\S(\s|$)'
endfunction
function GetBeancountIndent(line_num)
let l:this_line = getline(a:line_num)
let l:prev_line = getline(a:line_num - 1)
" Don't touch comments
if l:this_line =~# '\v^\s*;' | return -1 | endif
" This is a new directive or previous line is blank.
if l:prev_line =~# '^\s*$' || s:IsDirective(l:this_line) | return 0 | endif
" Previous line is transaction or this is a posting.
if s:IsTransaction(l:prev_line) || s:IsPosting(l:this_line) | return &shiftwidth | endif
if s:IsMetadata(l:this_line)
let l:this_indent = indent(a:line_num - 1)
if ! s:IsMetadata(l:prev_line) | let l:this_indent += &shiftwidth | endif
return l:this_indent
endif
return -1
endfunction
|
