Html({
title => 'character support sheet',
- version => 'v1.0',
+ version => '1.0',
keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
print '<td colspan=2>unicode';
print '<td>name';
print '<td><a href="/digraphs" title="digraph">di</a><td>html';
-printf '<td title="%s">%s', $font{$_}->{-name}, $font{$_}->{-abbr}
- for @fontlist;
+printf('<td title="%s">%s', map { EscapeHTML($_) }
+ join("\n", $font{$_}->{-name}, $font{$_}->{-description}),
+ $font{$_}->{-abbr},
+) for @fontlist;
say '</thead>';
for my $chr (@chars) {