From 7ec4d31219f8b1d8448c7a8eb886149ba76a8509 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 4 Sep 2018 23:27:18 +0200
Subject: [PATCH] Animate text

---
 plugins/warnings | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/plugins/warnings b/plugins/warnings
index 0cd2308..4993191 100755
--- a/plugins/warnings
+++ b/plugins/warnings
@@ -3,6 +3,8 @@
 # The file format for 'revbank.warnings' is simply two whitespace separated
 # columns: product id (or /regex/ for descriptions) and the warning text.
 
+use Time::HiRes qw(sleep);
+
 sub _read_warnings {
     open my $fh, 'revbank.warnings' or die $!;
     return map {
@@ -38,9 +40,17 @@ sub hook_add {
         $_->( $item->{product_id}, $item->{description} )
     } _read_warnings;
 
-    if (@warnings) {
-        print "\e[7m>> $_ <<\e[0m\n" for @warnings;
-        sleep 2;
+    return if not @warnings;
+
+    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;
 }