aboutsummaryrefslogtreecommitdiff
path: root/urxvt/ext
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2016-06-19 11:31:23 +1200
committerTom Ryder <tom@sanctum.geek.nz>2016-06-19 11:31:23 +1200
commitae1e7ac4ad473db4327923280fb61bc87dde6392 (patch)
treef9ed419f937d4ad9f7fdab8c4f320eacd5e4af36 /urxvt/ext
parent20633daa19c949f3848e5bc049adec8cd516120b (diff)
downloaddotfiles-ae1e7ac4ad473db4327923280fb61bc87dde6392.tar.gz
dotfiles-ae1e7ac4ad473db4327923280fb61bc87dde6392.zip
Perl::Tidy run
Diffstat (limited to 'urxvt/ext')
-rw-r--r--urxvt/ext/selection76
1 files changed, 39 insertions, 37 deletions
diff --git a/urxvt/ext/selection b/urxvt/ext/selection
index 43b72e89..d09eaf19 100644
--- a/urxvt/ext/selection
+++ b/urxvt/ext/selection
@@ -15,60 +15,62 @@ use Carp;
our $VERSION = 1.0;
sub on_init {
- my ($self) = @_;
+ my ($self) = @_;
- if (defined (my $res = $self->resource ("cutchars"))) {
- $res = $self->locale_decode ($res);
- push @{ $self->{patterns} }, qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }x;
- }
+ if ( defined( my $res = $self->resource("cutchars") ) ) {
+ $res = $self->locale_decode($res);
+ push @{ $self->{patterns} },
+ qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }x;
+ }
- $self->{enabled} = 1;
+ $self->{enabled} = 1;
- return ();
+ return ();
}
sub on_sel_extend {
- my ($self, $time) = @_;
+ my ( $self, $time ) = @_;
- $self->{enabled}
+ $self->{enabled}
or return;
- my ($row, $col) = $self->selection_mark;
- my $line = $self->line ($row);
- my $text = $line->t;
- my $markofs = $line->offset_of ($row, $col);
- my $curlen = $line->offset_of ($self->selection_end)
- - $line->offset_of ($self->selection_beg);
+ my ( $row, $col ) = $self->selection_mark;
+ my $line = $self->line($row);
+ my $text = $line->t;
+ my $markofs = $line->offset_of( $row, $col );
+ my $curlen =
+ $line->offset_of( $self->selection_end ) -
+ $line->offset_of( $self->selection_beg );
- my @matches;
+ my @matches;
- if ($markofs < $line->l) {
- study $text; # _really_ helps, too :)
+ if ( $markofs < $line->l ) {
+ study $text; # _really_ helps, too :)
- for my $regex ( @{ $self->{patterns} }) {
- while ($text =~ /$regex/g) {
- if ($-[1] <= $markofs and $markofs <= $+[1]) {
- my $ofs = $-[1];
- my $match = $1;
+ for my $regex ( @{ $self->{patterns} } ) {
+ while ( $text =~ /$regex/g ) {
+ if ( $-[1] <= $markofs and $markofs <= $+[1] ) {
+ my $ofs = $-[1];
+ my $match = $1;
- push @matches, [$ofs, length $match];
+ push @matches, [ $ofs, length $match ];
+ }
}
- }
- }
- }
+ }
+ }
- # whole line
- push @matches, [0, ($line->end - $line->beg + 1) * $self->ncol];
+ # whole line
+ push @matches, [ 0, ( $line->end - $line->beg + 1 ) * $self->ncol ];
- for (sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches) {
- my ($ofs, $len) = @$_;
+ for ( sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches ) {
+ my ( $ofs, $len ) = @$_;
- next if $len <= $curlen;
+ next if $len <= $curlen;
- $self->selection_beg ($line->coord_of ($ofs));
- $self->selection_end ($line->coord_of ($ofs + $len));
- return 1;
- }
+ $self->selection_beg( $line->coord_of($ofs) );
+ $self->selection_end( $line->coord_of( $ofs + $len ) );
+ return 1;
+ }
- return ();
+ return ();
}