unicode: distinguish empty and invalid ipa cells

Indicate unpronouncable sounds differently, mostly adding structure (actually
looks like the more common IPA tables now).

diff --git a/unicode.plp b/unicode.plp
index 9405bfd5d3fae40969386d242255095e35b0a483..c7b85c27bfb531a4ada779523a23dc310800a3a2 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -50,6 +50,12 @@ th {
        color: #FFF;
        padding: 0 0.5em;
 }
        color: #FFF;
        padding: 0 0.5em;
 }

+td.empty {
+       background: #DDD;
+}
+td.reserved {
+       background: #BBB;
+}

 </style>
 </head>
 
 </style>
 </head>
 


@@ -76,9 +82,10 @@ sub table {
        my ($width, $digraphs, $rowheads, $colheads) = @_;
 
        my @cells;
        my ($width, $digraphs, $rowheads, $colheads) = @_;
 
        my @cells;

-       push @cells, sprintf '<td title="%s">%s%s',
+       push @cells, sprintf '<td title="%s"%s>%s%s',

                $di{ord $_} && $diinfo->{$di{ord $_}}->[1],
                $di{ord $_} && $diinfo->{$di{ord $_}}->[1],

-               $_ eq '-' ? '&nbsp;' : quote($_),
+               $_ eq '-' ? ' class="empty"' : $_ eq '=' ? ' class="reserved"' : '',
+               $_ eq '-' || $_ eq '=' ? '&nbsp;' : quote($_),

                $di{ord $_} && sprintf(' <small>%s</small>', $di{ord $_})
                        for @$digraphs;
 
                $di{ord $_} && sprintf(' <small>%s</small>', $di{ord $_})
                        for @$digraphs;
 


@@ -134,18 +141,18 @@ print "<h2>IPA</h2>\n\n";
 print table(@$_) for (
        [
                12 => [qw{
 print table(@$_) for (
        [
                12 => [qw{

-                       p t - ʈ - c k q - ʔ ʡ -
-                       b d - ɖ - ɟ ɡ ɢ - - - -
-                       m ɱ - n - ɳ ɲ ŋ ɴ - - -
-                       ʙ - - r - - - - - - - -
-                       - ⱱ - ɾ - ɽ - - - - - -
+                       p t - ʈ - c k q - = ʡ ʔ
+                       b d - ɖ - ɟ ɡ ɢ - = - =
+                       m ɱ - n - ɳ ɲ ŋ ɴ = = =
+                       ʙ - - r - - - = ʀ = я =
+                       - ⱱ - ɾ - ɽ - = ɢ̆ = - =

                        ɸ f θ s ʃ ʂ ç x χ ħ ʜ h
                        β v ð z ʒ ʐ ʝ ɣ ʁ ʕ ʢ ɦ
                        ɸ f θ s ʃ ʂ ç x χ ħ ʜ h
                        β v ð z ʒ ʐ ʝ ɣ ʁ ʕ ʢ ɦ

-                       - - - ɬ - - - - - - - -
-                       - - - ɮ - - - - - - - -
-                       - ʋ - ɹ - ɻ j ɰ - - - -
-                       - - - l - ɭ ʎ ʟ - - - -
-                       ʘ - ǀ ǁ ǃ - ǂ - - - - -
+                       = = - ɬ - - - - - = = =
+                       = = - ɮ - - - - - = = =
+                       - ʋ - ɹ - ɻ j ɰ - - - =
+                       = = - l - ɭ ʎ ʟ - = = =
+                       ʘ - ǀ ǁ ǃ - ǂ - - = = =

                        ɓ - ɗ - - - ʄ ɠ ʛ - - -
                }],
                [
                        ɓ - ɗ - - - ʄ ɠ ʛ - - -
                }],
                [