-print "<div>\n", "<h2>Popular</h2>\n\n";
-print glyph_table(@$_) for (
- [ [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]],
- [ [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]],
- [ [qw{. å ä ö ü ß . Å æ ø ű ſ}]],
- [ [qw{. ¿ ç ñ é ê è}]],
-);
-print "</div>\n\n";
-
-print "<div>\n", "<h2>Arrows</h2>\n\n";
-print glyph_table(@$_) for (
- [ [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
- [ [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇙ ⇓ ⇘ -}]],
- [ [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢}]],
- [ [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿}]],
-);
-print "</div>\n\n";
-
-print "<div>\n", "<h2>Line drawing</h2>\n\n";
-print glyph_table(@$_) for (
- [ [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]],
- [ [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]],
- [ [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]],
- [ [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]],
- [ [qw{
+our $verbose = exists $get{v};
+
+$glyphs->print(
+ 'Popular',
+ [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
+ [qw{. † ‡ • . § ¶ # . © ® ™ . ° ′ ″ . − × ÷ . ± ² √}],
+ [qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ }, $verbose ? () : qw{. ◄ ►}],
+ [qw{. å ä ö ü ß . ā æ ø ű ſ}],
+ [qw{
+ . á è õ û ç . ą ı ơ ů þ
+ }],
+ $verbose ? [qw{
+ .>Englisc æ ð ē ȝ œ þ ƿ
+ .>Sámi á č đ ŋ š ŧ ž
+ .>Slavic ą ě ł ů ź ż ž
+ .>Türkçe ç ğ ı İ ö ş ü
+ .>Esperanto ĉ ĝ ĥ ĵ ŝ ŭ
+ }] : (),
+ [qw{. α β}],
+ [qw{. ¿ … 〃 ‐ – . ‽ · ※ ‒ — }],
+
+ 'Symbols',
+ [qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ฿ ₫ ₭ ₦ ₱ ₮ ₩ ₪}],
+ [qw{. ♠ ♡ ♢ ♣ . ♤ ♥ ♦ ♧}],
+ [qw{. ☮ ☯ ☻ ♪ ♲ ♿ }],
+ [qw{. ✂ ✉ ℻ ☎ ☏}, $verbose ? qw{. 🔞 🔾 🔰 🔮 🕀 } : ()], # communication
+ [qw{. ✊ ✋ ✌ }, $verbose ? qw{. 🖹 🐜 👼 } : ()], # 3-way (RockPaperScissors, TerranProtossZerg)
+ [qw{. ⚠ ☡ ☠}],
+ 'Signs',
+ [qw{. ☉ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}], # solar
+ [qw{
+ . ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓
+ }, !$verbose ? () : qw{
+ . 寅 卯 辰 巳 午 未 申 酉 戌 亥 子 丑
+ . 虎 兔 龍 蛇 馬 羊 猴 雞 狗 豬 鼠 牛
+ . 🐅 🐇 🐉 🐍 🐎 🐐 🐒 🐓 🐕 🐖 🐀 🐂
+ }], # zodiac
+
+ 'Key commands',
+ [qw{. ⇥ ⇤ . ␣ ⌫ }], # common spacing
+ [qw{. ⎀ ⇱ ⇞ . ⌦ ⇲ ⇟ }], # edit block
+ [qw{. ⇪ ⇯ ⇭ . ⇧ ⇮ № }], # modifier
+ [qw{. ⎈ ⌥ ⌘ ⎄ }], [qw{. ↵ ⎋ ⎉ ⎊ }], # command
+$verbose ? (
+ [qw{. ► ⏩ ⏭ ◼ ⚫ . ◄ ⏪ ⏮ ⏏ -❚❚ }], # player ui
+) : (),
+
+ 'Arrows',
+ [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}],
+ [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇙ ⇓ ⇘ -}],
+ [qw{. ⬁ ⇧ ⬀ ⬄ . ⇦ - ⇨ ⇳ . ⬃ ⇩ ⬂ -}],
+ [qw{. ⬉ ⬆ ⬈ ⬌ . ⬅ - ➡ ⬍ . ⬋ ⬇ ⬊ -}],
+ [qw{. ◩ ⬒ ⬔ . ◧ □ ◨ . ⬕ ⬓ ◪ }],
+ [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢ }],
+ [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿ }],
+$verbose ? (
+ [qw{. . - . }],
+ [qw{. . - . }],
+) : (),
+
+ 'Line drawing',
+ [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }],
+ [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }],
+ [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }],
+ [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}],
+ [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}],
+ [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}],
+ [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}],
+ [qw{