latin: url metadata for patented stroke entries

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

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 35ab1ab49739b2399e007c8bade872a6d0b9896b..34f9c329eddfb7dd44a97363f7ae96fdca611232 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -12,9 +12,9 @@ my %C = (
 my $U = 0;  # optional unicode alternatives
 
 my @wrapstyle = (
-       'td { white-space: normal; word-spacing: 5em }', # 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 }', # 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 @tapstyle = (
@@ -145,6 +145,7 @@ sutton => {
 },
 unistrokes => {
        title => 'Unistrokes',
+       url   => 'https://www.google.com/patents/US5596656', # by Xerox
        style => 'svg path { stroke-linecap: round; stroke-linejoin: round }',
        list => [
                map { '<svg width="14" height="16" viewBox="-1 -1 8 10">'.$_.'</svg>' }
@@ -183,6 +184,7 @@ unistrokes => {
 },
 edgewrite => {
        title => 'EdgeWrite',
+       url   => 'http://depts.washington.edu/ewrite/', # patented US7729542
        style => 'svg path { stroke-linecap: round; stroke-linejoin: round }',
        list => [
                map { '<svg width="14" height="14" viewBox="-1 -1 10 10">'.$_.'</svg>' }
@@ -596,12 +598,13 @@ nyctographs => {
        ],
 },
 chromacons => {
+#      style => '.sample { word-break: break-all }',
        list => [
                # Colour Alphabet by Paul Green-Armytage (2010)
                map {
                        sprintf('<span%s>%s</span>',
                                !!$_ && sprintf(' style="background:#%s" title="%s"', split /:/),
-                               chr(8195), # em space
+                               chr(8195) . (!$_ && chr(8203)) # em space (plus zwsp for spaces)
                        );
                }
                qw{