1" Maintainer: Paulo Moura <[email protected]> 2" Revised on: 2018.08.04 3" Language: Logtalk 4 5" This Logtalk indent file is a modified version of the Prolog 6" indent file written by Gergely Kontra 7 8" Only load this indent file when no other was loaded. 9if exists("b:did_indent") 10 finish 11endif 12 13let b:did_indent = 1 14 15setlocal indentexpr=GetLogtalkIndent() 16setlocal indentkeys-=:,0# 17setlocal indentkeys+=0%,-,0;,>,0) 18 19" Only define the function once. 20if exists("*GetLogtalkIndent") 21 finish 22endif 23 24function! GetLogtalkIndent() 25 " Find a non-blank line above the current line. 26 let pnum = prevnonblank(v:lnum - 1) 27 " Hit the start of the file, use zero indent. 28 if pnum == 0 29 return 0 30 endif 31 let line = getline(v:lnum) 32 let pline = getline(pnum) 33 34 let ind = indent(pnum) 35 " Previous line was comment -> use previous line's indent 36 if pline =~ '^\s*%' 37 retu ind 38 endif 39 " Check for entity opening directive on previous line 40 if pline =~ '^\s*:-\s\(object\|protocol\|category\)\ze(.*,$' 41 let ind = ind + shiftwidth() 42 " Check for clause head on previous line 43 elseif pline =~ ':-\s*\(%.*\)\?$' 44 let ind = ind + shiftwidth() 45 " Check for grammar rule head on previous line 46 elseif pline =~ '-->\s*\(%.*\)\?$' 47 let ind = ind + shiftwidth() 48 " Check for entity closing directive on previous line 49 elseif pline =~ '^\s*:-\send_\(object\|protocol\|category\)\.\(%.*\)\?$' 50 let ind = ind - shiftwidth() 51 " Check for end of clause on previous line 52 elseif pline =~ '\.\s*\(%.*\)\?$' 53 let ind = ind - shiftwidth() 54 endif 55 " Check for opening conditional on previous line 56 if pline =~ '^\s*\([(;]\|->\)' && pline !~ '\.\s*\(%.*\)\?$' && pline !~ '^.*\([)][,]\s*\(%.*\)\?$\)' 57 let ind = ind + shiftwidth() 58 endif 59 " Check for closing an unclosed paren, or middle ; or -> 60 if line =~ '^\s*\([);]\|->\)' 61 let ind = ind - shiftwidth() 62 endif 63 return ind 64endfunction 65