debug $config, 'mapping_paste', 'started';
- $config->{state}{handler} = \&handler_paste;
+ $config->{state}{handler} = $config->{handler}{paste};
$screen->prompt(flags => 'P'); # paste
$screen->draw_prompt($config);
debug $config, 'mapping_yank', 'started';
- $config->{state}{handler} = \&handler_yank;
+ $config->{state}{handler} = $config->{handler}{yank};
$screen->prompt(flags => 'Y'); # yank
$screen->draw_prompt($config);
return {
select => 'path select',
matches => \@matches,
- handler => \&handler_yank,
+ handler => $config->{handler}{yank},
};
}
sub mapping_mode_url {
return {
select => 'url select',
matches => \@matches,
- handler => \&handler_url,
+ handler => $config->{handler}{url},
};
}
return {
select => 'search',
matches => \@last_matches,
- handler => \&handler_yank,
+ handler => $config->{handler}{yank},
};
}
# Use a temporary file to prevent leaking the yanked data to other users
# with the command line, e.g. ps aux or top.
my ($fh, $tmp) = File::Temp::tempfile(); # dies on its own
- print $fh $screen->encode($match->{string});
+ print $fh $screen->encode($match->{value});
close $fh or die $!;
if ($config->{setting}{multiplexer} eq 'screen') {
sub handler_url {
my ($screen, $config, $match) = @_;
- debug $config, 'handler_url', 'started';
+ debug $config, 'handler_url', "opening $match->{value}";
run_in_background($config, sub {
- my $url = defined $match->{url}
- ? $match->{url}
- : $match->{string};
-
my @cmd = map { $screen->encode($_) } (
@{$config->{setting}{browser}},
- $url,
+ $match->{value},
);
run_command($config, \@cmd);
});
path => qr{(~?[a-zA-Z0-9_./-]*/[a-zA-Z0-9_./-]+)},
);
+=head2 HANDLERS
+
+Handlers are used to perform actions on the selected string.
+
+The following handlers are available, defaults in parentheses.
+
+=over
+
+=item B<yank> used to yank (copy) selection to paste buffer (C<\&handler_yank>)
+
+=item B<paste> used to paste selection into window (C<\&handler_paste>)
+
+=item B<url> used to open URLs (e.g. in a browser) (C<\&handler_url>)
+
+=back
+
+Example:
+
+ # Download YouTube videos with a custom wrapper, handle all other URLs
+ # with the default URL handler.
+ $config{handler}{url} = sub {
+ my ($screen, $config, $match) = @_;
+
+ if ($match->{value} =~ m{^https://www.youtube.com/}) {
+ return run_in_background($config, sub {
+ run_command($config, ['youtube-dl-wrapper', $match->{value}]);
+ });
+ }
+ handler_url(@_);
+ };
+
+=cut
+my %handler = (
+ yank => \&handler_yank,
+ paste => \&handler_paste,
+ url => \&handler_url,
+);
+
my %state = (
initial => 1, # used by select_match() for 'initial_mode'
handler => undef,
handler_paste()
handler_url()
-Used as handler to yank, paste selection or open URL in browser. They are
-either set by the matching mapping function (C<mapping_paste()>, etc.) or
-configured by the current mode.
+Used as handler to yank, paste selection or open URL in browser.
+ debug()
get_regex_matches()
select_match()
run_command()
sub handler_paste { return main::handler_paste(@_); }
sub handler_url { return main::handler_url(@_); }
+ sub debug { return main::debug(@_); }
+
sub get_regex_matches { return main::get_regex_matches(@_); }
sub select_match { return main::select_match(@_); }
$config{attribute} = \%attribute;
$config{setting} = \%setting;
$config{regex} = \%regex;
+$config{handler} = \%handler;
$config{state} = \%state;
package Fcscs {
goto RESULT; # reprocess special entries in result
}
if (defined $result->{match}) {
+ if (not defined $result->{match}->{value}) {
+ $result->{match}->{value} = $result->{match}->{string};
+ }
+
debug \%config, 'input', 'running handler';
- my $handler = $config{state}{handler}; # set by user
- $handler = $result->{handler} unless defined $handler; # set by mapping
- $handler = \&handler_yank unless defined $handler; # fallback
- $handler->($screen, \%config, $result->{match});
+
+ # Choose handler with falling priority.
+ my @handlers = (
+ $config{state}{handler}, # set by user
+ $result->{match}->{handler}, # set by match
+ $result->{handler}, # set by mapping
+ $config{handler}{yank}, # fallback
+ );
+ foreach my $handler (@handlers) {
+ next unless defined $handler;
+
+ $handler->($screen, \%config, $result->{match});
+ last;
+ }
last;
}