From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 15 Sep 2008 19:01:54 +0000 (+0000)
Subject: unicode: distinguish empty and invalid ipa cells
X-Git-Tag: v1.2~42
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/d0b79daa05d1341a6ca18cfb4c074047d694268e

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 9405bfd..c7b85c2 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -50,6 +50,12 @@ th {
 	color: #FFF;
 	padding: 0 0.5em;
 }
+td.empty {
+	background: #DDD;
+}
+td.reserved {
+	background: #BBB;
+}
 </style>
 </head>
 
@@ -76,9 +82,10 @@ sub table {
 	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],
-		$_ eq '-' ? '&nbsp;' : quote($_),
+		$_ eq '-' ? ' class="empty"' : $_ eq '=' ? ' class="reserved"' : '',
+		$_ eq '-' || $_ eq '=' ? '&nbsp;' : quote($_),
 		$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{
-			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 ʒ ʐ ʝ ɣ ʁ ʕ ʢ ɦ
-			- - - ɬ - - - - - - - -
-			- - - É® - - - - - - - -
-			- ʋ - ɹ - ɻ j ɰ - - - -
-			- - - l - ɭ ʎ ʟ - - - -
-			ʘ - ǀ ǁ ǃ - ǂ - - - - -
+			= = - ɬ - - - - - = = =
+			= = - É® - - - - - = = =
+			- ʋ - ɹ - ɻ j ɰ - - - =
+			= = - l - ɭ ʎ ʟ - = = =
+			ʘ - ǀ ǁ ǃ - ǂ - - = = =
 			ɓ - ɗ - - - ʄ ɠ ʛ - - -
 		}],
 		[