unicode: common (western) characters

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 7c05183a474f58442e60cab54100955e1984175f..b8e16f13bfdaa897f861a32c6b2d7be07344849e 100644 (file)
--- 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{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],