add standard progress bar

Author: coke

META6.json

@@ -18,6 +18,7 @@
     "OO::Monitors",
     "File::Find",
     "Test::META",
+    "Term::ProgressBar",
     "Sake"
   ],
   "tags": [

Sakefile

@@ -1,3 +1,5 @@
+use Term::ProgressBar;
+
 use lib 'lib';
 
 task 'default' => 'htmlify';
@@ -43,7 +45,6 @@ task 'ctest', { run-tests(<t/07-tabs.t xt/perl-nbsp.t xt/trailing-whitespace.t>)
 
 #| Generate type graph images
 task 'type-graph-images', {
-    say "Generating type-graph images";
     use Perl6::TypeGraph;
     use Perl6::TypeGraph::Viz;
 
@@ -91,17 +92,19 @@ task 'type-graph-images', {
     my $type-graph = Perl6::TypeGraph.new-from-file('type-graph.txt');
     my $infile-time = 'type-graph.txt'.IO.modified;
 
+    my $bar = Term::ProgressBar.new( count => +$type-graph.sorted, :p, :name<type-graph images>);
+    my $count = 1;
+
     #| Writing type graph images
     for $type-graph.sorted -> $type {
         my $outfile = "html/images/type-graph-{$type}.svg";
         my $outfile-time = try $outfile.IO.modified // 0;
 
+        $bar.update($count++);
+
         if $outfile-time < $infile-time {
             my $viz = Perl6::TypeGraph::Viz.new-for-type($type);
             push @jobs, $viz.to-file($outfile, format => 'svg');
-            print '.';
-        } else {
-            print '#';
         }
     }
 
@@ -110,17 +113,20 @@ task 'type-graph-images', {
     %by-group<Exception>.append: $type-graph.types< Exception Any Mu >;
     %by-group<Metamodel>.append: $type-graph.types< Any Mu >;
 
+    $bar = Term::ProgressBar.new( count => +%by-group.keys, :p, :name<specialized images>);
+    $count = 1;
+
     for %by-group.kv -> $group, @types {
         my $outfile = "html/images/type-graph-{$group}.svg";
         my $outfile-time = try $outfile.IO.modified // 0;
+
+        $bar.update($count++);
+
         if $outfile-time < $infile-time {
             my $viz = Perl6::TypeGraph::Viz.new(:types(@types),
                                                 :dot-hints(viz-hints($group)),
                                                 :rank-dir('LR'));
             push @jobs, $viz.to-file($outfile, format => 'svg');
-            print '.';
-        } else {
-            print '#';
         }
     }
     say '';