Re: Vim, Perl and stuff.

On Wed, Feb 2, 2011 at 07:59, Tony Mechelynck
<antoine.mechelynck@gmail.com> wrote:
> See
>        :help script-here
> about how to make it work.

Thank you.

I've come up with the following as a way to deal with not having to
re-index lines on an un-modified buffer. Is there anything else I can
do? I realize this will probably take up a fair amount of memory.
Are there any other gotchas I'm missing?

--8<---------------------------------------------------------------
if ! exists("b:did_perl_statusline")
setlocal statusline+=%(\ %{StatusLineIndexLine()}%)
let b:did_perl_statusline = 1
endif

if has( 'perl' )
function! EvalPerl()
perl << EOP
use strict;
use warnings FATAL => 'all', NONFATAL => 'redefine';

eval "use PPIx::IndexLines";
my $error = $@;
my %hash;

sub index_line {

if ( $error ) {

VIM::DoCommand "let subName='$error'";

} else {

my $curbuf = $main::curbuf;

if ( VIM::Eval( '&modified' ) || ! exists $hash{ $curbuf->Name } ) {

# There's got to be a better way to slurp in the current buffer!
my $document = join "\n", $curbuf->Get( 1 .. $curbuf->Count );

$hash{ $curbuf->Name } = PPIx::IndexLines->new( \$document );
$hash{ $curbuf->Name }->index_lines;

};

my ( $line ) = $main::curwin->Cursor;
my $sub_name = $hash{ $curbuf->Name }->line_type( $line );

VIM::DoCommand "let subName='$sub_name'";

}
}
EOP
endfunction
call EvalPerl()

function! StatusLineIndexLine()
perl index_line()
return subName
endfunction
endif
-->8---------------------------------------------------------------
--
Alan Young

--
You received this message from the "vim_use" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php