blob: 17597734b8c7ccca255ac54c5735d68761834c7b (
plain)
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
|
" Vim indent file
" Language: tf (TinyFugue)
" Maintainer: Christian J. Robinson <heptite@gmail.com>
" URL: http://christianrobinson.name/vim/indent/tf.vim
" Last Change: 2002 May 29
" Only load this indent file when no other was loaded.
if exists("b:did_indent")
finish
endif
let b:did_indent = 1
setlocal indentexpr=GetTFIndent()
setlocal indentkeys-=0{,0} indentkeys-=0# indentkeys-=:
setlocal indentkeys+==/endif,=/then,=/else,=/done,0;
" Only define the function once:
if exists("*GetTFIndent")
finish
endif
function GetTFIndent()
" Find a non-blank line above the current line:
let lnum = prevnonblank(v:lnum - 1)
" No indent for the start of the file:
if lnum == 0
return 0
endif
let ind = indent(lnum)
let line = getline(lnum)
" No indentation if the previous line didn't end with "\":
" (Could be annoying, but it lets you know if you made a mistake.)
if line !~ '\\$'
return 0
endif
if line =~ '\(/def.*\\\|/for.*\(%;\s*\)\@\<!\\\)$'
let ind = ind + &sw
elseif line =~ '\(/if\|/else\|/then\)'
if line !~ '/endif'
let ind = ind + &sw
endif
elseif line =~ '/while'
if line !~ '/done'
let ind = ind + &sw
endif
endif
let line = getline(v:lnum)
if line =~ '\(/else\|/endif\|/then\)'
if line !~ '/if'
let ind = ind - &sw
endif
elseif line =~ '/done'
if line !~ '/while'
let ind = ind - &sw
endif
endif
" Comments at the beginning of a line:
if line =~ '^\s*;'
let ind = 0
endif
return ind
endfunction
|
