X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ef1048178fa3bc0d43f4e2bbbee58530f8b0e55c..7c01a97313cb7a300b69c4e6939ece041be1a1ae:/unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 7c05183..242253b 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -142,6 +142,14 @@ sub table {
 	return sprintf "<table>\n%s</table>\n", join '', map {"<tr>$_\n"} @rows;
 }
 
+print "<h2>Common</h2>\n\n";
+print table(@$_) for (
+	[ 3 => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]],
+	[ 3 => [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]],
+	[ 3 => [qw{. å ä ö ü ß . Å æ ø ű ſ}]],
+	[ 3 => [qw{. ¿ ç ñ é ê è}]],
+);
+
 print "<h2>Arrows</h2>\n\n";
 print table(@$_) for (
 	[ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
@@ -223,3 +231,61 @@ print table(@$_) for (
 	],
 );
 
+print "<h2>Japanese</h2>\n\n";
+print table(@$_) for (
+	[
+		1 => [qw{
+			. あ い う え お =
+			. か き く け こ =
+			. さ し す せ そ =
+			. た ち つ て と =
+			. な に ぬ ね の ん
+			. は ひ ふ へ ほ =
+			. ま み む め も =
+			. や =  ゆ =  よ =
+			. ら り る れ ろ =
+			. わ ゐ =  ゑ を =
+		}],
+		['', qw{K S T N H M Y R W}],
+		[qw{A I U E O}, ''],
+	],
+	[
+		1 => [qw{
+			. が ぎ ぐ げ ご
+			. ざ じ ず ぜ ぞ
+			. だ ぢ づ で ど
+			. ば び ぶ べ ぼ
+			. ぱ ぴ ぷ ぺ ぽ
+		}],
+		[qw{G Z D B P}],
+		[qw{A I U E O}],
+	],
+	[
+		1 => [qw{
+			. ア イ ウ エ オ ー
+			. カ キ ク ケ コ =
+			. サ シ ス セ ソ =
+			. タ チ ツ テ ト =
+			. ナ ニ ヌ ネ ノ ン
+			. ハ ヒ フ ヘ ホ =
+			. マ ミ ム メ モ =
+			. ヤ -  ユ -  ヨ =
+			. ラ リ ル レ ロ =
+			. ワ ヰ -  ヱ ヲ =
+		}],
+		['', qw{K S T N H M Y R W}],
+		[qw{A I U E O}, ''],
+	],
+	[
+		1 => [qw{
+			. ガ ギ グ ゲ ゴ
+			. ザ ジ ズ ゼ ゾ
+			. ダ ヂ ヅ デ ド
+			. バ ビ ブ ベ ボ
+			. パ ピ プ ペ ポ
+			. ヷ ヸ ヴ ヹ ヺ
+		}],
+		[qw{G Z D B P V}],
+		[qw{A I U E O}],
+	],
+);