X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/740405f2d6d7c60e27d2d168573b38a76d321156..01c47091040e8e84d64b8f2b0b395f47bad139c4:/unicode.plp diff --git a/unicode.plp b/unicode.plp index 9405bfd..4d48bb4 100644 --- a/unicode.plp +++ b/unicode.plp @@ -15,17 +15,36 @@ $header{content_type} = 'text/html; charset=utf-8'; digraph cheat sheet - + @@ -76,9 +89,10 @@ sub table { my ($width, $digraphs, $rowheads, $colheads) = @_; my @cells; - push @cells, sprintf '%s%s', + push @cells, sprintf '%s%s', $di{ord $_} && $diinfo->{$di{ord $_}}->[1], - $_ eq '-' ? ' ' : quote($_), + $_ eq '-' ? ' class="empty"' : $_ eq '=' ? ' class="reserved"' : '', + $_ eq '-' || $_ eq '=' ? ' ' : quote($_), $di{ord $_} && sprintf(' %s', $di{ord $_}) for @$digraphs; @@ -134,18 +148,18 @@ print "

IPA

\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 - ɭ ʎ ʟ - = = = + ʘ - ǀ ǁ ǃ - ǂ - - = = = ɓ - ɗ - - - ʄ ɠ ʛ - - - }], [