3 # Hide Vim stuff like marks and numbers from the selection.
7 # Assume that the terminal will have been resized.
8 return unless $self->{term}->ncol > 80;
10 my $selection = $self->{term}->selection;
11 my @lines = split /\n/, $selection;
15 foreach my $line (@lines) {
16 # If this is the first line only do the replacement at the beginning.
17 # Subsequent lines are necessarily captured from the first column.
19 if (($self->{term}->selection_beg)[1] > 1) {
25 # Strip signs, numbers (five or eight columns) and non-line squiggles.
26 if ($line =~ /^(. )?(~|[ \d]{5}|[ \d]{8})?/) { $line =~ s/// }
31 # Save the new selection.
32 $selection = join "\n", @new;
33 $self->{term}->selection($selection);