|
7
|
1 "Description: Indent scheme for the tilde weblanguage
|
|
|
2 "Author: Tobias Rundström <tobi@tobi.nu>
|
|
|
3 "URL: http://tilde.tildesoftware.net
|
|
|
4 "Last Change: May 8 09:15:09 CEST 2002
|
|
|
5
|
|
|
6 if exists ("b:did_indent")
|
|
|
7 finish
|
|
|
8 endif
|
|
|
9
|
|
|
10 let b:did_indent = 1
|
|
|
11
|
|
|
12 setlocal autoindent
|
|
|
13 setlocal indentexpr=GetTildeIndent(v:lnum)
|
|
|
14 setlocal indentkeys=o,O,)
|
|
|
15
|
|
|
16 if exists("*GetTildeIndent")
|
|
|
17 finish
|
|
|
18 endif
|
|
|
19
|
|
|
20 function GetTildeIndent(lnum)
|
|
|
21 let plnum = prevnonblank(v:lnum-1)
|
|
|
22
|
|
|
23 if plnum == 0
|
|
|
24 return 0
|
|
|
25 endif
|
|
|
26
|
|
|
27 if getline(v:lnum) =~ '^\s*\~\(endif\|else\|elseif\|end\)\>'
|
|
|
28 return indent(v:lnum) - &sw
|
|
|
29 endif
|
|
|
30
|
|
|
31 if getline(plnum) =~ '^\s*\~\(if\|foreach\|foreach_row\|xml_loop\|file_loop\|file_write\|file_append\|imap_loopsections\|imap_index\|imap_list\|ldap_search\|post_loopall\|post_loop\|file_loop\|sql_loop_num\|sql_dbmsselect\|search\|sql_loop\|post\|for\|function_define\|silent\|while\|setvalbig\|mail_create\|systempipe\|mail_send\|dual\|elseif\|else\)\>'
|
|
|
32 return indent(plnum) + &sw
|
|
|
33 else
|
|
|
34 return -1
|
|
|
35 endif
|
|
|
36 endfunction
|
