git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0d4e2cd
)
font: distinct page titles if given font parameter
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 21 Sep 2015 17:15:25 +0000
(19:15 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 21 Sep 2015 22:20:08 +0000
(
00:20
+0200)
font.plp
patch
|
blob
|
history
diff --git
a/font.plp
b/font.plp
index e64e204ca43fada457293caf0680e337e49d2790..53157649f84006f9fa01eec3d0dba1b5d9996b7a 100644
(file)
--- a/
font.plp
+++ b/
font.plp
@@
-1,8
+1,10
@@
<(common.inc.plp)><:
use 5.014;
<(common.inc.plp)><:
use 5.014;
+my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
+
Html({
Html({
- title => '
character support sheet'
,
+ title => '
font coverage '.($font ? "for $font" : 'sheet')
,
version => 'v1.2',
keywords => [qw(
unicode font glyph char character support overview cover coverage
version => 'v1.2',
keywords => [qw(
unicode font glyph char character support overview cover coverage
@@
-12,7
+14,7
@@
Html({
data => [qw( unicode-cover.inc.pl )],
});
data => [qw( unicode-cover.inc.pl )],
});
-if (
my $font = $ENV{PATH_INFO} =~ s{^/}{}r
) {
+if (
$font
) {
my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl";
$fontmeta or die "Unknown font $font\n";
my ($fontmeta, @cover) = do "ttfsupport/$font.inc.pl";
$fontmeta or die "Unknown font $font\n";