From 68625510fc0fbda4ecf4739929570d985631a063 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 16 Sep 2008 04:40:38 +0000
Subject: [PATCH] unicode: common (western) characters

Add a section with some very frequently used characters (quotes, simple maths,
common signs, largest european languages).
---
 unicode.plp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/unicode.plp b/unicode.plp
index 7c05183..b8e16f1 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{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]],
-- 
2.30.0