git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
font: grouped character groups
[sheet.git]
/
font.plp
diff --git
a/font.plp
b/font.plp
index 79ac28d8b44059ec7046e4d8f0f82f94583de595..11eba2f5566f2ef26ac6ad110442005166472f3c 100644
(file)
--- a/
font.plp
+++ b/
font.plp
@@
-52,10
+52,12
@@
print '<th colspan=2>';
printf '<td>%s', $_ for @fontlist;
say '</thead>';
printf '<td>%s', $_ for @fontlist;
say '</thead>';
-for my $name (sort keys %{$cover}) {
- my $row = $cover->{$name};
+for my $group (sort keys %{$cover}) {
+ say '<tbody>';
+for my $name (sort keys %{ $cover->{$group} }) {
+ my $row = $cover->{$group}->{$name};
print '<tr>';
print '<tr>';
- $name =
qq{<a href="/chars/$name">$name</a>}
+ $name =
sprintf '<a href="%s">%s</a>', EncodeURI("/chars/$group/$name"), EscapeHTML($name)
if $row->{-count} and $row->{-count} < 1280;
print '<th>', $name;
print '<td class=right>', $row->{-count};
if $row->{-count} and $row->{-count} < 1280;
print '<th>', $name;
print '<td class=right>', $row->{-count};
@@
-76,6
+78,8
@@
for my $name (sort keys %{$cover}) {
}
say '</tr>';
}
}
say '</tr>';
}
+ say '</tbody>';
+}
say "</table>\n";
say "</table>\n";