| Bram Moolenaar | db6ea06 | 2014-07-10 22:01:47 +0200 | [diff] [blame] | 1 | " Vim indent file |
| 2 | " Language: R Documentation (Help), *.Rd |
| 3 | " Author: Jakson Alves de Aquino <jalvesaq@gmail.com> |
| 4 | " Last Change: Wed Jul 09, 2014 07:34PM |
| 5 | |
| 6 | |
| 7 | " Only load this indent file when no other was loaded. |
| 8 | if exists("b:did_indent") |
| 9 | finish |
| 10 | endif |
| 11 | runtime indent/r.vim |
| 12 | let s:RIndent = function(substitute(&indentexpr, "()", "", "")) |
| 13 | let b:did_indent = 1 |
| 14 | |
| 15 | setlocal indentkeys=0{,0},:,!^F,o,O,e |
| 16 | setlocal indentexpr=GetRHelpIndent() |
| 17 | |
| 18 | " Only define the function once. |
| 19 | if exists("*GetRHelpIndent") |
| 20 | finish |
| 21 | endif |
| 22 | |
| 23 | setlocal noautoindent |
| 24 | setlocal nocindent |
| 25 | setlocal nosmartindent |
| 26 | setlocal nolisp |
| 27 | |
| 28 | setlocal indentkeys=0{,0},:,!^F,o,O,e |
| 29 | setlocal indentexpr=GetCorrectRHelpIndent() |
| 30 | |
| 31 | function s:SanitizeRHelpLine(line) |
| 32 | let newline = substitute(a:line, '\\\\', "x", "g") |
| 33 | let newline = substitute(newline, '\\{', "x", "g") |
| 34 | let newline = substitute(newline, '\\}', "x", "g") |
| 35 | let newline = substitute(newline, '\\%', "x", "g") |
| 36 | let newline = substitute(newline, '%.*', "", "") |
| 37 | let newline = substitute(newline, '\s*$', "", "") |
| 38 | return newline |
| 39 | endfunction |
| 40 | |
| 41 | function GetRHelpIndent() |
| 42 | |
| 43 | let clnum = line(".") " current line |
| 44 | if clnum == 1 |
| 45 | return 0 |
| 46 | endif |
| 47 | let cline = getline(clnum) |
| 48 | |
| 49 | if cline =~ '^\s*}\s*$' |
| 50 | let i = clnum |
| 51 | let bb = -1 |
| 52 | while bb != 0 && i > 1 |
| 53 | let i -= 1 |
| 54 | let line = s:SanitizeRHelpLine(getline(i)) |
| 55 | let line2 = substitute(line, "{", "", "g") |
| 56 | let openb = strlen(line) - strlen(line2) |
| 57 | let line3 = substitute(line2, "}", "", "g") |
| 58 | let closeb = strlen(line2) - strlen(line3) |
| 59 | let bb += openb - closeb |
| 60 | endwhile |
| 61 | return indent(i) |
| 62 | endif |
| 63 | |
| 64 | if cline =~ '^\s*#ifdef\>' || cline =~ '^\s*#endif\>' |
| 65 | return 0 |
| 66 | endif |
| 67 | |
| 68 | let lnum = clnum - 1 |
| 69 | let line = getline(lnum) |
| 70 | if line =~ '^\s*#ifdef\>' || line =~ '^\s*#endif\>' |
| 71 | let lnum -= 1 |
| 72 | let line = getline(lnum) |
| 73 | endif |
| 74 | while lnum > 1 && (line =~ '^\s*$' || line =~ '^#ifdef' || line =~ '^#endif') |
| 75 | let lnum -= 1 |
| 76 | let line = getline(lnum) |
| 77 | endwhile |
| 78 | if lnum == 1 |
| 79 | return 0 |
| 80 | endif |
| 81 | let line = s:SanitizeRHelpLine(line) |
| 82 | let line2 = substitute(line, "{", "", "g") |
| 83 | let openb = strlen(line) - strlen(line2) |
| 84 | let line3 = substitute(line2, "}", "", "g") |
| 85 | let closeb = strlen(line2) - strlen(line3) |
| 86 | let bb = openb - closeb |
| 87 | |
| 88 | let ind = indent(lnum) + (bb * &sw) |
| 89 | |
| 90 | if line =~ '^\s*}\s*$' |
| 91 | let ind = indent(lnum) |
| 92 | endif |
| 93 | |
| 94 | if ind < 0 |
| 95 | return 0 |
| 96 | endif |
| 97 | |
| 98 | return ind |
| 99 | endfunction |
| 100 | |
| 101 | function GetCorrectRHelpIndent() |
| 102 | let lastsection = search('^\\[a-z]*{', "bncW") |
| 103 | let secname = getline(lastsection) |
| 104 | if secname =~ '^\\usage{' || secname =~ '^\\examples{' || secname =~ '^\\dontshow{' || secname =~ '^\\dontrun{' || secname =~ '^\\donttest{' || secname =~ '^\\testonly{' || secname =~ '^\\method{.*}{.*}(' |
| 105 | return s:RIndent() |
| 106 | else |
| 107 | return GetRHelpIndent() |
| 108 | endif |
| 109 | endfunction |
| 110 | |
| 111 | " vim: sw=2 |