| Bram Moolenaar | 9964e46 | 2007-05-05 17:54:07 +0000 | [diff] [blame] | 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 \) |