[Secure-testing-commits] r56604 - bin
Raphael Geissert
geissert at moszumanska.debian.org
Wed Oct 11 10:11:09 UTC 2017
Author: geissert
Date: 2017-10-11 10:11:09 +0000 (Wed, 11 Oct 2017)
New Revision: 56604
Modified:
bin/check-new-issues
Log:
Add command completion
Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues 2017-10-11 09:30:47 UTC (rev 56603)
+++ bin/check-new-issues 2017-10-11 10:11:09 UTC (rev 56604)
@@ -209,6 +209,27 @@
print "Install libterm-readline-gnu-perl to get readline support!\n";
}
+my $attribs = $term->Attribs;
+
+$attribs->{completion_word} = [ qw(.f .c .w .m .r ! v e - .help q) ];
+
+sub initial_completion {
+ my ($text, $line, $start, $end) = @_;
+
+ $attribs->{attempted_completion_over} = 1;
+
+
+ # If first word then complete commands
+ if (substr($line, 0, $start) =~ /^\s*[.]?$/) {
+ return $term->completion_matches($text,
+ $attribs->{list_completion_function});
+ } else {
+ return;
+ }
+}
+
+$attribs->{attempted_completion_function} = \&initial_completion;
+
TODO: foreach my $todo (reverse sort @todos) {
print ${$data->{$todo}->{CVE}} if $data->{$todo}->{CVE};
print ${$data->{$todo}->{entry}};
@@ -272,10 +293,10 @@
print "exit status: $?\n";
next READ;
}
- elsif ($r=~ /^q$/i ) {
+ elsif ($r=~ /^q\s?$/i ) {
last TODO;
}
- elsif ($r=~ /^[ve]$/i ) {
+ elsif ($r=~ /^[ve]\s?$/i ) {
my $newentry=edit_entry(${$data->{$todo}->{entry}});
if ( $newentry eq ${$data->{$todo}->{entry}} ) {
print "Not changed.\n";
More information about the Secure-testing-commits
mailing list