latin: classify old roman w as invalid

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index 32e0b02eb2de7e61a56e0b0916a2e72f1962a1ed..d51b91bf0e595cd602d3394c6ca0b900cd384c9d 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -77,7 +77,8 @@ else {
                                print " colspan=$colspan";
                                $colspan = 1;
                        }
-                       print '>' unless s/^<td//;
+                       print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
+                       print '>';
                        say;
                }
        }