X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/13f64783b1e5ed763a85912e7129d58791de8340..675221b52b08ff40fa91f38fe2eae05a4ef155bc:/font.plp?ds=sidebyside

diff --git a/font.plp b/font.plp
index 98fff40..1d6ee4f 100644
--- a/font.plp
+++ b/font.plp
@@ -50,7 +50,9 @@ my @rows = (
 	'table/punctuation',
 	'block/Dingbats',
 	'table/symbols',
+	'category/Sc', # currency
 	'table/math',
+	'category/Sm', # mathematical
 	'table/arrows/single',
 	'table/lines/single',
 	'table/block',
@@ -58,7 +60,7 @@ my @rows = (
 	'table/html',
 );
 
-for my $group ($ENV{PATH_INFO} || ()) {
+if (my $group = $ENV{PATH_INFO}) {
 	$group =~ s{^/}{};
 	my $grouprows = $cover->{$group}
 		or die "Unknown character category $_\n";
@@ -79,8 +81,10 @@ printf '<td colspan=%d>%s fonts', scalar @{ $cover->{os}->{$_} }, $_
 
 print '<tr>';
 print '<th colspan=2>';
-printf '<td title="%s">%s', $_->{name}, $_->{abbr}
-	for @{ $cover->{fonts} }[@fontlist];
+printf('<td title="%s">%s', map { EscapeHTML($_) }
+	join("\n", $_->{name}, $_->{description}),
+	$_->{abbr},
+) for @{ $cover->{fonts} }[@fontlist];
 say '</thead>';
 
 for (@rows) {