From a60151fdf6594651f38af2107d0653a140822803 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 9 Oct 2008 23:37:49 +0000
Subject: [PATCH] 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'.
---
 unicode.plp | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/unicode.plp b/unicode.plp
index 73d07a5..a6a33bd 100644
--- 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";
-- 
2.30.0