equal
deleted
inserted
replaced
16 :!perl -Mblib -c % |
16 :!perl -Mblib -c % |
17 endfunc |
17 endfunc |
18 |
18 |
19 function! HS_format() |
19 function! HS_format() |
20 |
20 |
21 let dir = fnamemodify(expand("%"), ":p:h") |
21 let dir = expand("%:p:h") |
22 let rc = dir . "/.perltidyrc" |
22 let home = fnamemodify($HOME, ":h") |
23 if filereadable(rc) != 1 |
23 while dir != home |
24 echo "HEHE, no .perltidyrc in " . dir |
24 let rc = dir . "/.perltidyrc" |
25 return |
25 if filereadable(rc) == 1 |
26 endif |
26 let old = &equalprg |
27 |
27 echo "using " rc |
28 let old = &equalprg |
28 sleep 1 |
29 let &equalprg = "perltidy -pro=" . rc |
29 let &equalprg = "perltidy -pro=" . rc |
30 normal gg=G |
30 normal gg=G |
31 normal `` |
31 normal `` |
32 let &equalprg = old |
32 let &equalprg = old |
33 |
33 return |
|
34 endif |
|
35 let dir = fnamemodify(dir, ":h") |
|
36 endwhile |
|
37 echo "no .perltidyrc found up the path to " $HOME |
|
38 |
34 endfunc |
39 endfunc |
35 |
40 |
36 function! HS_pod() |
41 function! HS_pod() |
37 :!perldoc % |
42 :!perldoc % |
38 endfunc |
43 endfunc |