From b5631d1d90dafcba41fc459a4ec9ccf4284d9743 Mon Sep 17 00:00:00 2001
From: meh <meh@paranoici.org>
Date: Thu, 1 Mar 2012 21:14:12 +0100
Subject: [PATCH] url-select: support matcher configurations

---
 url-select | 82 +++++++++++++++++++++++++++++++++---------------------
 1 file changed, 51 insertions(+), 31 deletions(-)

diff --git a/url-select b/url-select
index f7b7eaf..27024a7 100644
--- a/url-select
+++ b/url-select
@@ -28,11 +28,6 @@
 
 use strict;
 
-my $url_matcher = qr{(
-	(?:https?://|ftp://|news://|mailto:|file://|www\.)
-	[\w\-\@;\/?:&=%\$_.+!*\x27(),~#]+[\w\-\@;\/?&=%\$_+!*\x27()~]
-)}x;
-
 sub on_start {
 	my ($self) = @_;
 
@@ -45,12 +40,31 @@ sub on_start {
 	if ($self->x_resource('underlineURLs') eq 'true') {
 		$self->enable(line_update => \&line_update);
 	}
-	if($self->x_resource('urlButton') =~ /^\d+$/) {
+	if ($self->x_resource('urlButton') =~ /^\d+$/) {
 		$self->{button} = $self->x_resource('urlButton');
+	} elsif ($self->x_resource('matcher.button') =~ /^\d+$/) {
+		$self->{button} = $self->x_resource('matcher.button');
 	} else {
 		$self->{button} = 2;
 	}
 
+	if ($self->x_resource('matcher.pattern')) {
+		@{$self->{pattern}} = ($self->x_resource('matcher.pattern'));
+	} elsif ($self->x_resource('matcher.pattern.1')) {
+		my $current = 1;
+
+		while ($self->x_resource("matcher.pattern.$current")) {
+			push @{$self->{pattern}}, $self->x_resource("matcher.pattern.$current");
+
+			$current++;
+		}
+	} else {
+		@{$self->{pattern}} = (qr{
+			(?:https?://|ftp://|news://|mailto:|file://|www\.)
+			[\w\-\@;\/?:&=%\$_.+!*\x27(),~#]+[\w\-\@;\/?&=%\$_+!*\x27()~]
+		}x);
+	}
+
 	()
 }
 
@@ -62,15 +76,17 @@ sub line_update {
 	my $text = $line->t;
 	my $rend = $line->r;
 
-	while ($text =~ /$url_matcher/g) {
-		my $url = $1;
-		my ($beg, $end) = ($-[1], $+[1] - 1);
-		--$end if $url =~ /["')]$/;
+	for my $pattern (@{$self->{pattern}}) {
+		while ($text =~ /$pattern/g) {
+			my $url = $&;
+			my ($beg, $end) = ($-[1], $+[1] - 1);
+			--$end if $url =~ /["')]$/;
 
-		for (@{$rend}[$beg .. $end]) {
-			$_ |= urxvt::RS_Uline;
+			for (@{$rend}[$beg .. $end]) {
+				$_ |= urxvt::RS_Uline;
+			}
+			$line->r($rend);
 		}
-		$line->r($rend);
 	}
 
 	()
@@ -154,13 +170,15 @@ sub on_button_release {
 			my $line = $self->line($row);
 			my $text = $line->t;
 
-			while ($text =~ /$url_matcher/g) {
-				my ($url, $beg, $end) = ($1, $-[0], $+[0]);
-				--$end if $url =~ s/["')]$//;
+			for my $pattern (@{$self->{pattern}}) {
+				while ($text =~ /$pattern/g) {
+					my ($url, $beg, $end) = ($&, $-[0], $+[0]);
+					--$end if $url =~ s/["')]$//;
 
-				if ($col >= $beg && $col <= $end) {
-					$self->exec_async(@{$self->{browser}}, $url);
-					return 1;
+					if ($col >= $beg && $col <= $end) {
+						$self->exec_async(@{$self->{browser}}, $url);
+						return 1;
+					}
 				}
 			}
 		}
@@ -190,20 +208,22 @@ sub select_next {
 		$line = $self->line($row);
 		my $text = $line->t;
 
-		if ($text =~ /$url_matcher/g) {
-			delete $self->{found};
+		for my $pattern (@{$self->{pattern}}) {
+			if ($text =~ /$pattern/g) {
+				delete $self->{found};
 
-			do {
-				my ($beg, $end) = ($-[0], $+[0]);
-				--$end if $& =~ /['")]$/;
-				push @{$self->{found}}, [$line->coord_of($beg),
-						$line->coord_of($end), substr($text, $beg, $end - $beg)];
-			} while ($text =~ /$url_matcher/g);
+				do {
+					my ($beg, $end) = ($-[0], $+[0]);
+					--$end if $& =~ /['")]$/;
+					push @{$self->{found}}, [$line->coord_of($beg),
+							$line->coord_of($end), substr($text, $beg, $end - $beg)];
+				} while ($text =~ /$pattern/g);
 
-			$self->{row} = $row;
-			$self->{n} = $dir < 0 ? $#{$self->{found}} : 0;
-			hilight($self);
-			return;
+				$self->{row} = $row;
+				$self->{n} = $dir < 0 ? $#{$self->{found}} : 0;
+				hilight($self);
+				return;
+			}
 		}
 	}