X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/1d4491c7330698c4dcc66a4c2c168a94fba24aff..14f601eca298322aba783e465d345e13f31705ed:/unicode.plp?ds=sidebyside diff --git a/unicode.plp b/unicode.plp index 4d93554..bcfebd1 100644 --- a/unicode.plp +++ b/unicode.plp @@ -5,7 +5,7 @@ use warnings; no warnings 'qw'; # that's not a comment, it's a NUMBER SIGN use open IO => ':utf8'; -our $VERSION = '1.0'; +our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; @@ -16,10 +16,16 @@ $header{content_type} = 'text/html; charset=utf-8';
i^k in Vim. @@ -75,8 +81,7 @@ sub glyph_table { next; } - my $code = join '', map { $di{ord $_} || '' } split //, $cell; - my $name = $diinfo->{$code}->[1]; + my ($code, $name); # determine display class my @class; @@ -92,11 +97,18 @@ sub glyph_table { push @class, 'di-rare'; # discouraged } - if ($code) { + $code = join '', map { $di{ord $_} || '' } split //, $cell; + $name = $diinfo->{$code}->[1]; + length $code == 2 or undef $code; + + if (defined $code) { push @class, 'di-d'; # digraph push @class, 'di-prop' # unofficial if $diinfo->{$code}->[2] =~ /\bXz\b/; } + elsif (defined $name) { + push @class, 'X'; + } if ($cell =~ /[ -~]/) { push @class, 'di-a'; # ascii @@ -112,7 +124,7 @@ sub glyph_table { @class ? sprintf(' class="%s"', join ' ', @class) : '', $colspan > 1 && qq{ colspan="$colspan"}, $cell eq '' ? ' ' : quote($cell), - $code ne '' ? sprintf(' %s', quote($code)) + defined $code ? sprintf(' %s', quote($code)) : length($cell) == 1 && $cell !~ /[a-z]/ ? sprintf(' %04X', 'value', ord $cell) : '', @@ -137,16 +149,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{. â ⬠â . â ⼠⤠. â â´ â}], @@ -233,7 +245,7 @@ print_glyph_tables( .>M ã¾ ã¿ ã ã ã = .>Y ã = ã = ã = .>R ã ã ã ã ã = - .>W ã ã = ã ã = + .>W ã -ã = -ã ã = }], [qw{ - A I U E O @@ -269,16 +281,22 @@ print_glyph_tables( :> -
ascii + | digraph + | proposed + | other unicode + | discouraged + |