golden hour

/usr/share/vim/vim74/indent

File/Folder	Size	Actions
README.txt	1.6 KB
aap.vim	265 B
ada.vim	10.89 KB
ant.vim	290 B
automake.vim	231 B
awk.vim	7.57 KB
bib.vim	346 B
bst.vim	1.87 KB
c.vim	325 B
cdl.vim	4.07 KB
ch.vim	470 B
chaiscript.vim	1.11 KB
changelog.vim	264 B
clojure.vim	11.85 KB
cmake.vim	2.69 KB
cobol.vim	8 KB
config.vim	2.12 KB
cpp.vim	329 B
cs.vim	327 B
css.vim	1.68 KB
cucumber.vim	2.56 KB
cuda.vim	305 B
d.vim	510 B
dictconf.vim	325 B
dictdconf.vim	326 B
docbk.vim	324 B
dtd.vim	11.39 KB
dtrace.vim	451 B
dylan.vim	2.6 KB
eiffel.vim	3.13 KB
erlang.vim	45.15 KB
eruby.vim	2.11 KB
eterm.vim	638 B
falcon.vim	13.65 KB
fortran.vim	6.41 KB
framescript.vim	786 B
gitconfig.vim	817 B
gitolite.vim	996 B
haml.vim	2.14 KB
hamster.vim	1.37 KB
html.vim	14.46 KB
htmldjango.vim	273 B
idlang.vim	1.53 KB
ishd.vim	1.8 KB
java.vim	4.02 KB
javascript.vim	336 B
jsp.vim	462 B
ld.vim	1.71 KB
lifelines.vim	637 B
liquid.vim	1.83 KB
lisp.vim	353 B
logtalk.vim	1.65 KB
lua.vim	1.87 KB
mail.vim	308 B
make.vim	3.35 KB
matlab.vim	1.88 KB
mma.vim	2.17 KB
mp.vim	6.37 KB
objc.vim	1.61 KB
ocaml.vim	8.9 KB
occam.vim	4.53 KB
pascal.vim	5.52 KB
perl.vim	5.67 KB
perl6.vim	3.42 KB
php.vim	18.97 KB
postscr.vim	1.58 KB
pov.vim	2.58 KB
prolog.vim	1.42 KB
pyrex.vim	326 B
python.vim	5.61 KB
r.vim	14.44 KB
readline.vim	681 B
rpl.vim	1.79 KB
rst.vim	1.35 KB
ruby.vim	17.13 KB
sass.vim	1018 B
scheme.vim	241 B
scss.vim	191 B
sdl.vim	2.7 KB
sh.vim	3.95 KB
sml.vim	6.27 KB
sql.vim	1.18 KB
sqlanywhere.vim	12.77 KB
tcl.vim	1.56 KB
tcsh.vim	1.21 KB
tex.vim	9.47 KB
tf.vim	1.46 KB
tilde.vim	994 B
treetop.vim	677 B
vb.vim	2 KB
verilog.vim	7.44 KB
vhdl.vim	13.48 KB
vim.vim	2.76 KB
xf86conf.vim	679 B
xhtml.vim	269 B
xinetd.vim	1.17 KB
xml.vim	2.77 KB
xsd.vim	253 B
xslt.vim	297 B
yacc.vim	769 B
yaml.vim	4.02 KB
zimbu.vim	3.8 KB
zsh.vim	231 B

Edit: mp.vim

" MetaPost indent file
" Language:	MetaPost
" Maintainer:	Eugene Minkovskii <emin@mccme.ru>
" Last Change:	2012 May 18
" Version: 0.1
" ==========================================================================

" Identation Rules: {{{1
" First of all, MetaPost language don't expect any identation rules.
" This screept need for you only if you (not MetaPost) need to do
" exactly code. If you don't need to use indentation, see
" :help filetype-indent-off
"
" Note: Every rules of identation in MetaPost or TeX languages (and in some
" other of course) is very subjective. I can release only my vision of this
" promlem.
"
" ..........................................................................
" Example of correct (by me) identation {{{2
" shiftwidth=4
" ==========================================================================
" for i=0 upto 99:
"     z[i] = (0,1u) rotated (i*360/100);
" endfor
" draw z0 -- z10 -- z20
"         withpen ...     % <- 2sw because breaked line
"         withcolor ...;  % <- same as previous
" draw z0 for i=1 upto 99:
"             -- z[i]             % <- 1sw from left end of 'for' satement
"         endfor withpen ...      % <- 0sw from left end of 'for' satement
"                 withcolor ...;  % <- 2sw because breaked line
" draw if One:     % <- This is internal if (like 'for' above)
"          one
"      elsif Other:
"          other
"      fi withpen ...;
" if one:          % <- This is external if
"     draw one;
" elseif other:
"     draw other;
" fi
" draw z0; draw z1;
" }}}
" }}}

" Only load this indent file when no other was loaded.
if exists("b:did_indent")
  finish
endif
let b:did_indent = 1

setlocal indentexpr=GetMetaPostIndent()
setlocal indentkeys+=;,<:>,=if,=for,=def,=end,=else,=fi

" Only define the function once.
if exists("*GetMetaPostIndent")
  finish
endif
let s:keepcpo= &cpo
set cpo&vim

