- f: file paths
- i: IPs
- u: URLs
+ - c: checksums (e.g. MD5, SHA1, ..)
- ...
- /: search mode
- for `normal' modes:
$fh = undef; # a failed open still writes a value to $fh
return;
}
+ $fh->autoflush(1);
}
foreach (@args) {
$number = int($number / 10);
} elsif ($char eq "\n"
or $char eq $config->{setting}{alternative_return}) {
- if ($number == 0) { # number without selection matches last entry
- $number = 1;
- }
last;
# Selecting a new mode requires falling through into the main input
return { key => $char };
# All other mappings stay in the current mode.
} elsif (defined (my $m = $config->{mapping}{simple}{$char})) {
- $m->($char, $screen, $config, $input);
+ my $result = $m->($char, $screen, $config, $input);
+ last if defined $result->{select_match};
next;
} else {
$screen->draw_matches($config, $matches, \@remaining);
$screen->refresh;
}
+ # Number without selection matches last entry.
+ if ($number == 0) {
+ $number = 1;
+ }
$screen->draw_matches($config, $matches, []); # remove matches
return {};
}
+sub mapping_paste_now {
+ my ($key, $screen, $config, $input) = @_;
+
+ $screen->debug('mapping_paste_now', 'started');
+
+ $config->{state}{handler} = $config->{handler}{paste};
+
+ return {
+ select_match => 1,
+ };
+}
+
sub mapping_yank {
my ($key, $screen, $config, $input) = @_;
return {};
}
+sub mapping_yank_now {
+ my ($key, $screen, $config, $input) = @_;
+
+ $screen->debug('mapping_yank_now', 'started');
+
+ $config->{state}{handler} = $config->{handler}{yank};
+
+ return {
+ select_match => 1,
+ };
+}
=head2 NORMAL MODES
=over 4
-=item B<path mode> select relative/absolute paths
+=item B<path mode> select relative/absolute paths
+
+=item B<url mode> select URLs
-=item B<url mode> select URLs
+=item B<ip mode> select IPv4 and IPv6 addresses
-=item B<ip mode> select IPv4 and IPv6 addresses
+=item B<checksum mode> select checksums (MD5, SHA1, SHA256, SHA512)
=back
return {
select => 'path select',
matches => \@matches,
- handler => $config->{handler}{yank},
+ handler => $config->{handler}{path},
};
}
sub mapping_mode_url {
handler => $config->{handler}{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},
+ };
+}
=head2 SEARCH MODE (AND EXTEND MODE)
=item B<i> select IPv4 and IPv6 addresses (C<\&mapping_mode_ip>)
+=item B<c> select checksums (e.g. MD5, SHA) (C<\&mapping_mode_checksum>)
+
=item B</> search for regex to get selection (C<\&mapping_mode_search>)
=item B<q> quit fcscs (C<\&mapping_quit>)
=item B<p> enable pasting (C<\&mapping_paste>)
+=item B<P> paste current selection (like C<\n> but paste) (C<\&mapping_paste_now>)
+
=item B<y> enable yanking (copying) (C<\&mapping_yank>)
+=item B<Y> yank current selection (like C<\n> but yank) (C<\&mapping_yank_now>)
+
=back
Note that yanking only uses the GNU screen or Tmux paste buffer by default. To
f => \&mapping_mode_path,
u => \&mapping_mode_url,
i => \&mapping_mode_ip,
+ c => \&mapping_mode_checksum,
'/' => \&mapping_mode_search,
q => \&mapping_quit,
);
my %mapping_simple = (
p => \&mapping_paste,
+ P => \&mapping_paste_now,
y => \&mapping_yank,
+ Y => \&mapping_yank_now,
);
=head2 ATTRIBUTES
# enough.
ipv4 => qr!\b(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}(?:/\d{1,2})?)\b!,
ipv6 => qr!\b((?:[0-9a-fA-F]{1,4})?(?::+[0-9a-fA-F]{1,4})+(?:/\d{1,3})?)\b!,
+ # MD5, SHA1, SHA256, SHA512
+ checksum => qr!\b([0-9a-fA-F]{32}|[0-9a-fA-F]{40}|[0-9a-fA-F]{64}|[0-9a-fA-F]{128})\b!,
);
=head2 HANDLERS
=over
-=item B<yank> used to yank (copy) selection to paste buffer (C<\&handler_yank>)
+=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<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<url> used to open URLs (e.g. in a browser) (C<\&handler_url>)
-=item B<ip> used to handle IPs (C<\&handler_yank>)
+=item B<ip> used to handle IPs (C<\&handler_yank>)
+
+=item B<checksum> used to handle checksums (C<\&handler_yank>)
=back
=cut
my %handler = (
- yank => \&handler_yank,
- paste => \&handler_paste,
- url => \&handler_url,
- ip => \&handler_yank,
+ yank => \&handler_yank,
+ paste => \&handler_paste,
+ path => \&handler_yank,
+ url => \&handler_url,
+ ip => \&handler_yank,
+ checksum => \&handler_yank,
);
my %state = (
mapping_mode_path()
mapping_mode_url()
mapping_mode_ip()
+ mapping_mode_checksum()
mapping_mode_search()
mapping_paste()
+ mapping_paste_now()
mapping_yank()
+ mapping_yank_now()
mapping_quit()
Used as mappings, see L</MAPPINGS> above.
}
return $result;
- }
+ };
# Also update initial mode to use our new "URL mode".
$config{setting}{initial_mode} = $config{mapping}{mode}{u};
sub mapping_mode_path { return main::mapping_mode_path(@_); }
sub mapping_mode_url { return main::mapping_mode_url(@_); }
sub mapping_mode_ip { return main::mapping_mode_ip(@_); }
+ sub mapping_mode_checksum { return main::mapping_mode_checksum(@_); }
sub mapping_mode_search { return main::mapping_mode_search(@_); }
sub mapping_paste { return main::mapping_paste(@_); }
+ sub mapping_paste_now { return main::mapping_paste_now(@_); }
sub mapping_yank { return main::mapping_yank(@_); }
+ sub mapping_yank_now { return main::mapping_yank_now(@_); }
sub mapping_quit { return main::mapping_quit(@_); }
sub handler_yank { return main::handler_yank(@_); }
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(@_); }
}
# Make sure the file is not writable by other users. Doesn't handle
# ACLs and see comment above about race conditions.
- my @stat = stat $path or die $!;
+ my @stat = stat $path or $screen->die("Config '$decoded': $!");
my $mode = $stat[2];
if (($mode & Fcntl::S_IWGRP) or ($mode & Fcntl::S_IWOTH)) {
- die "Config '$decoded' must not be writable by other users.";
+ $screen->die("Config '$decoded' must not be writable by other users.");
}
my $result = do $path;
ruderich.org/simon / fcscs / fcscs.git / blobdiff