Mercurial > hg > RemoteEditor > vim7
comparison runtime/indent/prolog.vim @ 0:76efa0be13f1
Initial revision
| author | atsuki |
|---|---|
| date | Sat, 10 Nov 2007 15:07:22 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:76efa0be13f1 |
|---|---|
| 1 " vim: set sw=4 sts=4: | |
| 2 " Maintainer : Gergely Kontra <kgergely@mcl.hu> | |
| 3 " Revised on : 2002.02.18. 23:34:05 | |
| 4 " Language : Prolog | |
| 5 | |
| 6 " TODO: | |
| 7 " checking with respect to syntax highlighting | |
| 8 " ignoring multiline comments | |
| 9 " detecting multiline strings | |
| 10 | |
| 11 " Only load this indent file when no other was loaded. | |
| 12 if exists("b:did_indent") | |
| 13 finish | |
| 14 endif | |
| 15 | |
| 16 let b:did_indent = 1 | |
| 17 | |
| 18 setlocal indentexpr=GetPrologIndent() | |
| 19 setlocal indentkeys-=:,0# | |
| 20 setlocal indentkeys+=0%,-,0;,>,0) | |
| 21 | |
| 22 " Only define the function once. | |
| 23 "if exists("*GetPrologIndent") | |
| 24 " finish | |
| 25 "endif | |
| 26 | |
| 27 function! GetPrologIndent() | |
| 28 " Find a non-blank line above the current line. | |
| 29 let pnum = prevnonblank(v:lnum - 1) | |
| 30 " Hit the start of the file, use zero indent. | |
| 31 if pnum == 0 | |
| 32 return 0 | |
| 33 endif | |
| 34 let line = getline(v:lnum) | |
| 35 let pline = getline(pnum) | |
| 36 | |
| 37 let ind = indent(pnum) | |
| 38 " Previous line was comment -> use previous line's indent | |
| 39 if pline =~ '^\s*%' | |
| 40 retu ind | |
| 41 endif | |
| 42 " Check for clause head on previous line | |
| 43 if pline =~ ':-\s*\(%.*\)\?$' | |
| 44 let ind = ind + &sw | |
| 45 " Check for end of clause on previous line | |
| 46 elseif pline =~ '\.\s*\(%.*\)\?$' | |
| 47 let ind = ind - &sw | |
| 48 endif | |
| 49 " Check for opening conditional on previous line | |
| 50 if pline =~ '^\s*\([(;]\|->\)' | |
| 51 let ind = ind + &sw | |
| 52 endif | |
| 53 " Check for closing an unclosed paren, or middle ; or -> | |
| 54 if line =~ '^\s*\([);]\|->\)' | |
| 55 let ind = ind - &sw | |
| 56 endif | |
| 57 return ind | |
| 58 endfunction |