home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / unix / vim-6.2.tar.bz2 / vim-6.2.tar / vim62 / runtime / indent / tilde.vim < prev    next >
Encoding:
Text File  |  2003-04-25  |  994 b   |  37 lines
  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
  37.