… | |
… | |
5 | |
5 | |
6 | #:META:RESOURCE:%.launcher:string:default launcher command |
6 | #:META:RESOURCE:%.launcher:string:default launcher command |
7 | #:META:RESOURCE:%.button:string:the button, yeah |
7 | #:META:RESOURCE:%.button:string:the button, yeah |
8 | #:META:RESOURCE:%.pattern.:string:extra pattern to match |
8 | #:META:RESOURCE:%.pattern.:string:extra pattern to match |
9 | #:META:RESOURCE:%.launcher.:string:custom launcher for pattern |
9 | #:META:RESOURCE:%.launcher.:string:custom launcher for pattern |
10 | #:META:RESOURCE:%.rend.:string:custom rednition for pattern |
10 | #:META:RESOURCE:%.rend.:string:custom rendition for pattern |
11 | |
11 | |
12 | =head1 NAME |
12 | =head1 NAME |
13 | |
13 | |
14 | matcher - match strings in terminal output and change their rendition |
14 | matcher - match strings in terminal output and change their rendition |
15 | |
15 | |
… | |
… | |
224 | my ($self, $row) = @_; |
224 | my ($self, $row) = @_; |
225 | |
225 | |
226 | # fetch the line that has changed |
226 | # fetch the line that has changed |
227 | my $line = $self->line ($row); |
227 | my $line = $self->line ($row); |
228 | my $text = $line->t; |
228 | my $text = $line->t; |
229 | my $i = 0; |
|
|
230 | |
229 | |
231 | # find all urls (if any) |
230 | # find all urls (if any) |
232 | for my $matcher (@{$self->{matchers}}) { |
231 | for my $matcher (@{$self->{matchers}}) { |
233 | while ($text =~ /$matcher->[0]/g) { |
232 | while ($text =~ /$matcher->[0]/g) { |
234 | #print "$&\n"; |
233 | #print "$&\n"; |