ref: e761ce9ef2f89c9f87a4be72b88b837109630c2b
dir: /support/vim/indent/myr.vim/
" Vim Indentation file " Language: Myrddin " Maintainer: Ori Bernstein if exists("b:did_indent") finish endif function! Quoted(lnum, col) let stk = synstack(a:lnum, a:col) for id in stk let a = synIDattr(id, "name") if a == "myrComment" || a == "myrString" || a == "myrChar" return 1 endif endfor return 0 endfunction function! s:CountMatches(line, lnum, pats) let matches = 0 for p in a:pats let idx = 0 while idx >= 0 let idx = match(a:line, p, idx) if idx >= 0 let ic = Quoted(a:lnum, idx+1) if !ic let matches = matches + 1 endif let idx = idx + strlen(p) endif endwhile endfor return matches endfunction function! s:LineMatch(line, pats) for p in a:pats let pat = '^\s*'.p.'\s*$' if match(a:line, pat, 0) >= 0 return 1 endif endfor return 0 endfunction function! s:Clamp(val, lo, hi) if a:val < a:lo return a:lo elseif a:val > a:hi return a:hi endif return a:val endfunction function! GetMyrIndent(ln) let ln = a:ln if ln == 1 let ind = 0 else let i = 1 let prevln = '' while prevln =~ '^\s*$\|^:.*' let prevln = getline(ln - i) let ind = indent(ln - i) let i = i + 1 endwhile let i = i - 1 let curln = getline(ln) if curln =~ '^\s*:.*' let ind = 0 else let inpat = ['\<if\>', '\<while\>','\<for\>', '\<match\>', \ '\<struct\>', '\<union\>', '{', '\[', '(', '=\s*$'] let outpat = ['}', ']', ')', ';;'] let outalone = ['].*', ').*', '}.*', ';;'] let inoutalone = ['\<else\>', '\<elif\>.*', '|.*'] let width = &tabstop let n_in = s:CountMatches(prevln, ln - i, inpat) if s:LineMatch(prevln, outalone) != 0 let n_out = 0 else let n_out = s:CountMatches(prevln, ln - i, outpat) endif let n_in += s:LineMatch(prevln, inoutalone) let n_out += s:LineMatch(curln, outalone) let n_out += s:LineMatch(curln, inoutalone) " indent escaped line endings if prevln =~ '\\\s*$' && getline(ln - i - 1) !~ '\\\s*$' let n_in = n_in + 1 endif " if we break the set of indented line endings, outdent if getline(ln - i - 1) =~ '\\\s*$' && getline(ln - i) !~ '\\\s*$' let n_out = n_out + 1 endif let delta = s:Clamp(n_in - n_out, -1, 1) let ind = ind + delta * &tabstop endif endif return ind endfunction setlocal indentkeys+=,;\|]),=elif,=else,=: setlocal indentexpr=GetMyrIndent(v:lnum) let b:did_indent = 1