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 |
… | |
… | |
113 | |
114 | |
114 | # backwards compat |
115 | # backwards compat |
115 | sub on_user_command { |
116 | sub on_user_command { |
116 | my ($self, $cmd) = @_; |
117 | my ($self, $cmd) = @_; |
117 | |
118 | |
118 | if ($cmd =~ s/^matcher:list\b//) { |
119 | if ($cmd eq "matcher:list") { |
119 | $self->matchlist; |
120 | $self->matchlist; |
120 | } else { |
121 | } elsif ($cmd eq "matcher:last") { |
121 | if ($cmd =~ s/^matcher:last\b//) { |
|
|
122 | $self->most_recent; |
122 | $self->most_recent; |
|
|
123 | } elsif ($cmd eq "matcher:select") { |
|
|
124 | $self->select_enter; |
123 | } elsif ($cmd =~ s/^matcher\b//) { |
125 | } elsif ($cmd eq "matcher") { |
124 | # for backward compatibility |
126 | # for backward compatibility |
125 | $self->most_recent; |
127 | $self->most_recent; |
126 | } |
|
|
127 | } |
128 | } |
128 | |
129 | |
129 | () |
130 | () |
130 | } |
131 | } |
131 | |
132 | |