charset: check ucplanes for modification date

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 525daf2ed41b65d0e45b93460e836acaf703f7a7..b9c88f065c5d3b5dff831dbc7796009d43764fc0 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -20,6 +20,7 @@ my $spacestyle = '.sample span { margin-right: 0.5ex }';  # separate multiple le
 my @tapstyle = (
        @wrapstyle,
        '{ line-height: 1ex }',
+       'td:not(.sample) { vertical-align: top }',
        '.sample { font-size: 80% }',
 );
 
@@ -539,9 +540,12 @@ cmymap => {
 },
 dni => {
        title => "D'ni",
+       style => [
+               'svg { border: 1px solid #000 }',
+               '.sample span + span svg { border-left: 0 }',
+       ],
        list => [
                map {
-                       state $window = 'M-.5,-.5H8.5V8.5H-.5Z';
                        state $v = [
                                '',
                                'M0,4 8,4',
@@ -558,8 +562,8 @@ dni => {
                                'M4,-.5 0,4 4,8.5',
                                'M4,8 4,2 8,2',
                        ];
-                       sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
-                               $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
+                       sprintf '<svg width="16" height="16" viewBox="0 0 8 8"><path d="%s"/></svg>',
+                               $h->[$_ % 5] . $v->[$_ / 5] || $v->[6];
                } 0 .. 5*5
        ],
 },