applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding configurable mouse button setting.

Browse Source
This commit is contained in:
Steven Merrill 2011-04-15 01:50:34 -04:00
parent 54ae046c2a
commit 944e6bd953
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
url-select
View File

@ -23,6 +23,7 @@
# Options: # Options:
# URxvt.urlLauncher: Browser/command to open selected URL with # URxvt.urlLauncher: Browser/command to open selected URL with
# URxvt.underlineURLs: If set to true, all URLs get underlined # URxvt.underlineURLs: If set to true, all URLs get underlined
# URvxt.urlButton: Which mouse button should click URLs
use strict; use strict;
@ -32,7 +33,6 @@ my $url_matcher = qr{(
[\w\-\@;\/?:&=%\$_.+!*\x27(),~#]+[\w\-\@;\/?&=%\$_+!*\x27()~] [\w\-\@;\/?:&=%\$_.+!*\x27(),~#]+[\w\-\@;\/?&=%\$_+!*\x27()~]
)}x; )}x;
sub on_start { sub on_start {
my ($self) = @_; my ($self) = @_;
@ -42,6 +42,14 @@ sub on_start {
$self->enable(line_update => \&line_update); $self->enable(line_update => \&line_update);
} }
# Allow configuring which button should launch URLs or default to 2.
if($self->x_resource('urlButton') =~ /^\d+$/) {
$self->{button} = $self->x_resource('urlButton');
}
else {
$self->{button} = 2;
}
() ()
} }
@ -119,7 +127,7 @@ sub on_button_release {
my $mask = $self->ModLevel3Mask | $self->ModMetaMask | my $mask = $self->ModLevel3Mask | $self->ModMetaMask |
urxvt::ShiftMask | urxvt::ControlMask; urxvt::ShiftMask | urxvt::ControlMask;
if ($event->{button} == 2 && ($event->{state} & $mask) == 0) { if ($event->{button} == $self->{button} && ($event->{state} & $mask) == 0) {
my $col = $event->{col}; my $col = $event->{col};
my $line = $self->line($event->{row}); my $line = $self->line($event->{row});
my $text = $line->t; my $text = $line->t;
@ -290,3 +298,4 @@ sub deactivate {
() ()
} }