mirror of
https://github.com/vim/vim.git
synced 2026-01-15 12:22:36 +01:00
62d8f3dab5
This reverts commits: -6b652a7850-2f689d5abd-a025a46d41Several email addresses that are known to be valid caused bounces due to an issue with my email setup. The previous commits incorrectly marked these addresses as invalid. So revert the whole thing again. Signed-off-by: Christian Brabandt <cb@256bit.org>
89 lines
3.6 KiB
VimL
89 lines
3.6 KiB
VimL
" Vim filetype plugin
|
|
" Language: J
|
|
" Maintainer: David Bürgin <dbuergin@gluet.ch>
|
|
" URL: https://gitlab.com/glts/vim-j
|
|
" Last Change: 2022-08-06
|
|
" 2024 Jan 14 by Vim Project (browsefilter)
|
|
|
|
if exists('b:did_ftplugin')
|
|
finish
|
|
endif
|
|
let b:did_ftplugin = 1
|
|
|
|
let s:save_cpo = &cpo
|
|
set cpo&vim
|
|
|
|
setlocal iskeyword=48-57,A-Z,a-z,_
|
|
setlocal comments=:NB.
|
|
setlocal commentstring=NB.\ %s
|
|
setlocal formatoptions-=t
|
|
setlocal matchpairs=(:)
|
|
setlocal path-=/usr/include
|
|
|
|
" Includes. To make the shorthand form "require 'web/cgi'" work, double the
|
|
" last path component. Also strip off leading folder names like "~addons/".
|
|
setlocal include=\\v^\\s*(load\|require)\\s*'\\zs\\f+\\ze'
|
|
setlocal includeexpr=substitute(substitute(tr(v:fname,'\\','/'),'\\v^[^~][^/.]*(/[^/.]+)$','&\\1',''),'\\v^\\~[^/]+/','','')
|
|
setlocal suffixesadd=.ijs
|
|
|
|
let b:undo_ftplugin = 'setlocal suffixesadd< includeexpr< include< path< matchpairs< formatoptions< commentstring< comments< iskeyword<'
|
|
|
|
" Section movement with ]] ][ [[ []. The start/end patterns below are amended
|
|
" inside the function in order to avoid matching on the current cursor line.
|
|
if !exists('no_plugin_maps') && !exists('no_j_maps')
|
|
let s:sectionstart = '\%(\s*Note\|.\{-}\<\%([0-4]\|13\|noun\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(:\s*0\|def\s\+0\|define\)\)\>.*'
|
|
let s:sectionend = '\s*)\s*'
|
|
|
|
function! s:SearchSection(end, backwards, visualmode) abort
|
|
if a:visualmode !=# ''
|
|
normal! gv
|
|
endif
|
|
let l:flags = a:backwards ? 'bsW' : 'sW'
|
|
if a:end
|
|
call search('^' . s:sectionend . (a:backwards ? '\n\_.\{-}\%#' : '$'), l:flags)
|
|
else
|
|
call search('^' . s:sectionstart . (a:backwards ? '\n\_.\{-}\%#' : '$'), l:flags)
|
|
endif
|
|
endfunction
|
|
|
|
noremap <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, '')<CR>
|
|
xnoremap <buffer> <silent> ]] :<C-U>call <SID>SearchSection(0, 0, visualmode())<CR>
|
|
sunmap <buffer> ]]
|
|
noremap <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, '')<CR>
|
|
xnoremap <buffer> <silent> ][ :<C-U>call <SID>SearchSection(1, 0, visualmode())<CR>
|
|
sunmap <buffer> ][
|
|
noremap <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, '')<CR>
|
|
xnoremap <buffer> <silent> [[ :<C-U>call <SID>SearchSection(0, 1, visualmode())<CR>
|
|
sunmap <buffer> [[
|
|
noremap <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, '')<CR>
|
|
xnoremap <buffer> <silent> [] :<C-U>call <SID>SearchSection(1, 1, visualmode())<CR>
|
|
sunmap <buffer> []
|
|
|
|
let b:undo_ftplugin .= ' | silent! execute "unmap <buffer> ]]"'
|
|
\ . ' | silent! execute "unmap <buffer> ]["'
|
|
\ . ' | silent! execute "unmap <buffer> [["'
|
|
\ . ' | silent! execute "unmap <buffer> []"'
|
|
endif
|
|
|
|
" Browse dialog filter on Windows and GTK (see ":help browsefilter")
|
|
if (has('gui_win32') || has('gui_gtk')) && !exists('b:browsefilter')
|
|
let b:browsefilter = "J Script Files (*.ijs)\t*.ijs\n"
|
|
if has("win32")
|
|
let b:browsefilter .= "All Files (*.*)\t*\n"
|
|
else
|
|
let b:browsefilter .= "All Files (*)\t*\n"
|
|
endif
|
|
let b:undo_ftplugin .= ' | unlet! b:browsefilter'
|
|
endif
|
|
|
|
" Enhanced "%" matching (see ":help matchit")
|
|
if exists('loaded_matchit') && !exists('b:match_words')
|
|
let b:match_ignorecase = 0
|
|
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*$'
|
|
\ . ',\<\%(for\%(_\a\k*\)\=\|if\|select\|try\|whil\%(e\|st\)\)\.:\<\%(case\|catch[dt]\=\|else\%(if\)\=\|fcase\)\.:\<end\.'
|
|
let b:undo_ftplugin .= ' | unlet! b:match_ignorecase b:match_words'
|
|
endif
|
|
|
|
let &cpo = s:save_cpo
|
|
unlet s:save_cpo
|