Create an index page

Author: moritz

htmlify.pl

@@ -1,13 +1,17 @@
 #!/usr/bin/env perl6
 use v6;
+use Pod::To::HTML;
 
 # this script isn't in bin/ because it's not meant
 # to be installed.
 
+my %names;
+my %types;
 my %routines;
 
 sub MAIN($out_dir = 'html') {
     mkdir $out_dir unless $out_dir.IO ~~ :e;
+    mkdir "$out_dir/type" unless "$out_dir/type".IO ~~ :e;
 
     # TODO:  be recursive instead
     my @source = dir('lib').grep(*.f).grep(rx{\.pod$});
@@ -16,12 +20,11 @@ ($out_dir = 'html')
 
     for (@source) {
         my $podname = .basename.subst(rx{\.pod$}, '').subst(:g, '/', '::');
+        # XXX just to speed stuff up for index creation debugging
         say "$_.path() => $podname";
-        shell("perl6 --doc=HTML $_.path() > $out_dir/$podname.html");
-
-        # disable the rest of the processing for now, doesn't 
-        # really do anthing except burning CPU cycles
-        next;
+        %names{$podname}<type>.push: "/type/$podname";
+        %types{$podname} =           "/type/$podname";
+        shell("perl6 --doc=HTML $_.path() > $out_dir/type/$podname.html");
 
         shell("perl6 -Ilib --doc=Serialization $_.path() > $tempfile");
         # assume just one pod block for now
@@ -30,11 +33,17 @@ ($out_dir = 'html')
                 :from({ $_ ~~ Pod::Heading and .level == 2}),
                 :to({ $^b ~~ Pod::Heading and $^b.level <= $^a.level}),
             );
-        for @chunks {
-            say .perl;
+        for @chunks -> $chunk {
+            my $name = $chunk[0].content[0].content[0];
+            next if $name ~~ /\s/;
+            %names{$name}<routine>.push: "/type/$podname.html#$name";
+            %routines{$name}.push: $chunk;
         }
         unlink $tempfile;
     }
+    write-index-file($out_dir);
+    # TODO: write per-routine docs
+    # TODO: write top-level disambiguation files
 }
 
 sub chunks-grep(:$from!, :&to!, *@elems) {
@@ -53,3 +62,45 @@ ($out_dir = 'html')
         take [@current] if @current;
     }
 }
+
+sub write-index-file($out_dir) {
+    my $pod = Pod::Block::Named.new(
+        name => "pod",
+        content => Array.new(
+            Pod::Block::Named.new(
+                name => "TITLE",
+                content => Array.new(
+                    Pod::Block::Para.new(
+                        content => ["Perl 6 Documentation"],
+                    )
+                )
+            ),
+            Pod::Block::Para.new(
+                content => ['Official Perl 6 documentation'],
+            ),
+            # TODO: add more
+            Pod::Heading.new(
+                level => 1,
+                content => Array.new(
+                    Pod::Block::Para.new(content => ["Types"])
+                )
+            ),
+            %types.sort.map: {
+                Pod::Item.new(
+                    level => 1,
+                    content =>  [
+                        Pod::FormattingCode.new(
+                            type    => 'L',
+                            content => [
+                                .key ~ '|' ~ .value;
+                            ],
+                        ),
+                    ],
+                ),
+            }
+        )
+    );
+    my $file = open :w, "$out_dir/index.html";
+    $file.print: pod2html($pod);
+    $file.close;
+}