digraphs: restyle private use characters

[sheet.git] / unicode.plp
diff --git a/unicode.plp b/unicode.plp

index 9405bfd5d3fae40969386d242255095e35b0a483..4d48bb4365d84520a47fbf29830d746324d66abb 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -15,17 +15,36 @@ $header{content_type} = 'text/html; charset=utf-8';
  <head>
  <title>digraph cheat sheet</title>
  <meta http-equiv="content-type" content="utf-8">
-<!-- link rel="stylesheet" type="text/css" media="all" href="unicode.css" -->
+<link rel="stylesheet" type="text/css" media="all" href="/digraphs.css">
  <style>
  table {
-       border-collapse: collapse;
-       margin: 1ex;
+       margin: 1ex 1ex 2ex;
+       float: left;
+       table-layout: auto;
+}
+thead td {
+       width: auto;
+}
+tbody {
+       border-width: 0;
+}
+h2, h3 {
+       clear: both;
+}
+
+th {
+       text-align: left;
+       font-size: 50%;
+       background: #888;
+       color: #FFF;
+       padding: 0 0.2em;
  }
-tbody td, th {
-       border: 1px solid #888;
+thead td {
+       border: 0;
  }
+
  td {
-       text-align: center;
+       background: transparent;
         vertical-align: top;
         margin: 0;
         padding: 0;
@@ -37,18 +56,12 @@ small {
         background: #888;
         color: #FFF;
  }
-table {
-       float: left;
-}
-h2, h3 {
-       clear: both;
+
+td.empty {
+       background: #DDD;
  }
-th {
-       text-align: left;
-       font-size: 50%;
-       background: #888;
-       color: #FFF;
-       padding: 0 0.5em;
+td.reserved {
+       background: #BBB;
  }
  </style>
  </head>
@@ -76,9 +89,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 +148,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 - ɭ ʎ ʟ - = = =
+                       ʘ - ǀ ǁ ǃ - ǂ - - = = =
                         ɓ - ɗ - - - ʄ ɠ ʛ - - -
                 }],
                 [