Generate type graph visualizations as SVG files (and .gitignore the new html/svg/ directory)

Author: Geoffrey Broadwell

.gitignore

@@ -5,3 +5,4 @@ html/*.html
 html/routine/
 html/type/
 html/language/
+html/svg/

htmlify.pl

@@ -8,6 +8,7 @@
 use URI::Escape;
 use lib 'lib';
 use Perl6::TypeGraph;
+use Perl6::TypeGraph::Viz;
 
 sub url-munge($_) {
     return $_ if m{^ <[a..z]>+ '://'};
@@ -18,6 +19,7 @@
 
 my $*DEBUG = False;
 
+my $tg;
 my %names;
 my %types;
 my %routines;
@@ -63,7 +65,7 @@
 
 sub MAIN($out_dir = 'html', Bool :$debug) {
     $*DEBUG = $debug;
-    for ('', <type language routine>) {
+    for ('', <type language routine svg>) {
         mkdir "$out_dir/$_" unless "$out_dir/$_".IO ~~ :e;
     }
 
@@ -73,7 +75,7 @@ ($out_dir = 'html', Bool :$debug)
     say '... done';
 
     say "Reading type graph ...";
-    my $tg = Perl6::TypeGraph.new-from-file('type-graph.txt');
+    $tg = Perl6::TypeGraph.new-from-file('type-graph.txt');
     {
         my %h = $tg.sorted.kv.flat.reverse;
         @source.=sort: { %h{.key} // -1 };
@@ -155,6 +157,8 @@ ($out_dir = 'html', Bool :$debug)
         }
         spurt "$out_dir/$what/$podname.html", pod2html($pod, :url(&url-munge), :$footer);
     }
+
+    write-type-graph-images(:$out_dir);
     write-search-file(:$out_dir);
     write-index-file(:$out_dir);
     say "Writing per-routine files...";
@@ -228,6 +232,14 @@ ($out_dir = 'html', Bool :$debug)
     );
 }
 
+sub write-type-graph-images(:$out_dir!) {
+    say "Writing type graph images to $out_dir/svg/";
+    for $tg.sorted -> $type {
+        my $viz = Perl6::TypeGraph::Viz.new-for-type($type);
+        $viz.to-svg-file("$out_dir/svg/type-graph-{$type}.svg");
+    }
+}
+
 sub write-search-file(:$out_dir!) {
     say "Writing $out_dir/search.html";
     my $template = slurp("search_template.html");