1" Vim indent file 2" Language: J 3" Maintainer: David Bürgin <[email protected]> 4" URL: https://gitlab.com/glts/vim-j 5" Last Change: 2015-01-11 6 7if exists('b:did_indent') 8 finish 9endif 10let b:did_indent = 1 11 12setlocal indentexpr=GetJIndent() 13setlocal indentkeys-=0{,0},:,0# 14setlocal indentkeys+=0),0<:>,=case.,=catch.,=catchd.,=catcht.,=do.,=else.,=elseif.,=end.,=fcase. 15 16let b:undo_indent = 'setlocal indentkeys< indentexpr<' 17 18if exists('*GetJIndent') 19 finish 20endif 21 22" If g:j_indent_definitions is true, the bodies of explicit definitions of 23" adverbs, conjunctions, and verbs will be indented. Default is false (0). 24if !exists('g:j_indent_definitions') 25 let g:j_indent_definitions = 0 26endif 27 28function GetJIndent() abort 29 let l:prevlnum = prevnonblank(v:lnum - 1) 30 if l:prevlnum == 0 31 return 0 32 endif 33 let l:indent = indent(l:prevlnum) 34 let l:prevline = getline(l:prevlnum) 35 if l:prevline =~# '^\s*\%(case\|catch[dt]\=\|do\|else\%(if\)\=\|fcase\|for\%(_\a\k*\)\=\|if\|select\|try\|whil\%(e\|st\)\)\.\%(\%(\<end\.\)\@!.\)*$' 36 " Increase indentation after an initial control word that starts or 37 " continues a block and is not terminated by "end." 38 let l:indent += shiftwidth() 39 elseif g:j_indent_definitions && (l:prevline =~# '\<\%([1-4]\|13\|adverb\|conjunction\|verb\|monad\|dyad\)\s\+\%(:\s*0\|def\s\+0\|define\)\>' || l:prevline =~# '^\s*:\s*$') 40 " Increase indentation in explicit definitions of adverbs, conjunctions, 41 " and verbs 42 let l:indent += shiftwidth() 43 endif 44 " Decrease indentation in lines that start with either control words that 45 " continue or end a block, or the special items ")" and ":" 46 if getline(v:lnum) =~# '^\s*\%()\|:\|\%(case\|catch[dt]\=\|do\|else\%(if\)\=\|end\|fcase\)\.\)' 47 let l:indent -= shiftwidth() 48 endif 49 return l:indent 50endfunction 51