runtime/ftplugin/hamster.vim

   1 " Vim filetype plugin
   2 " Language:    Hamster Script
   3 " Version:     2.0.6.0
   4 " Maintainer:  David Fishburn <fishburn@ianywhere.com>
   5 " Last Change: Wed Nov 08 2006 12:03:09 PM
   6
   7 " Only do this when not done yet for this buffer
   8 if exists("b:did_ftplugin")
   9   finish
  10 endif
  11
  12 " Don't load another plugin for this buffer
  13 let b:did_ftplugin = 1
  14
  15 let cpo_save = &cpo
  16 set cpo-=C
  17
  18 let b:undo_ftplugin = "setl fo< com< tw< commentstring<"
  19         \ . "| unlet! b:match_ignorecase b:match_words b:match_skip"
  20
  21 " Set 'formatoptions' to break comment lines but not other lines,
  22 " and insert the comment leader when hitting <CR> or using "o".
  23 setlocal fo-=t fo+=croql
  24
  25 " Use the # sign for comments
  26 setlocal comments=:#
  27
  28 " Format comments to be up to 78 characters long
  29 if &tw == 0
  30   setlocal tw=78
  31 endif
  32
  33 " Comments start with a double quote
  34 setlocal commentstring=#%s
  35
  36 " Move around functions.
  37 noremap <silent><buffer> [[ :call search('^\s*sub\>', "bW")<CR>
  38 noremap <silent><buffer> ]] :call search('^\s*sub\>', "W")<CR>
  39 noremap <silent><buffer> [] :call search('^\s*endsub\>', "bW")<CR>
  40 noremap <silent><buffer> ][ :call search('^\s*endsub\>', "W")<CR>
  41
  42 " Move around comments
  43 noremap <silent><buffer> ]# :call search('^\s*#\@!', "W")<CR>
  44 noremap <silent><buffer> [# :call search('^\s*#\@!', "bW")<CR>
  45
  46 " Let the matchit plugin know what items can be matched.
  47 if exists("loaded_matchit")
  48   let b:match_ignorecase = 0
  49   let b:match_words =
  50         \ '\<sub\>:\<return\>:\<endsub\>,' .
  51         \ '\<do\|while\|repeat\|for\>:\<break\>:\<continue\>:\<loop\|endwhile\|until\|endfor\>,' .
  52         \ '\<if\>:\<else\%[if]\>:\<endif\>'
  53
  54   " Ignore ":syntax region" commands, the 'end' argument clobbers if-endif
  55   " let b:match_skip = 'getline(".") =~ "^\\s*sy\\%[ntax]\\s\\+region" ||
  56   "     \ synIDattr(synID(line("."),col("."),1),"name") =~? "comment\\|string"'
  57 endif
  58
  59 setlocal ignorecase
  60 let &cpo = cpo_save
  61 setlocal cpo+=M         " makes \%( match \)