X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4b13af2d4d53762c4cb1aed7e4d0de3b5666c1bc..6721f1111bc49b8ee5efc0b39d74321c1393cdfb:/font.plp diff --git a/font.plp b/font.plp index 79ac28d..50d8dcb 100644 --- a/font.plp +++ b/font.plp @@ -52,8 +52,10 @@ print ''; printf '%s', $_ for @fontlist; say ''; -for my $name (sort keys %{$cover}) { - my $row = $cover->{$name}; +for my $group (sort keys %{$cover}) { + say ''; +for my $name (sort keys %{ $cover->{$group} }) { + my $row = $cover->{$group}->{$name}; print ''; $name = qq{$name} if $row->{-count} and $row->{-count} < 1280; @@ -76,6 +78,8 @@ for my $name (sort keys %{$cover}) { } say ''; } + say ''; +} say "\n";