Mercurial > vim
annotate runtime/ftplugin/j.vim @ 5854:c519c446c548 v7.4.270
updated for version 7.4.270
Problem: Comparing pointers instead of the string they point to.
Solution: Use strcmp(). (Ken Takata)
| author | Bram Moolenaar <bram@vim.org> |
|---|---|
| date | Tue, 29 Apr 2014 15:11:43 +0200 |
| parents | d735e62f5925 |
| children | 198e1e498edf |
| rev | line source |
|---|---|
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
1 " Vim filetype plugin |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
2 " Language: J |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
3 " Maintainer: David Bürgin <676c7473@gmail.com> |
| 5734 | 4 " URL: https://github.com/glts/vim-j |
| 5815 | 5 " Last Change: 2014-04-05 |
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
6 |
| 5734 | 7 if exists('b:did_ftplugin') |
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
8 finish |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
9 endif |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
10 let b:did_ftplugin = 1 |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
11 |
| 5815 | 12 let s:save_cpo = &cpo |
| 13 set cpo&vim | |
| 14 | |
| 15 setlocal iskeyword=48-57,A-Z,_,a-z | |
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
16 setlocal comments=:NB. |
|
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
17 setlocal commentstring=NB.\ %s |
| 5425 | 18 setlocal formatoptions-=t |
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
19 setlocal shiftwidth=2 softtabstop=2 expandtab |
| 5425 | 20 setlocal matchpairs=(:) |
|
5362
ab1508486b12
Update runtime files. Add support for J.
Bram Moolenaar <bram@vim.org>
parents:
diff
changeset
|
21 |
| 5734 | 22 let b:undo_ftplugin = 'setlocal matchpairs< expandtab< softtabstop< shiftwidth< formatoptions< commentstring< comments< iskeyword<' |
| 5815 | 23 |
| 24 " Section movement with ]] ][ [[ []. The start/end patterns below are amended | |
| 25 " inside the function in order to avoid matching on the current cursor line. | |
| 26 let s:sectionstart = '.\{-}\<\%([0-4]\|13\|noun\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(:\s*0\|def\s\+0\|define\)\>.*' | |
| 27 let s:sectionend = '\s*)\s*' | |
| 28 | |
| 29 function! s:SearchSection(end, backwards, visualmode) abort | |
| 30 if a:visualmode !=# '' | |
| 31 normal! gv | |
| 32 endif | |
| 33 let flags = a:backwards ? 'bsW' : 'sW' | |
| 34 if a:end | |
| 35 call search('^' . s:sectionend . (a:backwards ? '\n\_.\{-}\%#' : '$'), flags) | |
| 36 else | |
| 37 call search('^' . s:sectionstart . (a:backwards ? '\n\_.\{-}\%#' : '$'), flags) | |
| 38 endif | |
| 39 endfunction | |
| 40 | |
| 41 noremap <script> <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, '')<CR> | |
| 42 xnoremap <script> <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, visualmode())<CR> | |
| 43 sunmap <buffer> ]] | |
| 44 noremap <script> <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, '')<CR> | |
| 45 xnoremap <script> <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, visualmode())<CR> | |
| 46 sunmap <buffer> ][ | |
| 47 noremap <script> <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, '')<CR> | |
| 48 xnoremap <script> <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, visualmode())<CR> | |
| 49 sunmap <buffer> [[ | |
| 50 noremap <script> <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, '')<CR> | |
| 51 xnoremap <script> <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, visualmode())<CR> | |
| 52 sunmap <buffer> [] | |
| 53 | |
| 54 let b:undo_ftplugin .= ' | silent! execute "unmap <buffer> ]]"' | |
| 55 \ . ' | silent! execute "unmap <buffer> ]["' | |
| 56 \ . ' | silent! execute "unmap <buffer> [["' | |
| 57 \ . ' | silent! execute "unmap <buffer> []"' | |
| 58 | |
| 59 " Browse dialog filter on Windows (see ":help browsefilter") | |
| 60 if has('gui_win32') && !exists('b:browsefilter') | |
| 61 let b:browsefilter = "J Script Files (*.ijs)\t*.ijs\n" | |
| 62 \ . "All Files (*.*)\t*.*\n" | |
| 63 let b:undo_ftplugin .= ' | unlet! b:browsefilter' | |
| 64 endif | |
| 65 | |
| 66 " Enhanced "%" matching (see ":help matchit") | |
| 67 if exists('loaded_matchit') && !exists('b:match_words') | |
| 68 let b:match_ignorecase = 0 | |
| 69 let b:match_words = '^.\{-}\<\%([0-4]\|13\|noun\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(\:\s*0\|def\s\+0\|define\)\>:^\s*\:\s*$:^\s*)\s*$' | |
| 70 \ . ',\<\%(for\%(_\a\k*\)\=\|if\|select\|try\|whil\%(e\|st\)\)\.:\<\%(case\|catch[dt]\=\|else\%(if\)\=\|fcase\)\.:\<end\.' | |
| 71 let b:undo_ftplugin .= ' | unlet! b:match_ignorecase b:match_words' | |
| 72 endif | |
| 73 | |
| 74 let &cpo = s:save_cpo | |
| 75 unlet s:save_cpo |