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.31 by sf-exg, Sun Jun 22 07:51:21 2014 UTC vs.
Revision 1.35 by sf-exg, Tue Mar 17 09:25:16 2015 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 4
… …
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
… …
187 $self->enable (key_press => \&matchlist_key_press); 191 $self->enable (key_press => \&matchlist_key_press);
188} 192}
189 193
190sub most_recent { 194sub most_recent {
191 my ($self) = shift; 195 my ($self) = shift;
192 my $row = $self->nrow; 196 my $row = $self->nrow - 1;
193 my @exec; 197 my @exec;
194 while($row-- > $self->top_row) { 198 while ($row >= $self->top_row) {
199 my $line = $self->line ($row);
195 @exec = $self->command_for($row); 200 @exec = $self->command_for($row);
196 last if(@exec); 201 last if(@exec);
202
203 $row = $line->beg - 1;
197 } 204 }
198 if(@exec) { 205 if(@exec) {
199 return $self->exec_async (@exec); 206 return $self->exec_async (@exec);
200 } 207 }
201 () 208 ()
… …
263 my ($self, $row) = @_; 270 my ($self, $row) = @_;
264 271
265 # fetch the line that has changed 272 # fetch the line that has changed
266 my $line = $self->line ($row); 273 my $line = $self->line ($row);
267 my $text = $line->t; 274 my $text = $line->t;
275 my $rend;
268 276
269 # find all urls (if any) 277 # find all urls (if any)
270 for my $matcher (@{$self->{matchers}}) { 278 for my $matcher (@{$self->{matchers}}) {
271 while ($text =~ /$matcher->[0]/g) { 279 while ($text =~ /$matcher->[0]/g) {
272 #print "$&\n"; 280 #print "$&\n";
273 my $rend = $line->r; 281 $rend ||= $line->r;
274 282
275 # mark all characters as underlined. we _must_ not toggle underline, 283 # mark all characters as underlined. we _must_ not toggle underline,
276 # as we might get called on an already-marked url. 284 # as we might get called on an already-marked url.
277 &{$matcher->[2]} 285 &{$matcher->[2]}
278 for @{$rend}[$-[0] .. $+[0] - 1]; 286 for @{$rend}[$-[0] .. $+[0] - 1];
279
280 $line->r ($rend);
281 } 287 }
282 } 288 }
289
290 $line->r ($rend) if $rend;
283 291
284 () 292 ()
285} 293}
286 294
287sub valid_button { 295sub valid_button {
… …
417 $self->{matches} = \@matches; 425 $self->{matches} = \@matches;
418 $self->{cur_row} = $row; 426 $self->{cur_row} = $row;
419 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0; 427 $self->{id} = $dir < 0 ? @{ $self->{matches} } - 1 : 0;
420 $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1)); 428 $self->view_start (List::Util::min 0, $row - ($self->nrow >> 1));
421 $self->want_refresh; 429 $self->want_refresh;
422 return; 430 return 1;
423 } 431 }
424 432
425 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1; 433 $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
426 } 434 }
427 435
428 $self->scr_bell; 436 $self->scr_bell;
437
438 ()
429} 439}
430 440
431sub select_refresh { 441sub select_refresh {
432 my ($self) = @_; 442 my ($self) = @_;
433 443
… …
477 } else { 487 } else {
478 my $line = $self->line ($self->{cur_row}); 488 my $line = $self->line ($self->{cur_row});
479 $self->select_search (+1, $line->end + 1) 489 $self->select_search (+1, $line->end + 1)
480 if $line->end < $self->nrow; 490 if $line->end < $self->nrow;
481 } 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 }
482 } 501 }
483 502
484 1 503 1
485} 504}
486 505

Diff Legend

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