<:
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;
}
}
+our $verbose = exists $get{v};
+
print_glyph_tables(
'Popular',
[qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
[qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ . ◄ ► }],
[qw{. å ä ö ü ß . Å æ ø ű ſ}],
[qw{. ¿ ç ñ é ê è}],
+ [qw{. α β}], [qw{. א}],
'Signs',
[qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}],
[qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }],
[qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }],
[qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }],
+$verbose ? (
[qw{. . - . }],
[qw{. . - . }],
+) : (),
'Line drawing',
[qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }],
.>Open a ɶ - - ɑ ɒ
}],
- 'Alphabetics',
- [qw{
- .>Latin a ī ı ę ô ɳ ŋ ṡ š đ ð Ʒ
- .>Cyrillic а і й э ё н њ ш щ ч ь Я
- .>Greek α ί ϊ η ϋ π ψ σ ς θ ξ Ω
- .>Hebrew א ײ י ע ו נ ן ס ש ט צ ץ
- }],
-
+$verbose ? (
'Japanese',
[qw{
- A I U E O _
.>P パ ピ プ ペ ポ
.>V ヷ ヸ ヴ ヹ ヺ
}],
+) : (),
);
:></div>