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.10 by root, Sun Jun 10 17:31:53 2012 UTC vs.
Revision 1.16 by sf-exg, Wed May 28 17:01:32 2014 UTC

1#! perl 1#! perl
2 2
3# Author: Tim Pope <rxvt-unicodeNOSPAM@tpope.org> 3# Author: Tim Pope <rxvt-unicodeNOSPAM@tpope.org>
4# Bob Farrell <robertanthonyfarrell@gmail.com> 4# Bob Farrell <robertanthonyfarrell@gmail.com>
5 5
6#:META:X_RESOURCE:%.launcher:string:default launcher command 6#:META:RESOURCE:%.launcher:string:default launcher command
7#:META:X_RESOURCE:%.button:string:the button, yeah 7#:META:RESOURCE:%.button:string:the button, yeah
8#:META:X_RESOURCE:%.pattern.:string:extra pattern to match 8#:META:RESOURCE:%.pattern.:string:extra pattern to match
9#:META:X_RESOURCE:%.launcher.:string:custom launcher for pattern 9#:META:RESOURCE:%.launcher.:string:custom launcher for pattern
10#:META:X_RESOURCE:%.rend.:string:custom rednition for pattern 10#:META:RESOURCE:%.rend.:string:custom rednition for pattern
11 11
12=head1 NAME 12=head1 NAME
13 13
14 matcher - match strings in terminal output and change their rendition 14matcher - match strings in terminal output and change their rendition
15 15
16=head1 DESCRPTION 16=head1 DESCRIPTION
17 17
18Uses per-line display filtering (C<on_line_update>) to underline text 18Uses per-line display filtering (C<on_line_update>) to underline text
19matching a certain pattern and make it clickable. When clicked with the 19matching a certain pattern and make it clickable. When clicked with the
20mouse button specified in the C<matcher.button> resource (default 2, or 20mouse button specified in the C<matcher.button> resource (default 2, or
21middle), the program specified in the C<matcher.launcher> resource 21middle), the program specified in the C<matcher.launcher> resource
22(default, the C<urlLauncher> resource, C<sensible-browser>) will be started 22(default, the C<url-launcher> resource, C<sensible-browser>) will be started
23with the matched text as first argument. The default configuration is 23with the matched text as first argument. The default configuration is
24suitable for matching URLs and launching a web browser, like the 24suitable for matching URLs and launching a web browser, like the
25former "mark-urls" extension. 25former "mark-urls" extension.
26 26
27The default pattern to match URLs can be overridden with the 27The default pattern to match URLs can be overridden with the
… …
31 31
32It is possible to activate the most recently seen match or a list of matches 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 33from the keyboard. Simply bind a keysym to "perl:matcher:last" or
34"perl:matcher:list" as seen in the example below. 34"perl:matcher:list" as seen in the example below.
35 35
36Example configuration: 36Example: load and use the matcher extension with defaults.
37 37
38 URxvt.perl-ext: default,matcher 38 URxvt.perl-ext: default,matcher
39
40Example: use a custom configuration.
41
39 URxvt.url-launcher: sensible-browser 42 URxvt.url-launcher: sensible-browser
40 URxvt.keysym.C-Delete: perl:matcher:last 43 URxvt.keysym.C-Delete: perl:matcher:last
41 URxvt.keysym.M-Delete: perl:matcher:list 44 URxvt.keysym.M-Delete: perl:matcher:list
42 URxvt.matcher.button: 1 45 URxvt.matcher.button: 1
43 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-] 46 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-]
… …
47=cut 50=cut
48 51
49my $url = 52my $url =
50 qr{ 53 qr{
51 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) 54 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)
52 [a-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27,~#]* 55 [\w\-\@;\/?:&=%\$.+!*\x27,~#]*
53 ( 56 (
54 \([a-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27,~#]*\)| # Allow a pair of matched parentheses 57 \([\w\-\@;\/?:&=%\$.+!*\x27,~#]*\)| # Allow a pair of matched parentheses
55 [a-zA-Z0-9\-\@;\/?:&=%\$_+*~] # exclude some trailing characters (heuristic) 58 [\w\-\@;\/?:&=%\$+*~] # exclude some trailing characters (heuristic)
56 )+ 59 )+
57 }x; 60 }x;
58 61
59sub on_key_press { 62sub on_key_press {
60 my ($self, $event, $keysym, $octets) = @_; 63 my ($self, $event, $keysym, $octets) = @_;
… …
73 $self->matchlist(); 76 $self->matchlist();
74 77
75 $self->exec_async( $self->{launcher}, @args ); 78 $self->exec_async( $self->{launcher}, @args );
76} 79}
77 80
81# backwards compat
78sub on_user_command { 82sub on_user_command {
79 my ($self, $cmd) = @_; 83 my ($self, $cmd) = @_;
80 84
81 if($cmd =~ s/^matcher:list\b//) { 85 if ($cmd =~ s/^matcher:list\b//) {
82 $self->matchlist(); 86 $self->matchlist;
83 } else { 87 } else {
84 if($cmd =~ s/^matcher:last\b//) { 88 if ($cmd =~ s/^matcher:last\b//) {
85 $self->most_recent; 89 $self->most_recent;
86 }
87 # For backward compatibility
88 else {
89 if($cmd =~ s/^matcher\b//) { 90 } elsif ($cmd =~ s/^matcher\b//) {
91 # for backward compatibility
90 $self->most_recent; 92 $self->most_recent;
91 } 93 }
92 } 94 }
93 } 95
94 () 96 ()
95} 97}
96 98
97sub matchlist { 99sub matchlist {
98 my ($self) = @_; 100 my ($self) = @_;
99 if ( $self->{showing} ) { 101 if ( $self->{showing} ) {
100 $self->{url_overlay}->hide(); 102 $self->{url_overlay}->hide;
101 $self->{showing} = 0; 103 $self->{showing} = 0;
102 return; 104 return;
103 } 105 }
104 @{$self->{urls}} = (); 106 @{$self->{urls}} = ();
105 my $line; 107 my $line;

Diff Legend

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