1" Vim indent file
2" Language:     Perl 6
3" Maintainer:   Andy Lester <andy@petdance.com>
4" URL:          http://github.com/petdance/vim-perl/tree/master
5" Last Change:  2009-07-04
6" Contributors: Andy Lester <andy@petdance.com>
7"               Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
8"
9" Adapted from Perl indent file by Rafael Garcia-Suarez <rgarciasuarez@free.fr>
10
11" Suggestions and improvements by :
12"   Aaron J. Sherman (use syntax for hints)
13"   Artem Chuprina (play nice with folding)
14" TODO:
15" This file still relies on stuff from the Perl 5 syntax file, which Perl 6
16" does not use.
17"
18" Things that are not or not properly indented (yet) :
19" - Continued statements
20"     print "foo",
21"       "bar";
22"     print "foo"
23"       if bar();
24" - Multiline regular expressions (m//x)
25" (The following probably needs modifying the perl syntax file)
26" - qw() lists
27" - Heredocs with terminators that don't match \I\i*
28
29" Only load this indent file when no other was loaded.
30if exists("b:did_indent")
31    finish
32endif
33let b:did_indent = 1
34
35" Is syntax highlighting active ?
36let b:indent_use_syntax = has("syntax")
37
38setlocal indentexpr=GetPerl6Indent()
39
40" we reset it first because the Perl 5 indent file might have been loaded due
41" to a .pl/pm file extension, and indent files don't clean up afterwards
42setlocal indentkeys&
43
44setlocal indentkeys+=0=,0),0],0>,0»,0=or,0=and
45if !b:indent_use_syntax
46    setlocal indentkeys+=0=EO
47endif
48
49" Only define the function once.
50if exists("*GetPerl6Indent")
51    finish
52endif
53
54let s:cpo_save = &cpo
55set cpo-=C
56
57function GetPerl6Indent()
58
59    " Get the line to be indented
60    let cline = getline(v:lnum)
61
62    " Indent POD markers to column 0
63    if cline =~ '^\s*=\L\@!'
64        return 0
65    endif
66
67    " Don't reindent coments on first column
68    if cline =~ '^#'
69        return 0
70    endif
71
72    " Get current syntax item at the line's first char
73    let csynid = ''
74    if b:indent_use_syntax
75        let csynid = synIDattr(synID(v:lnum,1,0),"name")
76    endif
77
78    " Don't reindent POD and heredocs
79    if csynid =~ "^p6Pod"
80        return indent(v:lnum)
81    endif
82
83
84    " Now get the indent of the previous perl line.
85
86    " Find a non-blank line above the current line.
87    let lnum = prevnonblank(v:lnum - 1)
88    " Hit the start of the file, use zero indent.
89    if lnum == 0
90        return 0
91    endif
92    let line = getline(lnum)
93    let ind = indent(lnum)
94    " Skip heredocs, POD, and comments on 1st column
95    if b:indent_use_syntax
96        let skippin = 2
97        while skippin
98            let synid = synIDattr(synID(lnum,1,0),"name")
99            if (synid =~ "^p6Pod" || synid =~ "p6Comment")
100                let lnum = prevnonblank(lnum - 1)
101                if lnum == 0
102                    return 0
103                endif
104                let line = getline(lnum)
105                let ind = indent(lnum)
106                let skippin = 1
107            else
108                let skippin = 0
109            endif
110        endwhile
111    endif
112
113        if line =~ '[<«\[{(]\s*\(#[^)}\]»>]*\)\=$'
114            let ind = ind + &sw
115        endif
116        if cline =~ '^\s*[)}\]»>]'
117            let ind = ind - &sw
118        endif
119
120    " Indent lines that begin with 'or' or 'and'
121    if cline =~ '^\s*\(or\|and\)\>'
122        if line !~ '^\s*\(or\|and\)\>'
123            let ind = ind + &sw
124        endif
125    elseif line =~ '^\s*\(or\|and\)\>'
126        let ind = ind - &sw
127    endif
128
129    return ind
130
131endfunction
132
133let &cpo = s:cpo_save
134unlet s:cpo_save
135
136" vim:ts=8:sts=4:sw=4:expandtab:ft=vim
137