| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | " Vim indent file |
| Bram Moolenaar | 933eb39 | 2007-05-10 17:52:45 +0000 | [diff] [blame] | 2 | " Language: Eterm configuration file |
| Bram Moolenaar | 57657d8 | 2006-04-21 22:12:41 +0000 | [diff] [blame] | 3 | " Maintainer: Nikolai Weibull <now@bitwi.se> |
| Bram Moolenaar | 933eb39 | 2007-05-10 17:52:45 +0000 | [diff] [blame] | 4 | " Latest Revision: 2006-12-20 |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 5 | |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 6 | if exists("b:did_indent") |
| 7 | finish | ||||
| 8 | endif | ||||
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 9 | let b:did_indent = 1 |
| 10 | |||||
| 11 | setlocal indentexpr=GetEtermIndent() | ||||
| 12 | setlocal indentkeys=!^F,o,O,=end | ||||
| Bram Moolenaar | 933eb39 | 2007-05-10 17:52:45 +0000 | [diff] [blame] | 13 | setlocal nosmartindent |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 14 | |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 15 | if exists("*GetEtermIndent") |
| 16 | finish | ||||
| 17 | endif | ||||
| 18 | |||||
| 19 | function GetEtermIndent() | ||||
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 20 | let lnum = prevnonblank(v:lnum - 1) |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 21 | if lnum == 0 |
| 22 | return 0 | ||||
| 23 | endif | ||||
| 24 | |||||
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 25 | let ind = indent(lnum) |
| 26 | |||||
| Bram Moolenaar | 42eeac3 | 2005-06-29 22:40:58 +0000 | [diff] [blame] | 27 | if getline(lnum) =~ '^\s*begin\>' |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 28 | let ind = ind + &sw |
| 29 | endif | ||||
| 30 | |||||
| Bram Moolenaar | 42eeac3 | 2005-06-29 22:40:58 +0000 | [diff] [blame] | 31 | if getline(v:lnum) =~ '^\s*end\>' |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 32 | let ind = ind - &sw |
| 33 | endif | ||||
| 34 | |||||
| 35 | return ind | ||||
| 36 | endfunction | ||||