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

url-select: New default regex, fixes issue #47

Browse Source
This commit is contained in:
Bert Münnich 2014-04-06 11:34:24 +02:00
parent e54f4c238e
commit a4eed96cc6
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
url-select
View File

@ -70,10 +70,15 @@ sub on_start {
$current++; $current++;
} }
} else { } else {
@{$self->{pattern}} = qr{( @{$self->{pattern}} = qr{
(?:https?://|ftp://|news://|git://|mailto:|file://|www\.) (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)
[\w\-\@;\/?:&=%\$_.+!*\x27(),~#]+[\w\-\@;\/?&=%\$_+!*\x27()~] [\w\-\@;\/?:&=%\$.+!*\x27,~#]*
)}x; (
\([\w\-\@;\/?:&=%\$.+!*\x27,~#]*\) # Allow a pair of matched parentheses
| #
[\w\-\@;\/?:&=%\$+*~] # exclude some trailing characters (heuristic)
)+
}x;
} }
() ()
@ -234,7 +239,6 @@ sub select_next {
do { do {
my ($beg, $end) = ($-[0], $+[0]); my ($beg, $end) = ($-[0], $+[0]);
--$end if $& =~ /['")]$/;
push @{$self->{found}}, [$line->coord_of($beg), push @{$self->{found}}, [$line->coord_of($beg),
$line->coord_of($end), substr($text, $beg, $end - $beg)]; $line->coord_of($end), substr($text, $beg, $end - $beg)];
} while ($text =~ /$pattern/g); } while ($text =~ /$pattern/g);