1baca7f70SBram Moolenaar" Vim filetype plugin 2baca7f70SBram Moolenaar" Language: J 3*09c6f265SBram Moolenaar" Maintainer: David Bürgin <[email protected]> 4*09c6f265SBram Moolenaar" URL: https://gitlab.com/glts/vim-j 5*09c6f265SBram Moolenaar" Last Change: 2015-10-27 6baca7f70SBram Moolenaar 7a6878375SBram Moolenaarif exists('b:did_ftplugin') 8baca7f70SBram Moolenaar finish 9baca7f70SBram Moolenaarendif 10baca7f70SBram Moolenaarlet b:did_ftplugin = 1 11baca7f70SBram Moolenaar 1275b8156aSBram Moolenaarlet s:save_cpo = &cpo 1375b8156aSBram Moolenaarset cpo&vim 1475b8156aSBram Moolenaar 1560cce2fbSBram Moolenaarsetlocal iskeyword=48-57,A-Z,a-z,_ 16baca7f70SBram Moolenaarsetlocal comments=:NB. 17baca7f70SBram Moolenaarsetlocal commentstring=NB.\ %s 18d5d015d4SBram Moolenaarsetlocal formatoptions-=t 19d5d015d4SBram Moolenaarsetlocal matchpairs=(:) 2060cce2fbSBram Moolenaarsetlocal path-=/usr/include 21baca7f70SBram Moolenaar 2260cce2fbSBram Moolenaar" Includes. To make the shorthand form "require 'web/cgi'" work, double the 2360cce2fbSBram Moolenaar" last path component. Also strip off leading folder names like "~addons/". 2460cce2fbSBram Moolenaarsetlocal include=\\v^\\s*(load\|require)\\s*'\\zs\\f+\\ze' 2560cce2fbSBram Moolenaarsetlocal includeexpr=substitute(substitute(tr(v:fname,'\\','/'),'\\v^[^~][^/.]*(/[^/.]+)$','&\\1',''),'\\v^\\~[^/]+/','','') 2660cce2fbSBram Moolenaarsetlocal suffixesadd=.ijs 2760cce2fbSBram Moolenaar 28*09c6f265SBram Moolenaarlet b:undo_ftplugin = 'setlocal suffixesadd< includeexpr< include< path< matchpairs< formatoptions< commentstring< comments< iskeyword<' 2975b8156aSBram Moolenaar 3075b8156aSBram Moolenaar" Section movement with ]] ][ [[ []. The start/end patterns below are amended 3175b8156aSBram Moolenaar" inside the function in order to avoid matching on the current cursor line. 3283caecf3SBram Moolenaarlet s:sectionstart = '\%(\s*Note\|.\{-}\<\%([0-4]\|13\|noun\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(:\s*0\|def\s\+0\|define\)\)\>.*' 3375b8156aSBram Moolenaarlet s:sectionend = '\s*)\s*' 3475b8156aSBram Moolenaar 3575b8156aSBram Moolenaarfunction! s:SearchSection(end, backwards, visualmode) abort 3675b8156aSBram Moolenaar if a:visualmode !=# '' 3775b8156aSBram Moolenaar normal! gv 3875b8156aSBram Moolenaar endif 3983caecf3SBram Moolenaar let l:flags = a:backwards ? 'bsW' : 'sW' 4075b8156aSBram Moolenaar if a:end 4183caecf3SBram Moolenaar call search('^' . s:sectionend . (a:backwards ? '\n\_.\{-}\%#' : '$'), l:flags) 4275b8156aSBram Moolenaar else 4383caecf3SBram Moolenaar call search('^' . s:sectionstart . (a:backwards ? '\n\_.\{-}\%#' : '$'), l:flags) 4475b8156aSBram Moolenaar endif 4575b8156aSBram Moolenaarendfunction 4675b8156aSBram Moolenaar 4783caecf3SBram Moolenaarnoremap <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, '')<CR> 4883caecf3SBram Moolenaarxnoremap <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, visualmode())<CR> 4975b8156aSBram Moolenaarsunmap <buffer> ]] 5083caecf3SBram Moolenaarnoremap <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, '')<CR> 5183caecf3SBram Moolenaarxnoremap <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, visualmode())<CR> 5275b8156aSBram Moolenaarsunmap <buffer> ][ 5383caecf3SBram Moolenaarnoremap <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, '')<CR> 5483caecf3SBram Moolenaarxnoremap <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, visualmode())<CR> 5575b8156aSBram Moolenaarsunmap <buffer> [[ 5683caecf3SBram Moolenaarnoremap <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, '')<CR> 5783caecf3SBram Moolenaarxnoremap <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, visualmode())<CR> 5875b8156aSBram Moolenaarsunmap <buffer> [] 5975b8156aSBram Moolenaar 6075b8156aSBram Moolenaarlet b:undo_ftplugin .= ' | silent! execute "unmap <buffer> ]]"' 6175b8156aSBram Moolenaar \ . ' | silent! execute "unmap <buffer> ]["' 6275b8156aSBram Moolenaar \ . ' | silent! execute "unmap <buffer> [["' 6375b8156aSBram Moolenaar \ . ' | silent! execute "unmap <buffer> []"' 6475b8156aSBram Moolenaar 6575b8156aSBram Moolenaar" Browse dialog filter on Windows (see ":help browsefilter") 6675b8156aSBram Moolenaarif has('gui_win32') && !exists('b:browsefilter') 6775b8156aSBram Moolenaar let b:browsefilter = "J Script Files (*.ijs)\t*.ijs\n" 6875b8156aSBram Moolenaar \ . "All Files (*.*)\t*.*\n" 6975b8156aSBram Moolenaar let b:undo_ftplugin .= ' | unlet! b:browsefilter' 7075b8156aSBram Moolenaarendif 7175b8156aSBram Moolenaar 7275b8156aSBram Moolenaar" Enhanced "%" matching (see ":help matchit") 7375b8156aSBram Moolenaarif exists('loaded_matchit') && !exists('b:match_words') 7475b8156aSBram Moolenaar let b:match_ignorecase = 0 7583caecf3SBram Moolenaar let b:match_words = '^\%(\s*Note\|.\{-}\<\%([0-4]\|13\|noun\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(\:\s*0\|def\s\+0\|define\)\)\>:^\s*\:\s*$:^\s*)\s*$' 7675b8156aSBram Moolenaar \ . ',\<\%(for\%(_\a\k*\)\=\|if\|select\|try\|whil\%(e\|st\)\)\.:\<\%(case\|catch[dt]\=\|else\%(if\)\=\|fcase\)\.:\<end\.' 7775b8156aSBram Moolenaar let b:undo_ftplugin .= ' | unlet! b:match_ignorecase b:match_words' 7875b8156aSBram Moolenaarendif 7975b8156aSBram Moolenaar 8075b8156aSBram Moolenaarlet &cpo = s:save_cpo 8175b8156aSBram Moolenaarunlet s:save_cpo 82