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

Disable local echo during animation

Browse source
This commit is contained in:
Juerd Waalboer 2018-09-04 23:34:14 +02:00
parent 7ec4d31219
commit 9ef84285a4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/warnings
View file

@ -45,12 +45,14 @@ sub hook_add {
my $text = join "\n", map ">> $_ <<", @warnings; my $text = join "\n", map ">> $_ <<", @warnings;
my $delay = 1.5 / length($text); my $delay = 1.5 / length($text);
system "stty -echo 2>/dev/null";
print "\e[7m"; # reverse video print "\e[7m"; # reverse video
for my $c (split //, $text) { for my $c (split //, $text) {
print $c eq "\n" ? "\e[0m\n\e[7m" : $c; print $c eq "\n" ? "\e[0m\n\e[7m" : $c;
sleep $delay; sleep $delay;
} }
print "\e[0m\n"; print "\e[0m\n";
system "stty echo 2>/dev/null";
sleep .5; sleep .5;
} }