X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/24f355ee04994c12c6bee2b276aab8c1ff4c0748..d018b77dfe31043a703b7ae35e9885a87382ba90:/unicode.plp 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'; 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. @@ -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(