#! /usr/bin/env perl6

use v6.c;

use Perl6::Utils;
use Perl6::Documentable::Registry;
use Perl6::Documentable::To::HTML;
use Pod::Load;
use Pod::Utilities::Build;
use Perl6::TypeGraph::Viz;

my $registry = Perl6::Documentable::Registry.new(use-cache => $cache,
                                                verbose   => $v
                                            );

for <Language Programs Type Native> {
    $registry.process-pod-dir(:topdir($topdir), :dir($_));
}

my @sources  = $registry.documentables.grep({.pod-is-complete});
my @language = @sources.grep({.kind eq "language"});
my @programs = @sources.grep({.kind eq "programs"});
my @type     = @sources.grep({.kind eq "type"    });

my @onepage = [
    @language.map({.pod.contents.Slip}).Slip,
    @programs.map({.pod.contents.Slip}).Slip,
    @type.map({.pod.contents.Slip}).Slip
];

spurt "html/perl6.html", p2h(@onepage, pod-path => "perl");