neovim/runtime/indent/obse.vim
Sean Dewar 868d8d6962
vim-patch:partial:b59ae59a5870 (#21170)
Update runtime files

b59ae59a58

- Omit `map()` lambda arg comment. Not worth mentioning for legacy script
  (and is already hinted at below).
- Cherry-pick latest `'thesaurusfunc'` example.
- Skip `optwin.vim` `'keyprotocol'` change.
- 🧜‍♀️

Co-authored-by: Bram Moolenaar <Bram@vim.org>
2022-11-24 10:23:50 +00:00

56 lines
1.4 KiB
VimL

" Vim indent file
" Language: Oblivion Language (obl)
" Original Creator: Kat <katisntgood@gmail.com>
" Maintainer: Kat <katisntgood@gmail.com>
" Created: 01 November 2021
" Last Change: 13 November 2022
if exists("b:did_indent")
finish
endif
let b:did_indent = 1
let b:undo_indent = 'setlocal indentkeys< indentexpr<'
setlocal indentexpr=GetOblIndent()
setlocal indentkeys+==~endif,=~else,=~loop,=~end
if exists("*GetOblIndent")
finish
endif
let s:keepcpo = &cpo
set cpo&vim
let s:SKIP_LINES = '^\s*\(;.*\)'
function! GetOblIndent()
let lnum = prevnonblank(v:lnum - 1)
let cur_text = getline(v:lnum)
if lnum == 0
return 0
endif
let prev_text = getline(lnum)
let found_cont = 0
let ind = indent(lnum)
" indent next line on start terms
let i = match(prev_text, '\c^\s*\(\s\+\)\?\(\(if\|while\|foreach\|begin\|else\%[if]\)\>\)')
if i >= 0
let ind += shiftwidth()
if strpart(prev_text, i, 1) == '|' && has('syntax_items')
\ && synIDattr(synID(lnum, i, 1), "name") =~ '\(Comment\|String\)$'
let ind -= shiftwidth()
endif
endif
" indent current line on end/else terms
if cur_text =~ '\c^\s*\(\s\+\)\?\(\(loop\|endif\|else\%[if]\)\>\)'
let ind = ind - shiftwidth()
" if we are at a begin block just go to column 0
elseif cur_text =~ '\c^\s*\(\s\+\)\?\(\(begin\|end\)\>\)'
let ind = 0
endif
return ind
endfunction
let &cpo = s:keepcpo
unlet s:keepcpo