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.32 by sf-exg, Wed Jul 30 15:22:51 2014 UTC vs.
Revision 1.38 by sf-exg, Sun Nov 21 17:08:57 2021 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# Emanuele Giaquinta
5 6
6#:META:RESOURCE:%.launcher:string:default launcher command 7#:META:RESOURCE:%.launcher:string:default launcher command
7#:META:RESOURCE:%.button:string:the button, yeah 8#:META:RESOURCE:%.button:string:the mouse button used to activate a match
8#:META:RESOURCE:%.pattern.:string:extra pattern to match 9#:META:RESOURCE:%.pattern.:string:extra pattern to match
9#:META:RESOURCE:%.launcher.:string:custom launcher for pattern 10#:META:RESOURCE:%.launcher.:string:custom launcher for pattern
10#:META:RESOURCE:%.rend.:string:custom rendition for pattern 11#:META:RESOURCE:%.rend.:string:custom rendition for pattern
11 12
12=head1 NAME 13=head1 NAME
… …
31 32
32It is possible to activate the most recently seen match or a list of matches 33It is possible to activate the most recently seen match or a list of matches
33from the keyboard. Simply bind a keysym to "matcher:last" or 34from the keyboard. Simply bind a keysym to "matcher:last" or
34"matcher:list" as seen in the example below. 35"matcher:list" as seen in the example below.
35 36
36The 'matcher:select' action enables a mode in which it is possible to 37The C<matcher:select> action enables a mode in which it is possible to
37iterate over the matches using the keyboard and either activate them 38iterate over the matches using the keyboard and either activate them
38or copy them to the clipboard. While the mode is active, normal terminal 39or copy them to the clipboard. While the mode is active, normal terminal
39input/output is suspended and the following bindings are recognized: 40input/output is suspended and the following bindings are recognized:
40 41
41=over 4 42=over
42 43
43=item C<Up> 44=item C<Up>
44 45
45Search for a match upwards. 46Search for a match upwards.
46 47
… …
67=item C<y> 68=item C<y>
68 69
69Copy the current match to the clipboard. 70Copy the current match to the clipboard.
70 71
71=back 72=back
73
74It is also possible to cycle through the matches using a key
75combination bound to the C<matcher:select> action.
72 76
73Example: load and use the matcher extension with defaults. 77Example: load and use the matcher extension with defaults.
74 78
75 URxvt.perl-ext: default,matcher 79 URxvt.perl-ext: default,matcher
76 80
… …
87=cut 91=cut
88 92
89my $url = 93my $url =
90 qr{ 94 qr{
91 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) 95 (?:https?://|ftp://|news://|mailto:|file://|\bwww\.)
92 [\w\-\@;\/?:&=%\$.+!*\x27,~#]* 96 [\w\-\@;\/?:&=%\$.+!*\x27,~#$urxvt::NOCHAR]*
93 ( 97 (
94 \([\w\-\@;\/?:&=%\$.+!*\x27,~#]*\)| # Allow a pair of matched parentheses 98 \([\w\-\@;\/?:&=%\$.+!*\x27,~#$urxvt::NOCHAR]*\)| # Allow a pair of matched parentheses
95 [\w\-\@;\/?:&=%\$+*~] # exclude some trailing characters (heuristic) 99 [\w\-\@;\/?:&=%\$+*~] # exclude some trailing characters (heuristic)
96 )+ 100 )+
97 }x; 101 }x;
98 102
99sub matchlist_key_press { 103sub matchlist_key_press {
… …
113 117
114# backwards compat 118# backwards compat
115sub on_user_command { 119sub on_user_command {
116 my ($self, $cmd) = @_; 120 my ($self, $cmd) = @_;
117 121
118 if ($cmd =~ s/^matcher:list\b//) { 122 if ($cmd eq "matcher:list") {
119 $self->matchlist; 123 $self->matchlist;
120 } else { 124 } elsif ($cmd eq "matcher:last") {
121 if ($cmd =~ s/^matcher:last\b//) {
122 $self->most_recent; 125 $self->most_recent;
126 } elsif ($cmd eq "matcher:select") {
127 $self->select_enter;
123 } elsif ($cmd =~ s/^matcher\b//) { 128 } elsif ($cmd eq "matcher") {
124 # for backward compatibility 129 # for backward compatibility
125 $self->most_recent; 130 $self->most_recent;
126 }
127 } 131 }
128 132
129 () 133 ()
130} 134}
131 135
… …
247 } 251 }
248 } 252 }
249 253
250 my @defaults = ($url); 254 my @defaults = ($url);
251 my @matchers; 255 my @matchers;
252 for (my $idx = 0; defined (my $res = $self->my_resource ("pattern.$idx") || $defaults[$idx]); $idx++) { 256 for (my $idx = 0; defined (my $res = $self->locale_decode ($self->my_resource ("pattern.$idx")) || $defaults[$idx]); $idx++) {
253 $res = $self->locale_decode ($res);
254 utf8::encode $res;
255 my $launcher = $self->my_resource ("launcher.$idx"); 257 my $launcher = $self->my_resource ("launcher.$idx");
256 $launcher =~ s/\$&|\$\{&\}/\${0}/g if $launcher; 258 $launcher =~ s/\$&|\$\{&\}/\${0}/g if $launcher;
257 my $rend = $self->parse_rend($self->my_resource ("rend.$idx")); 259 my $rend = $self->parse_rend($self->my_resource ("rend.$idx"));
258 unshift @matchers, [qr($res)x,$launcher,$rend]; 260 unshift @matchers, [qr($res)x,$launcher,$rend];
259 } 261 }
… …
266 my ($self, $row) = @_; 268 my ($self, $row) = @_;
267 269
268 # fetch the line that has changed 270 # fetch the line that has changed
269 my $line = $self->line ($row); 271 my $line = $self->line ($row);
270 my $text = $line->t; 272 my $text = $line->t;
273 my $rend;
271 274
272 # find all urls (if any) 275 # find all urls (if any)
273 for my $matcher (@{$self->{matchers}}) { 276 for my $matcher (@{$self->{matchers}}) {
274 while ($text =~ /$matcher->[0]/g) { 277 while ($text =~ /$matcher->[0]/g) {
275 #print "$&\n"; 278 #print "$&\n";
276 my $rend = $line->r; 279 $rend ||= $line->r;
277 280
278 # mark all characters as underlined. we _must_ not toggle underline, 281 # mark all characters as underlined. we _must_ not toggle underline,
279 # as we might get called on an already-marked url. 282 # as we might get called on an already-marked url.
280 &{$matcher->[2]} 283 &{$matcher->[2]}
281 for @{$rend}[$-[0] .. $+[0] - 1]; 284 for @{$rend}[$-[0] .. $+[0] - 1];
282
283 $line->r ($rend);
284 } 285 }
285 } 286 }
287
288 $line->r ($rend) if $rend;
286 289
287 () 290 ()
288} 291}
289 292
290sub valid_button { 293sub valid_button {
… …
418 if (@matches) { 421 if (@matches) {
419 @matches = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] } @matches; 422 @matches = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] } @matches;
420 $self->{matches} = \@matches; 423 $self->{matches} = \@matches;
421 $self->{cur_row} = $row; 424 $self->{cur_row} = $row;
422 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0; 425 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0;
423 $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); 426 $self->view_start ($row - ($self->nrow >> 1));
424 $self->want_refresh; 427 $self->want_refresh;
425 return; 428 return 1;
426 } 429 }
427 430
428 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; 431 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
429 } 432 }
430 433
431 $self->scr_bell; 434 $self->scr_bell;
435
436 ()
432} 437}
433 438
434sub select_refresh { 439sub select_refresh {
435 my ($self) = @_; 440 my ($self) = @_;
436 441
… …
480 } else { 485 } else {
481 my $line = $self->line ($self->{cur_row}); 486 my $line = $self->line ($self->{cur_row});
482 $self->select_search (+1, $line->end + 1) 487 $self->select_search (+1, $line->end + 1)
483 if $line->end < $self->nrow; 488 if $line->end < $self->nrow;
484 } 489 }
490 } elsif ($self->lookup_keysym ($keysym, $event->{state}) eq "matcher:select") {
491 if ($self->{id} > 0) {
492 $self->{id}--;
493 $self->want_refresh;
494 } else {
495 my $line = $self->line ($self->{cur_row});
496 $self->select_search (-1, $self->nrow - 1)
497 unless $self->select_search (-1, $line->beg - 1);
498 }
485 } 499 }
486 500
487 1 501 1
488} 502}
489 503

Diff Legend

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