X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c74ecf690c0c9047a11049d629a791de47857b53..a0ba9298856b2426c5c66b6d2f2b284d98cee594:/unicode.plp?ds=sidebyside diff --git a/unicode.plp b/unicode.plp index 8dfe132..25f89de 100644 --- a/unicode.plp +++ b/unicode.plp @@ -16,10 +16,16 @@ $header{content_type} = 'text/html; charset=utf-8'; digraph cheat sheet - +<: + my %styles = map {$_ => $_} qw(dark circus mono red terse); + our $style = exists $get{style} && $styles{$get{style}} || 'light'; + printf(qq{\n}, + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ + ) for keys %styles; +:> - +

Common uncommon Unicode

i^k in Vim. @@ -59,7 +65,6 @@ sub glyph_table { my $colspan = 1; for my $cell (@$digraphs) { - my $class; if ($cell =~ s/^\.//) { # dot indicates start of a new row push @rows, ''; @@ -80,30 +85,37 @@ sub glyph_table { 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('%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(' %s', quote($code)) @@ -131,16 +143,16 @@ sub print_glyph_tables { print_glyph_tables( 'Popular', - [qw{. Â« Â» . â¹ âº . â â . â â . â â}], - [qw{. â â¡ â¢ . Â§ Â¶ # . Â© Â® â¢ . â Ã Ã· . Â± Â² â}], + [qw{. Â« Â» . â¹ âº . â â . â â . â â . â â}], + [qw{. â â¡ â¢ . Â§ Â¶ # . Â© Â® â¢ . Â° â² â³ . â Ã Ã· . Â± Â² â}], [qw{. Ã¥ Ã¤ Ã¶ Ã¼ Ã . Ã Ã¦ Ã¸ Å± Å¿}], [qw{. Â¿ Ã§ Ã± Ã© Ãª Ã¨}], 'Arrows', [qw{. â â â â . â - â â . â â â -}], [qw{. â â â â . â - â â . â â â -}], - [qw{. â¤ â² â¥ . â â â¶ . â£ â¼ â¢}], - [qw{. â¸ â³ â¹ . â â â· . âº â½ â¿}], + [qw{. â¤ â² â¥ . â â â¶ . â£ â¼ â¢ }], + [qw{. â¸ â³ â¹ . â â â· . âº â½ â¿ }], 'Line drawing', [qw{. â â¬ â . â â¼ â¤ . â â´ â}], @@ -176,8 +188,8 @@ print_glyph_tables( - 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 - â±± > > É¾ É½ - = É¢Ì = - = @@ -190,13 +202,16 @@ print_glyph_tables( .>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 É Å É É Ê É @@ -224,7 +239,7 @@ print_glyph_tables( .>M ã¾ ã¿ ã ã ã = .>Y ã = ã = ã = .>R ã ã ã ã ã = - .>W ã ã = ã ã = + .>W ã -ã = -ã ã = }], [qw{ - A I U E O @@ -260,11 +275,21 @@ print_glyph_tables( :> -