my $colspan = 1;
for my $cell (@$digraphs) {
- my $class;
if ($cell =~ s/^\.//) {
# dot indicates start of a new row
push @rows, '';
my $name = $diinfo->{$code}->[1];
# determine display class
- if ($cell =~ s/^-//) {
-# $class = 'Empty';
+ my @class;
+ if ($cell eq '-') {
+ $cell = '';
}
elsif ($cell eq '=') {
- $class = 'Reserved';
+ push @class, 'di-invalid';
$cell = '';
}
- elsif ($cell =~ /[ -~]/) {
- $class = 'Ascii';
- }
- elsif (not $code) {
- $class = 'DiNone';
- }
- elsif ($diinfo->{$code}->[2] =~ /\bXz\b/) {
- $class = 'DiProp';
- }
else {
- $class = 'Di';
+ if ($cell =~ s/^-//) {
+ push @class, 'di-rare'; # discouraged
+ }
+
+ if ($code) {
+ push @class, 'di-d'; # digraph
+ push @class, 'di-prop' # unofficial
+ if $diinfo->{$code}->[2] =~ /\bXz\b/;
+ }
+
+ if ($cell =~ /[ -~]/) {
+ push @class, 'di-a'; # ascii
+ }
+ else {
+ push @class, 'di-b'; # basic unicode
+ }
}
# add cell html
$rows[-1] .= sprintf('<td%s%s%s>%s%s',
defined $name ? qq{ title="$name"} : '',
- defined $class ? qq{ class="$class"} : '',
+ @class ? sprintf(' class="%s"', join ' ', @class) : '',
$colspan > 1 && qq{ colspan="$colspan"},
$cell eq '' ? ' ' : quote($cell),
$code ne '' ? sprintf(' <small class="digraph">%s</small>', quote($code))
- BiL:Bilabial LD:Labiodental D:Dental Alv:Alveolar PA:Postalveolar
Rf:Retroflex Pal:Palatal Vel:Velar Uv:Uvular Ph:Pharyngeal
EG:Epiglottal Gl:Glottal
- .>Plosive p p̪ > > t ʈ c k q = ʡ ʔ
- .>Voiced_Plosive b b̪ > > d ɖ ɟ ɡ ɢ = - =
+ .>Plosive p -ȹ > > t ʈ c k q = ʡ ʔ
+ .>Voiced_Plosive b -ȸ > > d ɖ ɟ ɡ ɢ = - =
.>Nasal m ɱ > > n ɳ ɲ ŋ ɴ = = =
.>Trill ʙ - > > r - - = ʀ = -я =
.>Tap/flap - ⱱ > > ɾ ɽ - = ɢ̆ = - =
.>Click ʘ - ǀ ǁ ǃ -‼ ǂ - - = = =
.>Implosive ɓ ɗ̪ > > ɗ -ᶑ ʄ ɠ ʛ = = =
}],
+ [qw{
+ co . ɕ . ʑ . ɧ . ɥ . ʍ . w
+ }],
[(
'-',
map { substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded" }
qw{Front Central Back}
), qw{
.>Close i y ɨ ʉ ɯ u
- .>Near-close - ɪ ʏ - ʊ -
+ .>Near-close ɪ ʏ - - - ʊ
.>Close-mid e ø ɘ ɵ ɤ o
.>Mid - - ə - - -
.>Open-mid ɛ œ ɜ ɞ ʌ ɔ