latin: overlap semaphore arrows for diagonals
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 21 Sep 2015 16:21:23 +0000 (18:21 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 21 Sep 2015 22:20:08 +0000 (00:20 +0200)
writing-latn.inc.pl

index 917ae119389a9ee9c2d6333c9f4e428a1251cb52..5759439a1aa6298180681dc66766636169cc6d0e 100644 (file)
@@ -141,12 +141,12 @@ my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
                local $_ = $_;
                s/[1-4]\K(?=[4-9])/ /;
                tr/1-9/↙←↖↑↗→↘↓/;
-               s{(.)(?=.)}{<span style="position:absolute">$1</span>}
+               s{(\S)(?=.)}{<span style="position:absolute">$1</span>}
                        or s/^/<span>/ and $_ .= '</span>';
                $_
        }
        qw(
-               1 2 3 4 5  6 7 21 31 46  14 15 16 17 23
+               1 2 3 4 5  6 7 21 31 46  14 51 16 17 23
                24 25 26 27 34  35 47 56 57 36  67
        )
 ],