" Vim indent file
" Language:	Factor
" Maintainer:	Giftpflanze <gifti@tools.wmflabs.org>
" Last Change:	2023-01-09

if exists("b:did_indent")
	finish
endif
let b:did_indent = 1

setlocal indentexpr=GetFactorIndent(v:lnum)

let b:undo_indent = 'setlocal indentexpr<'

if exists("*GetFactorIndent")
	finish
endif

function! GetFactorIndent(lnum)
	let cline = getline(a:lnum)
	let pline = getline(a:lnum-1)
	let pind = indent(a:lnum-1)
	if pline =~ '^[^ ]*:' || pline =~ '[{[]\s*$'
		let pind += shiftwidth()
	endif
	if pline =~ '^\(ALIAS\|C\|CONSTANT\|DEFER\|EDITOR\|FORGET\|GENERIC#\?\|HELP\|\(\(SHUTDOWN\|STARTUP\)-\)\?HOOK\|IN\|INSTANCE\|MAIN\|MATH\|MIXIN\|PRIMITIVE\|QUALIFIED\(-WITH\)\?\|RENAME\|SINGLETON\|SLOT\|SYMBOL\|USE\|USING\):'
		let pind -= shiftwidth()
	endif
	if pline =~ ';\( \(inline\|recursive\|foldable\|flushable\)\)*$'
		let pind -= shiftwidth()
	endif
	if cline =~ '^\s*[\]}]'
		let pind -= shiftwidth()
	endif
	return pind
endfunction