latin: unistrokes circles matched separately

[sheet.git] / writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 33c60e7bd93ffeecd262e00d16f02dbe3feebe3b..a2dd4b44d09972b0671fbdaa74958be720fa38d7 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -166,6 +166,7 @@ suetterlin => {
                        src: url("/suetterlin.ttf");
                }',
                'td { font-family: Suetterlin }',
+               'td:hover::first-letter { text-transform: uppercase }',
        ],
        list => [qw{ a b c d e f g h i j k l m n o p q r ſ s t u v w x y z }],
 },
@@ -241,8 +242,9 @@ unistrokes => {
        list => [
                map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
                map {
-                       sprintf('<circle cx="%s" cy="%s" r="1"/>', m/\AM(\d+),(\d+)(.?)/) . # start point
-                       (!!$3 && qq(<path d="$_"/>))
+                       my ($x, $y, $next) = m/\AM(\d+),(\d+)(.)?/;
+                       sprintf('<circle cx="%s" cy="%s" r="1"/>', $x, $y) . # start point
+                       (defined $next && qq(<path d="$_"/>))
                }
                'M3,8 V0',
                'M0,0 6,4 0,8',