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.37 by root, Sat Jul 24 09:48:43 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
… …
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
… …
266 my ($self, $row) = @_; 270 my ($self, $row) = @_;
267 271
268 # fetch the line that has changed 272 # fetch the line that has changed
269 my $line = $self->line ($row); 273 my $line = $self->line ($row);
270 my $text = $line->t; 274 my $text = $line->t;
275 my $rend;
271 276
272 # find all urls (if any) 277 # find all urls (if any)
273 for my $matcher (@{$self->{matchers}}) { 278 for my $matcher (@{$self->{matchers}}) {
274 while ($text =~ /$matcher->[0]/g) { 279 while ($text =~ /$matcher->[0]/g) {
275 #print "$&\n"; 280 #print "$&\n";
276 my $rend = $line->r; 281 $rend ||= $line->r;
277 282
278 # mark all characters as underlined. we _must_ not toggle underline, 283 # mark all characters as underlined. we _must_ not toggle underline,
279 # as we might get called on an already-marked url. 284 # as we might get called on an already-marked url.
280 &{$matcher->[2]} 285 &{$matcher->[2]}
281 for @{$rend}[$-[0] .. $+[0] - 1]; 286 for @{$rend}[$-[0] .. $+[0] - 1];
282
283 $line->r ($rend);
284 } 287 }
285 } 288 }
289
290 $line->r ($rend) if $rend;
286 291
287 () 292 ()
288} 293}
289 294
290sub valid_button { 295sub valid_button {
… …
418 if (@matches) { 423 if (@matches) {
419 @matches = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] } @matches; 424 @matches = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] } @matches;
420 $self->{matches} = \@matches; 425 $self->{matches} = \@matches;
421 $self->{cur_row} = $row; 426 $self->{cur_row} = $row;
422 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0; 427 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0;
423 $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); 428 $self->view_start ($row - ($self->nrow >> 1));
424 $self->want_refresh; 429 $self->want_refresh;
425 return; 430 return 1;
426 } 431 }
427 432
428 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; 433 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
429 } 434 }
430 435
431 $self->scr_bell; 436 $self->scr_bell;
437
438 ()
432} 439}
433 440
434sub select_refresh { 441sub select_refresh {
435 my ($self) = @_; 442 my ($self) = @_;
436 443
… …
480 } else { 487 } else {
481 my $line = $self->line ($self->{cur_row}); 488 my $line = $self->line ($self->{cur_row});
482 $self->select_search (+1, $line->end + 1) 489 $self->select_search (+1, $line->end + 1)
483 if $line->end < $self->nrow; 490 if $line->end < $self->nrow;
484 } 491 }
492 } elsif ($self->lookup_keysym ($keysym, $event->{state}) eq "matcher:select") {
493 if ($self->{id} > 0) {
494 $self->{id}--;
495 $self->want_refresh;
496 } else {
497 my $line = $self->line ($self->{cur_row});
498 $self->select_search (-1, $self->nrow - 1)
499 unless $self->select_search (-1, $line->beg - 1);
500 }
485 } 501 }
486 502
487 1 503 1
488} 504}
489 505

Diff Legend

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