use helper function to reduce duplication in mappings

[fcscs/fcscs.git] / bin / fcscs

diff --git a/bin/fcscs b/bin/fcscs
index 84d526cdefcffd9df2fa43dd3e9bf8b107c5e8ff..582d194c7a47fd86011650f79eef9dd8046512c8 100755 (executable)
--- a/bin/fcscs
+++ b/bin/fcscs
@@ -753,29 +753,23 @@ The following normal modes are available:
 =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) = @_;
@@ -791,16 +785,7 @@ sub mapping_mode_ip {
     };
 }
 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)
@@ -1206,7 +1191,7 @@ Defaults in parentheses.
 
 =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>)
 
@@ -1290,6 +1275,8 @@ The following handlers are available, defaults in parentheses.
 
 =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>)
@@ -1317,6 +1304,7 @@ Example:
 my %handler = (
     yank     => \&handler_yank,
     paste    => \&handler_paste,
+    path     => \&handler_yank,
     url      => \&handler_url,
     ip       => \&handler_yank,
     checksum => \&handler_yank,
@@ -1364,7 +1352,8 @@ Used as handler to yank, paste selection or open URL in browser.
     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:
 
@@ -1394,7 +1383,7 @@ Example:
         }
 
         return $result;
-    }
+    };
     # Also update initial mode to use our new "URL mode".
     $config{setting}{initial_mode} = $config{mapping}{mode}{u};
 
@@ -1408,8 +1397,6 @@ Example:
         });
     };
 
-
-
 =cut
 
 # All variables and functions which are usable by ~/.fcscsrc.