X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1cc65ff9013724deedf93a001094c54992dea9eb..9aa3a0089bff9379b25186960929582f16e7b3f4:/unicode.plp diff --git a/unicode.plp b/unicode.plp index e28bb06..9b77f7f 100644 --- a/unicode.plp +++ b/unicode.plp @@ -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{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}], @@ -169,8 +171,10 @@ print_glyph_tables( [qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }], [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }], [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }], +$verbose ? ( [qw{.    .  -  .    }], [qw{.    .  -  .    }], +) : (), 'Line drawing', [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }], @@ -231,14 +235,7 @@ print_glyph_tables( .>Open a ɶ - - ɑ ɒ }], - 'Alphabetics', - [qw{ - .>Latin a ī ı ę ô ɳ ŋ ṡ š đ ð Ʒ - .>Cyrillic а і й э ё н њ ш щ ч ь Я - .>Greek α ί ϊ η ϋ π ψ σ ς θ ξ Ω - .>Hebrew א ײ י ע ו נ ן ס ש ט צ ץ - }], - +$verbose ? ( 'Japanese', [qw{ - A I U E O _ @@ -283,6 +280,7 @@ print_glyph_tables( .>P パ ピ プ ペ ポ .>V ヷ ヸ ヴ ヹ ヺ }], +) : (), ); :>