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

Animate text

Browse source
This commit is contained in:
Juerd Waalboer 2018-09-04 23:27:18 +02:00
parent a9482754eb
commit 7ec4d31219
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
plugins/warnings
View file

@ -3,6 +3,8 @@
# The file format for 'revbank.warnings' is simply two whitespace separated # The file format for 'revbank.warnings' is simply two whitespace separated
# columns: product id (or /regex/ for descriptions) and the warning text. # columns: product id (or /regex/ for descriptions) and the warning text.
use Time::HiRes qw(sleep);
sub _read_warnings { sub _read_warnings {
open my $fh, 'revbank.warnings' or die $!; open my $fh, 'revbank.warnings' or die $!;
return map { return map {
@ -38,9 +40,17 @@ sub hook_add {
$_->( $item->{product_id}, $item->{description} ) $_->( $item->{product_id}, $item->{description} )
} _read_warnings; } _read_warnings;
if (@warnings) { return if not @warnings;
print "\e[7m>> $_ <<\e[0m\n" for @warnings;
sleep 2; my $text = join "\n", map ">> $_ <<", @warnings;
my $delay = 1.5 / length($text);
print "\e[7m"; # reverse video
for my $c (split //, $text) {
print $c eq "\n" ? "\e[0m\n\e[7m" : $c;
sleep $delay;
} }
print "\e[0m\n";
sleep .5;
} }