" Auxiliary Definitions: {{{1
function! MetaNextNonblankNoncomment(pos)
  " Like nextnonblank() but ignore comment lines
  let tmp = nextnonblank(a:pos)
  while tmp && getline(tmp) =~ '^\s*%'
    let tmp = nextnonblank(tmp+1)
  endwhile
  return tmp
endfunction

function! MetaPrevNonblankNoncomment(pos)
  " Like prevnonblank() but ignore comment lines
  let tmp = prevnonblank(a:pos)
  while tmp && getline(tmp) =~ '^\s*%'
    let tmp = prevnonblank(tmp-1)
  endwhile
  return tmp
endfunction

function! MetaSearchNoncomment(pattern, ...)
  " Like search() but ignore commented areas
  if a:0
    let flags = a:1
  elseif &wrapscan
    let flags = "w"
  else
    let flags = "W"
  endif
  let cl  = line(".")
  let cc  = col(".")
  let tmp = search(a:pattern, flags)
  while tmp && synIDattr(synID(line("."), col("."), 1), "name") =~
        \ 'm[fp]$Comment\|TeXinsert\|String$'
    let tmp = search(a:pattern, flags)
  endwhile
  if !tmp
    call cursor(cl,cc)
  endif
  return tmp
endfunction
" }}}

function! GetMetaPostIndent()
  " not indent in comment ???
  if synIDattr(synID(line("."), col("."), 1), "name") =~
        \ 'm[fp]$Comment\|TeXinsert\|String$'
    return -1
  endif
  " Some RegExps: {{{1
  " end_of_item: all of end by ';'
  "            + all of end by :endfor, :enddef, :endfig, :endgroup, :fi
  "            + all of start by :beginfig(num), :begingroup
  "            + all of start by :for, :if, :else, :elseif and end by ':'
  "            + all of start by :def, :vardef             and end by '='
  let end_of_item = '$'                              .
        \ ';\|'                                       .
        \ '\<\(end\(for\|def\|fig\|group$\|fi\)\>\|' .
        \ '\<begin$group\>\|fig\s*(\s*\d\+\s*)$\|'  .
        \ '\<$for\|if\|else\(if$\=\)\>.\+:\|'       .
        \ '\<$var$\=def\>.\+='                      . '\)'
  " }}}
  " Save: current position {{{1
  let cl = line   (".")
  let cc = col    (".")
  let cs = getline(".")
  " if it is :beginfig or :endfig use zero indent
  if  cs =~ '^\s*$begin\|end$fig\>'
    return 0
  endif
  " }}}
  " Initialise: ind variable {{{1
  " search previous item not in current line
  let p_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
  while p_semicol_l == cl
    let p_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
  endwhile
  " if this is first item in program use zero indent
  if !p_semicol_l
    return 0
  endif
  " if this is multiline item, remember first indent
  if MetaNextNonblankNoncomment(p_semicol_l+1) < cl
    let ind = indent(MetaNextNonblankNoncomment(p_semicol_l+1))
  " else --- search pre-previous item for search first line in previous item
  else
    " search pre-previous item not in current line
    let pp_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
    while pp_semicol_l == p_semicol_l
      let pp_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
    endwhile
    " if we find pre-previous item, remember indent of previous item
    " else --- remember zero
    if pp_semicol_l
      let ind = indent(MetaNextNonblankNoncomment(line(".")+1))
    else
      let ind = 0
    endif
  endif
  " }}}
  " Increase Indent: {{{1
  " if it is an internal/external :for or :if statements {{{2
  let pnn_s = getline(MetaPrevNonblankNoncomment(cl-1))
  if  pnn_s =~ '\<$for\|if$\>.\+:\s*$$\|%$'
    let ind = match(pnn_s, '\<$for\|if$\>.\+:\s*$$\|%$') + &sw
  " }}}
  " if it is a :def, :vardef, :beginfig, :begingroup, :else, :elseif {{{2
  elseif pnn_s =~ '^\s*$'                       .
        \ '\(var$\=def\|'                       .
        \ 'begin$group\|fig\s*(\s*\d\+\s*)$\|' .
        \ 'else$if$\='                         . '\)\>'
    let ind = ind + &sw
  " }}}
  " if it is a broken line {{{2
  elseif pnn_s !~ end_of_item.'\s*$$\|%$'
    let ind = ind + (2 * &sw)
  endif
  " }}}
  " }}}
  " Decrease Indent: {{{1
  " if this is :endfor or :enddef statements {{{2
  " this is correct because :def cannot be inside :for
  if  cs  =~ '\<end$for\|def$\=\>'
    call MetaSearchNoncomment('\<for\>.\+:\s*$$\|%$' . '\|' .
                            \ '^\s*$var$\=def\>',"bW")
    if col(".") > 1
      let ind = col(".") - 1
    else
      let ind = indent(".")
    endif
  " }}}
  " if this is :fi, :else, :elseif statements {{{2
  elseif cs =~ '\<$else\(if$\=\|fi\)\>'
    call MetaSearchNoncomment('\<if\>.\+:\s*$$\|%$',"bW")
    let ind = col(".") - 1
  " }}}
  " if this is :endgroup statement {{{2
  elseif cs =~ '^\s*endgroup\>'
    let ind = ind - &sw
  endif
  " }}}
  " }}}

return ind
endfunction
"

let &cpo = s:keepcpo
unlet s:keepcpo

" vim:sw=2:fdm=marker