X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/24f355ee04994c12c6bee2b276aab8c1ff4c0748..d018b77dfe31043a703b7ae35e9885a87382ba90:/unicode.plp?ds=sidebyside diff --git a/unicode.plp b/unicode.plp index fc9461e..427e0d0 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) : '', @@ -139,14 +151,20 @@ print_glyph_tables( 'Popular', [qw{. « » . ⹠⺠. â â . â â . â â . â â}], [qw{. â ⡠⢠. § ¶ # . © ® ⢠. ° â² â³ . â à ÷ . ± ² â}], + [qw{. â â . â â . ⺠⹠. â â . â â . â ⺠}], [qw{. Ã¥ ä ö ü à . à æ ø ű Å¿}], [qw{. ¿ ç ñ é ê è}], 'Arrows', [qw{. â â â â . â - â â . â â â -}], [qw{. â â â â . â - â â . â â â -}], + [qw{. ⬠⧠⬠⬠. ⦠- ⨠Ⳡ. ⬠⩠⬠-}], + [qw{. ⬠⬠⬠⬠. ⬠- ⡠⬠. ⬠⬠⬠-}], + [qw{. ⩠⬠⬠. ⧠⡠⨠. ⬠⬠⪠}], [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠⢠}], [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠⿠}], + [qw{. î© î§ îª . î¥ - î¦ . î« î¨ î¬ }], + [qw{. î± î¯ î² . î - î® . î³ î° î´ }], 'Line drawing', [qw{. â ⬠â . â ⼠⤠. â â´ â}], @@ -269,7 +287,7 @@ print_glyph_tables( :> -
ascii | digraph @@ -279,16 +297,12 @@ print_glyph_tables( |