=back
=cut
-sub mapping_mode_path {
- my ($key, $screen, $config, $input) = @_;
+sub mapping_mode_helper {
+ my ($name, $select, $key, $screen, $config, $input) = @_;
- $screen->debug('mapping_mode_path', 'started');
+ $screen->debug("mapping_mode_$name", 'started');
- my @matches = get_regex_matches($input, $config->{regex}{path});
+ my @matches = get_regex_matches($input, $config->{regex}{$name});
return {
- select => 'path select',
+ select => $select,
matches => \@matches,
- handler => $config->{handler}{yank},
+ handler => $config->{handler}{$name},
};
}
+sub mapping_mode_path {
+ return mapping_mode_helper('path', 'path select', @_);
+}
sub mapping_mode_url {
- my ($key, $screen, $config, $input) = @_;
-
- $screen->debug('mapping_mode_url', 'started');
-
- my @matches = get_regex_matches($input, $config->{regex}{url});
- return {
- select => 'url select',
- matches => \@matches,
- handler => $config->{handler}{url},
- };
+ return mapping_mode_helper('url', 'url select', @_);
}
sub mapping_mode_ip {
my ($key, $screen, $config, $input) = @_;
};
}
sub mapping_mode_checksum {
- my ($key, $screen, $config, $input) = @_;
-
- $screen->debug('mapping_mode_checksum', 'started');
-
- my @matches = get_regex_matches($input, $config->{regex}{checksum});
- return {
- select => 'checksum select',
- matches => \@matches,
- handler => $config->{handler}{checksum},
- };
+ return mapping_mode_helper('checksum', 'checksum select', @_);
}
=head2 SEARCH MODE (AND EXTEND MODE)
=item B<initial_mode> start in this mode, must be a valid mode mapping (C<\&mapping_mode_url>)
-=item B<multiplexer> set multiplexer ("screen" or "tmux") if not autodetected (C<undef>)
+=item B<multiplexer> set multiplexer ("screen" or "tmux"), defaults to autodetection (C<undef>)
=item B<ignorecase> ignore case when searching (C<0>)
=item B<paste> used to paste selection into window (C<\&handler_paste>)
+=item B<path> used to handle paths (C<\&handler_yank>)
+
=item B<url> used to open URLs (e.g. in a browser) (C<\&handler_url>)
=item B<ip> used to handle IPs (C<\&handler_yank>)
my %handler = (
yank => \&handler_yank,
paste => \&handler_paste,
+ path => \&handler_yank,
url => \&handler_url,
ip => \&handler_yank,
checksum => \&handler_yank,
run_command()
run_in_background()
-Helper functions when writing custom mappings, see the source for details.
+Helper functions when writing custom mappings, see the source and example for
+details.
Example:
}
return $result;
- }
+ };
# Also update initial mode to use our new "URL mode".
$config{setting}{initial_mode} = $config{mapping}{mode}{u};
});
};
-
-
=cut
# All variables and functions which are usable by ~/.fcscsrc.