obse.vim (1437B)
1 " Vim indent file 2 " Language: Oblivion Language (obl) 3 " Original Creator: Kat <katisntgood@gmail.com> 4 " Maintainer: Kat <katisntgood@gmail.com> 5 " Created: 01 November 2021 6 " Last Change: 13 November 2022 7 8 if exists("b:did_indent") 9 finish 10 endif 11 let b:did_indent = 1 12 let b:undo_indent = 'setlocal indentkeys< indentexpr<' 13 14 setlocal indentexpr=GetOblIndent() 15 setlocal indentkeys+==~endif,=~else,=~loop,=~end 16 17 if exists("*GetOblIndent") 18 finish 19 endif 20 let s:keepcpo = &cpo 21 set cpo&vim 22 23 let s:SKIP_LINES = '^\s*\(;.*\)' 24 function! GetOblIndent() 25 26 let lnum = prevnonblank(v:lnum - 1) 27 let cur_text = getline(v:lnum) 28 if lnum == 0 29 return 0 30 endif 31 let prev_text = getline(lnum) 32 let found_cont = 0 33 let ind = indent(lnum) 34 35 " indent next line on start terms 36 let i = match(prev_text, '\c^\s*\(\s\+\)\?\(\(if\|while\|foreach\|begin\|else\%[if]\)\>\)') 37 if i >= 0 38 let ind += shiftwidth() 39 if strpart(prev_text, i, 1) == '|' && has('syntax_items') 40 \ && synIDattr(synID(lnum, i, 1), "name") =~ '\(Comment\|String\)$' 41 let ind -= shiftwidth() 42 endif 43 endif 44 " indent current line on end/else terms 45 if cur_text =~ '\c^\s*\(\s\+\)\?\(\(loop\|endif\|else\%[if]\)\>\)' 46 let ind = ind - shiftwidth() 47 " if we are at a begin block just go to column 0 48 elseif cur_text =~ '\c^\s*\(\s\+\)\?\(\(begin\|end\)\>\)' 49 let ind = 0 50 endif 51 return ind 52 endfunction 53 54 let &cpo = s:keepcpo 55 unlet s:keepcpo