latin: chromacons description in header title
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 17 May 2017 13:20:15 +0000 (15:20 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 5 Jun 2017 00:59:16 +0000 (02:59 +0200)
Visible outside of source code as it's not a common standard.

latin.plp
writing-latn.inc.pl

index f9e47189f1811fbfa943702f0ee0c883db98d7b5..6af6647eabb14578580e46f192a9ca4b9504447a 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -78,7 +78,9 @@ else {
                my ($id, $info) = @{$row};
 
                printf '<tr id="%s">', $id;
-               say '<th>', $info->{name} // ucfirst $id;
+               my $th = 'th';
+               $th .= sprintf ' title="%s"', $_ for $info->{title} || ();
+               say "<$th>", $info->{name} // ucfirst $id;
 
                my $colspan = 1;
                my $col = 0;
index 9cd97c9e2119d55b132beb08434629e3149a62cc..4c10d46b93be80926d3b33e84b1bef9731b2e5b8 100644 (file)
@@ -630,9 +630,9 @@ nyctographs => {
        ],
 },
 chromacons => {
+       title => 'Colour Alphabet by Paul Green-Armytage (2010)',
 #      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 /:/),