use LWP::UserAgent;
use JSON qw(from_json);
use HTML::HTML5::Builder qw(:standard);
use List::Util qw(shuffle);

my $rows = 4;
my $cols = 4;
my $size = 60;
my $whom = 'TOBYINK';

my %foregrounds = (
    magenta => 'black',
    red     => 'white',
    orange  => 'black',
    yellow  => 'black',
    lime    => 'black',
    green   => 'white',
    cyan    => 'black',
    blue    => 'white',
    purple  => 'white',
    );
my @colours = keys %foregrounds;

my @chosen_links;
my @links =
    map { $_->{fields}{name} =~ m/^(.+)-([^-]+)$/; $1 }
    @{
        from_json(
            LWP::UserAgent
                -> new()
                -> get("http://api.metacpan.org/v0/release/_search?q=a
+uthor:$whom+AND+status:latest&fields=name&size=200")
                -> decoded_content
        )->{hits}{hits}
    };

my $hexstyle = qq{
    h1 { margin: 0; padding: 0 }
    .col {
        width: @{[ 3.5 * $size ]}px;
        float: left;
    }
    .hex {
        border: ${size}px solid transparent;
    }
    .mid {
        margin: 0;
        padding: 0;
        height: 0;
        border: 1px solid transparent;
        overflow: visible;
        text-align: center;
    }
    .mid p {
        position: relative;
        top: -1.2em;
        font-size: 75%;
    }
    a:link {
        color: inherit !important;
        text-decoration: none;
    }
    a:visited {
        color: inherit !important;
        text-decoration: line-through;
    }
}
.(join q(), map { qq{
    #col$_ {
        position: relative;
        left: -@{[ $size * ($_-1) ]}px;
        top: @{[ $_%2 ? 0 : ($size+1) ]}px;
    }
} } 2 .. $cols)
.(join q(), map { qq{
    .${_}      { border-color: $_; color: $foregrounds{$_} }
    .${_}-top  { border-bottom-color: $_ }  /* sic */
    .${_}-base { border-top-color: $_ }     /* sic */
} } @colours)
;

sub mk_column
{
    my $C = shift;
    my $n = $C%2 ? $rows : ($rows-1);

    my @chosen_colours = map { $colours[rand(@colours)] } 1 .. $n;
    
    my @return;
    my $i = 0;
    LOOP: while (1)
    {
        if ($i == 0) {
            push @return, div(-class => "hex $chosen_colours[$i]-top")
+;
        }
        else {
            push @return, div(-class => "hex $chosen_colours[$i]-top $
+chosen_colours[$i-1]-base");
        }
        
        my $href = sprintf('https://metacpan.org/release/%s', $chosen_
+links[($cols*($C-1)) + $i]);
        push @return,
            div(
                -class => "mid $chosen_colours[$i]",
                p(
                    a(-href=>$href, $chosen_links[($cols*($C-1)) + $i]
+)
                )
            );
        $i++;
        
        if ($i == $n) {
            push @return, div(-class => "hex $chosen_colours[$i-1]-bas
+e");
            last LOOP;
        }
    }

    div(
        -class => 'col',
        -id    => "col$_",
        @return,
    );
}

my $app = sub
{
    @chosen_links = shuffle @links;
    
    my $html = html(
        head(
            title("Hexed!"),
            style(-type => 'text/css', $hexstyle),
        ),
        body(
            h1("Modules by $whom"),
            map { mk_column($_) } 1..$cols
        )
    );
    
    return [
        200,
        [ 'Content-Type' => 'text/html' ],
        [ "$html" ],
    ];
};
[download]