url-select: slightly refactored

This commit is contained in:
Bert 2011-04-20 11:19:25 +02:00
parent 944e6bd953
commit f3357d9b7e

View File

@ -2,7 +2,7 @@
# Author: Bert Muennich # Author: Bert Muennich
# Website: http://www.github.com/muennich/urxvt-perls # Website: http://www.github.com/muennich/urxvt-perls
# Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank # Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank
# Version: 1.4 # Version: git-20110420
# License: GPLv2 # License: GPLv2
# Use keyboard shortcuts to select URLs. # Use keyboard shortcuts to select URLs.
@ -23,7 +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 # URvxt.urlButton: Mouse button to click-open URLs (default: 2)
use strict; use strict;
@ -41,12 +41,9 @@ sub on_start {
if ($self->x_resource('underlineURLs') eq 'true') { if ($self->x_resource('underlineURLs') eq 'true') {
$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+$/) { if($self->x_resource('urlButton') =~ /^\d+$/) {
$self->{button} = $self->x_resource('urlButton'); $self->{button} = $self->x_resource('urlButton');
} } else {
else {
$self->{button} = 2; $self->{button} = 2;
} }