X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1cc65ff9013724deedf93a001094c54992dea9eb..0934eb163565512a7e1622f931a2f6a60b7c0872:/unicode.plp diff --git a/unicode.plp b/unicode.plp index e28bb06..b55e771 100644 --- a/unicode.plp +++ b/unicode.plp @@ -14,8 +14,8 @@ $header{content_type} = 'text/html; charset=utf-8'; -digraph cheat sheet +digraph cheat sheet <: my %styles = map {$_ => $_} qw(dark circus mono red terse); our $style = exists $get{style} && $styles{$get{style}} || 'light'; @@ -36,7 +36,7 @@ Also see the complete digraphs table.

<: my $diinfo = do 'digraphs.inc.pl'; my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} } - keys %$diinfo; + sort { length $a <=> length $b } keys %$diinfo; sub quote { local $_ = shift; @@ -147,6 +147,8 @@ sub print_glyph_tables { } } +our $verbose = exists $get{v}; + print_glyph_tables( 'Popular', [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}], @@ -154,6 +156,7 @@ print_glyph_tables( [qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ . ◄ ► }], [qw{. å ä ö ü ß . Å æ ø ű ſ}], [qw{. ¿ ç ñ é ê è}], + [qw{. α β}], [qw{. א}], 'Signs', [qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}], @@ -169,8 +172,10 @@ print_glyph_tables( [qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }], [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }], [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }], +$verbose ? ( [qw{.    .  -  .    }], [qw{.    .  -  .    }], +) : (), 'Line drawing', [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }], @@ -231,14 +236,7 @@ print_glyph_tables( .>Open a ɶ - - ɑ ɒ }], - 'Alphabetics', - [qw{ - .>Latin a ī ı ę ô ɳ ŋ ṡ š đ ð Ʒ - .>Cyrillic а і й э ё н њ ш щ ч ь Я - .>Greek α ί ϊ η ϋ π ψ σ ς θ ξ Ω - .>Hebrew א ײ י ע ו נ ן ס ש ט צ ץ - }], - +$verbose ? ( 'Japanese', [qw{ - A I U E O _ @@ -283,6 +281,7 @@ print_glyph_tables( .>P パ ピ プ ペ ポ .>V ヷ ヸ ヴ ヹ ヺ }], +) : (), ); :>