unicode: full repository of common accented latin
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 8 Feb 2011 18:54:59 +0000 (19:54 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Apr 2012 01:03:24 +0000 (03:03 +0200)
All letter/diacritic combinations for major european languages,
included for ?html for a more complete entity coverage.

unicode-table.inc.pl
unicode.plp

index 3cebceb..7ab3dd3 100644 (file)
@@ -106,6 +106,25 @@ latin => {
                . ă ę œ ů š ð
                . ı ė º ư ș đ
        }],
+       vowels   => [qw{
+               . á é í ó ú ý
+               . â ê î ô û ŷ
+               . à è ì ò ù ỳ
+               . ã ẽ ĩ õ ũ ỹ
+               . ä ë ï ö ü ÿ
+               . æ & ij œ ᵫ -
+               . å - ı ⱺ ů ẙ
+               . ă ĕ ĭ ŏ ŭ -
+               . ǎ ě ǐ ǒ ǔ -
+               . ą ę į ǫ ų -
+       }],
+       westeuro => [qw{
+               . ç ð ñ ß þ
+       }],
+       easteuro => [qw{
+               . č ď ľ ň ř š ť ž
+               . ć đ ł ń ŕ ś ŧ ź ż
+       }],
        uncommon => [qw{
                .>Englisc   æ ð ē ȝ œ þ ƿ
                .>Sámi      á č đ ŋ š ŧ ž
index 7100aad..76c31ec 100644 (file)
@@ -117,6 +117,12 @@ my @config = qw(
                        ?kataderiv
 );
 
+splice @config, 4, 2, qw(
+               latin/vowels=-5?latin/vowels
+                        westeuro
+                       ?easteuro
+) if exists $get{html};
+
 $_ and m{/*+(.+)} and @config = split /[ ]/, $1 for $ENV{PATH_INFO}, $get{q};
 
 my $tables = do 'unicode-table.inc.pl' or die $@ || $!;