latin: classify old roman w as invalid
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 2 Apr 2017 15:32:16 +0000 (17:32 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 18:44:10 +0000 (20:44 +0200)
latin.plp
writing-latn.inc.pl

index 9128a2834284af78a2eab632d015eedadda131c1..d51b91bf0e595cd602d3394c6ca0b900cd384c9d 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -77,7 +77,7 @@ else {
                                print " colspan=$colspan";
                                $colspan = 1;
                        }
-                       print ' class=ex' if s/^-//;
+                       print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
                        print '>';
                        say;
                }
index 42f5da6d677dc7c3bd5b46b28eb0aa1941c43e38..8a9294853001ffbce53d9f1bd10e0ce280c88524 100644 (file)
@@ -39,7 +39,7 @@ my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
        "m2,7 8,0 m-4,1 c0,0 -1,8 3,5",
        '>', # u = v
        "m2,5 c0,0 3,5 6,3 3,-2 2,-3 2,-3",
-       '',
+       '-',
        "m3,19 c-1,-6 6,-17 6,-17 M1,8 c0,0 10,1 10,1",
        "m0,7 c2,-3 5,-2 5,1 l0,11 c0,0 -0,-4 -0,-10 -0,-4 4,-4 6,-3",
        "m3,6 c4,-1 3,3 3,3 -1,3 -2,5 -1,5 1,1 3,0 3,0",