unicode: group spaces and dashes
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 8 Feb 2011 20:31:40 +0000 (21:31 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000 (03:03 +0200)
unicode-table.inc.pl

index 5e79610b32326fe41fb9e35cd24e2e9678a26087..d6302effcce1f6464ad03f3ca7ff30a19add202f 100644 (file)
@@ -8,10 +8,12 @@ punctuation => {
                . ° ′ ″ . − × ÷ . ± ² √
                . ¹ ⁿ ³ . ¼ ½ ¾ . 年 月 日
        }],
                . ° ′ ″ . − × ÷ . ± ² √
                . ¹ ⁿ ³ . ¼ ½ ¾ . 年 月 日
        }],
-       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}",
+       marks    => [qw{. ¿ … 〃 . ‽ · ※ }],
+       spacing  => [
+               split / +/, join ' ',
+               ". — – ‒  \x{2011} \x{2010}  \x{AD} \x{200D}",  # dashes
+               ". \x{2003} \x{2002} \x{2007}  \x{A0} \x{2009}  \x{200B} \x{200C}",  # spaces
+               # em en figure  nobreak hyphen  break joiner
        ],
        version  => [qw{. α β}],
 },
        ],
        version  => [qw{. α β}],
 },