source: recognise [sample] text include references

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index b9c88f065c5d3b5dff831dbc7796009d43764fc0..c7bc11cb9d267126651638017abee052c385498a 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -12,11 +12,13 @@ my %C = (
 my $U = 0;  # optional unicode alternatives
 
 my @wrapstyle = (
-       'td { white-space: normal; word-spacing: 10em }', # force line break between words
+       'td { white-space: normal; word-spacing: 10em }',
+               # force line break between words
        '.sample { word-spacing: 0 }',
-       '.sample span { margin-right: 1ex; white-space: nowrap; display: inline-block }', # larger space between letters
+       '.sample span { margin-right: 1ex; white-space: nowrap; display: inline-block }',
+               # larger space between letters
 );
-my $spacestyle = '.sample span { margin-right: 0.5ex }';  # separate multiple letters
+my $spacestyle = '.sample span { margin-right: 0.5ex }';  # separate letters
 my @tapstyle = (
        @wrapstyle,
        '{ line-height: 1ex }',
@@ -116,8 +118,8 @@ roman => {
        ],
        list => [
                map {
-                       !m/^(-?)(\w.+)/ ? $_ :
-                       $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>'
+                       s{\A-?\K(\w.+)}
+                        {<svg width="20" height="20" viewBox="0 0 12 20"><path d="$1"/></svg>}r
                }
                "m2,4 c1,2 8,9 8,9 M2,15 6,9",
                "m2,4 c0,0 3,-2 4,1 1,2 0,9 3,9 1,-0 2,-1 2,-1 m-6,-2 c-5,4 -0,6 1,3",
@@ -210,12 +212,14 @@ edgewrite => {
                map {
                        my @route = split //;
                        my @coords = map { $_ % 2 << 3, $_ >> 1 << 3 } @route; # x,y,
-                       sprintf('<circle cx="%s" cy="%s" r="1"/>', @coords[0, 1]) . # start point
-                       sprintf('<path d="M%s"/>', join ' ', map {
-                               my $pos = join(',', @coords[$_*2, $_*2 + 1]);
-                               $_ > 1 && $route[$_] == $route[$_ - 2] ? 'Q4,4 '.$pos.'L' : # curve back
-                               $pos
-                       } 0 .. $#route)
+                       sprintf('<circle cx="%s" cy="%s" r="1"/><path d="M%s"/>',
+                               @coords[0, 1],  # start point
+                               join(' ', map {
+                                       my $pos = join(',', @coords[$_*2, $_*2 + 1]);
+                                       $_ > 1 && $route[$_] == $route[$_ - 2] # curve back
+                                               ? 'Q4,4 '.$pos.'L' : $pos
+                               } 0 .. $#route),
+                       )
                }
                # corners (0..3) clockwise from top-left in order
                qw(
@@ -333,7 +337,8 @@ maritime => {
                        <path fill="$C{yellow}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 
                        <path fill="white" d="M0,0 h30v30 h-30z"/>
-                       <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
+                       <path fill="$C{blue}" d="M4,0h22l-11,11 M4,30h22l-11,-11
+                               M0,4v22l11,-11 M30,4v22l-11,-11"/>
 
                        <path fill="white" d="M0,0 h30v30 h-30z"/>
                        <path fill="$C{blue}" d="
@@ -366,7 +371,8 @@ maritime => {
                        <path fill="$C{red}" d="M0,0 h15 v15 h-15 M15,15 h15 v15 h-15"/>
 
                        <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
-                       <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11 M0,4v22l11,-11 M30,4v22l-11,-11"/>
+                       <path fill="white" d="M4,0h22l-11,11 M4,30h22l-11,-11
+                               M0,4v22l11,-11 M30,4v22l-11,-11"/>
 
                        <path fill="$C{blue}" d="M0,0 h30v30 h-30z"/>
                        <path fill="white" d="M5,5 h20 v20 h-20"/>
@@ -377,8 +383,8 @@ maritime => {
                        <path fill="$C{blue}" d="M0,12.5 h30 v5 h-30"/>
 
                        <path fill="$C{red}" d="M0,0 h30v30 h-30z"/>
-                       <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6 M24,0h6l-30,30v-6
-                               M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
+                       <path fill="$C{yellow}" d="M0,0h6l-6,6 M12,0h6l-18,18v-6
+                               M24,0h6l-30,30v-6 M30,6v6l-18,18h-6 M30,18v6l-6,6h-6"/>
 
                        <path fill="$C{black}" d="M0,0 h30v30 h-30z"/>
                        <path fill="$C{blue}" d="M30,0 v31 l-15,-15"/>
@@ -482,7 +488,7 @@ code128 => {
        list => [map { dispbar($_) } qw(
                111323 131123 131321 112313 132113 132311 211313 231113 231311 112133
                112331 132131 113123 113321 133121 313121 211331 231131 213113 213311
-               213131 311123 311321 331121 312113 312311        212222 0 211412 23311120
+               213131 311123 311321 331121 312113 312311      212222 0 211412 23311120
        )],
 },
 rm4scc => {
@@ -541,7 +547,7 @@ cmymap => {
 dni => {
        title => "D'ni",
        style => [
-               'svg { border: 1px solid #000 }',
+               'svg { border: 1px solid currentColor }',
                '.sample span + span svg { border-left: 0 }',
        ],
        list => [
@@ -562,8 +568,10 @@ dni => {
                                'M4,-.5 0,4 4,8.5',
                                'M4,8 4,2 8,2',
                        ];
-                       sprintf '<svg width="16" height="16" viewBox="0 0 8 8"><path d="%s"/></svg>',
-                               $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
        ],
 },
@@ -616,7 +624,8 @@ nyctographs => {
                # draw style (0=empty, 1=dot, 2=line connect) to right, down, left, up
                qw(
                        0010 0112 2022 2220 2000 2012 0122 0202 0020 0220 0012 0022 2202
-                       0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020 0000
+                       0222 2222 0102 0200 2201 2002 2200 0100 0110 0120 2001 2010 2020
+                       0000
                ),
        ],
 },
@@ -631,12 +640,13 @@ chromacons => {
                        );
                }
                qw{
-                       F0A3FF:Amethyst 0075DC:Blue      993F00:Caramel  4C005C:Damson   191919:Ebony
-                       005C31:Forest   2BCE48:Green     FFCC99:Honeydew 808080:Iron     94FFB5:Jade
-                       8F7C00:Khaki    9DCC00:Lime      C20088:Mallow
-                       003380:Navy     FFA405:Orpiment  FFA8BB:Pink     426600:Quagmire FF0010:Red
-                       5EF1F2:Sky      00998F:Turquoise E0FF66:Uranium  740AFF:Violet   990000:Wine
-                       FFFF80:Xanthin  FFFF00:Yellow    FF5005:Zinnia   0
+                       F0A3FF:Amethyst 0075DC:Blue     993F00:Caramel  4C005C:Damson
+                       191919:Ebony    005C31:Forest   2BCE48:Green    FFCC99:Honeydew
+                       808080:Iron     94FFB5:Jade     8F7C00:Khaki    9DCC00:Lime
+                       C20088:Mallow   003380:Navy     FFA405:Orpiment FFA8BB:Pink
+                       426600:Quagmire FF0010:Red      5EF1F2:Sky      00998F:Turquoise
+                       E0FF66:Uranium  740AFF:Violet   990000:Wine     FFFF80:Xanthin
+                       FFFF00:Yellow   FF5005:Zinnia   0
                }
        ],
 },