runtime/indent/tilde.vim

   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