runtime/indent/hamster.vim

   1 " Vim indent file
   2 " Language:    Hamster Script
   3 " Version:     2.0.6.0
   4 " Last Change: Wed Nov 08 2006 12:02:42 PM
   5 " Maintainer:  David Fishburn <fishburn@ianywhere.com>
   6
   7 " Only load this indent file when no other was loaded.
   8 if exists("b:did_indent")
   9   finish
  10 endif
  11 let b:did_indent = 1
  12
  13 setlocal indentkeys+==~if,=~else,=~endif,=~endfor,=~endwhile
  14 setlocal indentkeys+==~do,=~until,=~while,=~repeat,=~for,=~loop
  15 setlocal indentkeys+==~sub,=~endsub
  16
  17 " Define the appropriate indent function but only once
  18 setlocal indentexpr=HamGetFreeIndent()
  19 if exists("*HamGetFreeIndent")
  20   finish
  21 endif
  22
  23 function HamGetIndent(lnum)
  24   let ind = indent(a:lnum)
  25   let prevline=getline(a:lnum)
  26
  27   " Add a shiftwidth to statements following if,  else, elseif,
  28   " case, select, default, do, until, while, for, start
  29   if prevline =~? '^\s*\<\(if\|else\%(if\)\?\|for\|repeat\|do\|while\|sub\)\>'
  30     let ind = ind + &sw
  31   endif
  32
  33   " Subtract a shiftwidth from else, elseif, end(if|while|for), until
  34   let line = getline(v:lnum)
  35   if line =~? '^\s*\(else\|elseif\|loop\|until\|end\%(if\|while\|for\|sub\)\)\>'
  36     let ind = ind - &sw
  37   endif
  38
  39   return ind
  40 endfunction
  41
  42 function HamGetFreeIndent()
  43   " Find the previous non-blank line
  44   let lnum = prevnonblank(v:lnum - 1)
  45
  46   " Use zero indent at the top of the file
  47   if lnum == 0
  48     return 0
  49   endif
  50
  51   let ind=HamGetIndent(lnum)
  52   return ind
  53 endfunction
  54
  55 " vim:sw=2 tw=80