unicode: whitespace characters

diff --git a/unicode.inc.pl b/unicode.inc.pl
index ca1bbf90df3b9442d1fcbea9b5ec815e14085a5c..39075539440aac69b0ed1d8fdbda3981d5d8a9d6 100644 (file)
--- a/unicode.inc.pl
+++ b/unicode.inc.pl
@@ -4,6 +4,10 @@ punctuation => {
        quoting  => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
        common   => [qw{. † ‡ • . § ¶ # . © ® ™ . ° ′ ″ . − × ÷ . ± ² √ . 年 月 日}],
        marks    => [qw{. ¿ … 〃 ‐ – . ‽ · ※ ‒ — }],
+       spacing  => [split / /, join ' ',
+               ". \x{2003} \x{2009} \x{2007} \x{A0} \x{200B}",
+               ". \x{2002} \x{200A} \x{2008} \x{AD} \x{200C}",
+       ],
        version  => [qw{. α β}],
 },
 

diff --git a/unicode.plp b/unicode.plp
index e3d7402ee7094c92851a539392d5097ceafe2999..3173cfd87b3412859c3c6951572271ae54a455ec 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -83,6 +83,7 @@ $glyphs->print(map {
                        ?uncommon
                punctuation/version
                punctuation/marks
+                       spacing
        Symbols
                symbols/currency
                        cards