unicode: separate+improved Blocks section

Add several block drawing chars (most of them digraphless, but useful in
any case), and categorize them separately from the more general Signs.

Bonusally, fix the sign for 'sun'.

diff --git a/unicode.plp b/unicode.plp
index 73d07a50565ce2252c8b28136f820fbaee2e3097..a6a33bdd985215b899f936f20438f7447a5dfb3b 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -176,14 +176,21 @@ print table(@$_) for (
        [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]],
 );
 
-print "<h2>Signs</h2>\n\n";
+print "<h2>Blocks</h2>\n\n";
 print table(@$_) for (
-       [ 3 => [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ . ░ ▒ ▓}]],
+       [ 3 => [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }]],
+       [ 3 => [qw{. ░ . ▒ . ▓ }]],
+       [ 2 => [qw{. ▛ ▚ ▟ . ▙ ▞ ▜ }]],
+       [ 2 => [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }]],
        [ 3 => [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}]],
-       [ 4 => [qw{. ♠ ♡ ♢ ♣ . ♤ ♥ ♦ ♧}]],
-       [ 5 => [qw{. ☼ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}]],  # solar
-#      [12 => [qw{. ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓}]],  # zodiac
+);
+
+print "<h2>Signs</h2>\n\n";
+print table(@$_) for (
        [ 8 => [qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}]],
+       [ 4 => [qw{. ♠ ♡ ♢ ♣ . ♤ ♥ ♦ ♧}]],
+       [ 5 => [qw{. ☉ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}]],  # solar
+       [12 => [qw{. ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓}]],  # zodiac
 );
 
 print "<h2>IPA</h2>\n\n";