latin: link to alphabet on chars page
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 5 Apr 2017 13:52:30 +0000 (15:52 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 23:51:41 +0000 (01:51 +0200)
latin.plp
tools/mkfontinfo

index 9d9cadfbe59d4e6c0da84b0ec245836e9be24f4d..1c2e22933a21661e218e8962ea25576de0745bd0 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -86,7 +86,7 @@ Html({
 <p>Variant encodings of the common ASCII (latin, roman,
 or <span title="fuck yeah!">'mercan</span>) letters A–Z.
 Also see <a href="/writing">related alphabets</a>
 <p>Variant encodings of the common ASCII (latin, roman,
 or <span title="fuck yeah!">'mercan</span>) letters A–Z.
 Also see <a href="/writing">related alphabets</a>
-and <a href="/unicode">common chars</a>.</p>
+and <a href="/chars/abc">font comparison</a>.</p>
 
 <div>
 
 
 <div>
 
index a1cc44d8e1d39365de5eb8b85709da1ab4c80287..de0bbf12365478ac4820fe722e805c42c5ed967d 100755 (executable)
@@ -29,6 +29,8 @@ for my $fontfile (glob 'ttfsupport/*'.$incsuffix) {
 
 my %charlist;
 
 
 my %charlist;
 
+$charlist{table}->{abc} = ['A'..'Z', 'a'..'z'];
+
 my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
 if ($chartables) {
        while (my ($tablegroup, $grouprow) = each %{$chartables}) {
 my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
 if ($chartables) {
        while (my ($tablegroup, $grouprow) = each %{$chartables}) {