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: include version in font name hover
[sheet.git]
/
font.plp
diff --git
a/font.plp
b/font.plp
index 98fff40ade1bc140b524e0758380cd64f4d58d0d..1d6ee4f104dbab6c28eb133e1f0f37d166adf35a 100644
(file)
--- a/
font.plp
+++ b/
font.plp
@@
-50,7
+50,9
@@
my @rows = (
'table/punctuation',
'block/Dingbats',
'table/symbols',
'table/punctuation',
'block/Dingbats',
'table/symbols',
+ 'category/Sc', # currency
'table/math',
'table/math',
+ 'category/Sm', # mathematical
'table/arrows/single',
'table/lines/single',
'table/block',
'table/arrows/single',
'table/lines/single',
'table/block',
@@
-58,7
+60,7
@@
my @rows = (
'table/html',
);
'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";
$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>';
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) {
say '</thead>';
for (@rows) {