bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prompt decorations

Browse source
This commit is contained in:
RevBar 2011-06-10 01:04:26 +02:00
parent 976c0e43da
commit d91e8c09b6
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
revbank
View file

@ -50,7 +50,7 @@ print "\e[0m\n\n\nWelcome to the RevBank Shell";
my $at = "ABORTING TRANSACTION.";
my $readline = Term::ReadLine->new($0);
$readline->ornaments(0);
$readline->ornaments('me,md,,');
# For tab completion
my @commands = qw/
@ -68,13 +68,14 @@ sub prompt {
@matches = grep /^\Q$word\E/i, @$completions if $state == 0;
return shift @matches;
};
my $input = $readline->readline($prompt. "\e[1;4m");
my $input = $readline->readline($prompt);
logline($prompt);
logline(defined($input) ? $input : "\e[1;5mX\e[0m");
logline("\n");
print "\e[0m";
defined $input or return;
chomp $input;
# Clean up backspaces... TODO: fix terminal :)
$input =~ s/^\cH+//;