ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/matcher
(Generate patch)

Comparing rxvt-unicode/src/perl/matcher (file contents):
Revision 1.8 by root, Wed Jun 6 15:06:41 2012 UTC vs.
Revision 1.10 by root, Sun Jun 10 17:31:53 2012 UTC

… …
6#:META:X_RESOURCE:%.launcher:string:default launcher command 6#:META:X_RESOURCE:%.launcher:string:default launcher command
7#:META:X_RESOURCE:%.button:string:the button, yeah 7#:META:X_RESOURCE:%.button:string:the button, yeah
8#:META:X_RESOURCE:%.pattern.:string:extra pattern to match 8#:META:X_RESOURCE:%.pattern.:string:extra pattern to match
9#:META:X_RESOURCE:%.launcher.:string:custom launcher for pattern 9#:META:X_RESOURCE:%.launcher.:string:custom launcher for pattern
10#:META:X_RESOURCE:%.rend.:string:custom rednition for pattern 10#:META:X_RESOURCE:%.rend.:string:custom rednition for pattern
11
12=head1 NAME
13
14 matcher - match strings in terminal output and change their rendition
15
16=head1 DESCRPTION
17
18Uses per-line display filtering (C<on_line_update>) to underline text
19matching a certain pattern and make it clickable. When clicked with the
20mouse button specified in the C<matcher.button> resource (default 2, or
21middle), the program specified in the C<matcher.launcher> resource
22(default, the C<urlLauncher> resource, C<sensible-browser>) will be started
23with the matched text as first argument. The default configuration is
24suitable for matching URLs and launching a web browser, like the
25former "mark-urls" extension.
26
27The default pattern to match URLs can be overridden with the
28C<matcher.pattern.0> resource, and additional patterns can be specified
29with numbered patterns, in a manner similar to the "selection" extension.
30The launcher can also be overridden on a per-pattern basis.
31
32It is possible to activate the most recently seen match or a list of matches
33from the keyboard. Simply bind a keysym to "perl:matcher:last" or
34"perl:matcher:list" as seen in the example below.
35
36Example configuration:
37
38 URxvt.perl-ext: default,matcher
39 URxvt.url-launcher: sensible-browser
40 URxvt.keysym.C-Delete: perl:matcher:last
41 URxvt.keysym.M-Delete: perl:matcher:list
42 URxvt.matcher.button: 1
43 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-]
44 URxvt.matcher.pattern.2: \\B(/\\S+?):(\\d+)(?=:|$)
45 URxvt.matcher.launcher.2: gvim +$2 $1
46
47=cut
11 48
12my $url = 49my $url =
13 qr{ 50 qr{
14 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) 51 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)
15 [a-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27,~#]* 52 [a-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27,~#]*
… …
128 } 165 }
129 () 166 ()
130} 167}
131 168
132sub my_resource { 169sub my_resource {
133 my $self = shift; 170 $_[0]->x_resource ("%.$_[1]")
134 $self->x_resource ("$self->{name}.$_[0]");
135} 171}
136 172
137# turn a rendition spec in the resource into a sub that implements it on $_ 173# turn a rendition spec in the resource into a sub that implements it on $_
138sub parse_rend { 174sub parse_rend {
139 my ($self, $str) = @_; 175 my ($self, $str) = @_;
… …
150} 186}
151 187
152sub on_start { 188sub on_start {
153 my ($self) = @_; 189 my ($self) = @_;
154 190
155 ($self->{name} = __PACKAGE__) =~ s/.*:://;
156 $self->{name} =~ tr/_/-/;
157 $self->{launcher} = $self->my_resource ("launcher") || $self->x_resource("url-launcher") || "sensible-browser"; 191 $self->{launcher} = $self->my_resource ("launcher") || $self->x_resource("url-launcher") || "sensible-browser";
158 192
159 $self->{urls} = []; 193 $self->{urls} = [];
160 $self->{showing} = 0; 194 $self->{showing} = 0;
161 $self->{button} = 2; 195 $self->{button} = 2;
… …
170 } elsif($mod eq "S") { 204 } elsif($mod eq "S") {
171 $self->{state} |= urxvt::ShiftMask; 205 $self->{state} |= urxvt::ShiftMask;
172 } elsif($mod eq "M") { 206 } elsif($mod eq "M") {
173 $self->{state} |= $self->ModMetaMask; 207 $self->{state} |= $self->ModMetaMask;
174 } elsif($mod ne "-" && $mod ne " ") { 208 } elsif($mod ne "-" && $mod ne " ") {
175 warn("$mod is invalid in $self->{name}<$self->{argv}[0]>\n"); 209 warn("$mod is invalid in $self->{_name}<$self->{argv}[0]>\n");
176 } 210 }
177 } 211 }
178 } 212 }
179 213
180 my @defaults = ($url); 214 my @defaults = ($url);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines