X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cb8c2607408b7b81397c28aedf2b5fcbfde338fe..aae69dfcf69ae9825f53f670aa09691934fc27ba:/unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 1aadd03..acca2b9 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -2,6 +2,7 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';  # that's not a comment, it's a NUMBER SIGN
 use open IO => ':utf8';
 
 our $VERSION = '1.0';
@@ -135,7 +136,7 @@ sub table {
 
 	if ($colheads) {
 		unshift @rows, sprintf '<thead><tr><td>%s<tbody>', join '',
-			map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2) }
+			map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2), '', '' }
 			@$colheads
 	}
 
@@ -153,7 +154,7 @@ print table(@$_) for (
 print "<h2>Arrows</h2>\n\n";
 print table(@$_) for (
 	[ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
-	[ 4 => [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇘ ⇓ ⇙ -}]],
+	[ 4 => [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇙ ⇓ ⇘ -}]],
 	[ 3 => [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢}]],
 	[ 3 => [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿}]],
 );
@@ -176,14 +177,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";