utf8.init   [plain text]


# -*-perl-*-
$USE_ISO = 0;
$ENCODING = 'utf-8';

# if the encoding isn't utf-8, we should convert to utf-8 characters.

use Encode;
use Unicode::Normalize;

foreach my $key (keys(%unicode_accents))
{
    $style_map{$key}->{'function'} = \&t2h_utf8_accent;
    $style_map_texi{$key}->{'function'} = \&t2h_utf8_accent;
}

foreach my $key (%things_map)
{
    if (exists($unicode_map{$key}) and ($unicode_map{$key} ne ''))
    {
        $things_map{$key} = chr(hex($unicode_map{$key}));
        $texi_map{$key} = chr(hex($unicode_map{$key}));
    }
}

$normal_text       = \&t2h_utf8_normal_text;

1;