Mercurial > vim
view runtime/indent/logtalk.vim @ 7545:4c922651fd78 v7.4.1073
commit https://github.com/vim/vim/commit/28fb79db6b52d1154e8dc63d227673648c2fce15
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Jan 9 22:28:33 2016 +0100
patch 7.4.1073
Problem: Alloc_id depends on numbers, may use the same one twice. It's not
clear from the number what it's for.
Solution: Use an enum. Add a function to lookup the enum value from the
name.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 09 Jan 2016 22:30:04 +0100 |
parents | 0b796e045c42 |
children | 63b0b7b79b25 |
line wrap: on
line source
" Maintainer: Paulo Moura <pmoura@logtalk.org> " Revised on: 2008.06.02 " Language: Logtalk " This Logtalk indent file is a modified version of the Prolog " indent file written by Gergely Kontra " Only load this indent file when no other was loaded. if exists("b:did_indent") finish endif let b:did_indent = 1 setlocal indentexpr=GetLogtalkIndent() setlocal indentkeys-=:,0# setlocal indentkeys+=0%,-,0;,>,0) " Only define the function once. if exists("*GetLogtalkIndent") finish endif function! GetLogtalkIndent() " Find a non-blank line above the current line. let pnum = prevnonblank(v:lnum - 1) " Hit the start of the file, use zero indent. if pnum == 0 return 0 endif let line = getline(v:lnum) let pline = getline(pnum) let ind = indent(pnum) " Previous line was comment -> use previous line's indent if pline =~ '^\s*%' retu ind endif " Check for entity opening directive on previous line if pline =~ '^\s*:-\s\(object\|protocol\|category\)\ze(.*,$' let ind = ind + &sw " Check for clause head on previous line elseif pline =~ ':-\s*\(%.*\)\?$' let ind = ind + &sw " Check for entity closing directive on previous line elseif pline =~ '^\s*:-\send_\(object\|protocol\|category\)\.\(%.*\)\?$' let ind = ind - &sw " Check for end of clause on previous line elseif pline =~ '\.\s*\(%.*\)\?$' let ind = ind - &sw endif " Check for opening conditional on previous line if pline =~ '^\s*\([(;]\|->\)' && pline !~ '\.\s*\(%.*\)\?$' && pline !~ '^.*\([)][,]\s*\(%.*\)\?$\)' let ind = ind + &sw endif " Check for closing an unclosed paren, or middle ; or -> if line =~ '^\s*\([);]\|->\)' let ind = ind - &sw endif return ind endfunction