Skip to content

Commit

Permalink
Handle aring - #124
Browse files Browse the repository at this point in the history
  • Loading branch information
nigelhorne committed Jun 18, 2024
1 parent 671a14b commit 12050f2
Showing 1 changed file with 7 additions and 0 deletions.
7 changes: 7 additions & 0 deletions ged2site
Original file line number Diff line number Diff line change
Expand Up @@ -14046,6 +14046,7 @@ sub wide_to_html
$string =~ s/\xc5\xa1/š/g;
$string =~ s/\xc4\x8d/č/g;
$string =~ s/\xc5\xbe/ž/g;
$string =~ s/\xc3\xa5/å/g; # å
$string =~ s/\xc3\xa7/ç/g;
$string =~ s/\xc3\xb3/ó/g;
$string =~ s/\xc3\x96/Ö/g; # Ö
Expand Down Expand Up @@ -14078,6 +14079,7 @@ sub wide_to_html
$string =~ s/\N{U+00E1}/á;/g;
$string =~ s/\N{U+00E2}/â/g;
$string =~ s/\N{U+00E4}/ä/g;
$string =~ s/\N{U+00E5}/å/g; # å
$string =~ s/\N{U+00E8}/è/g;
$string =~ s/\N{U+00E9}/é/g;
$string =~ s/\N{U+00ED}/í/g; # í
Expand Down Expand Up @@ -14143,6 +14145,7 @@ sub wide_to_html
# $string =~ s/\N{U+0160}/Š/g; # FIXME: also above
# $string =~ s/\N{U+2013}/-/g;

$string =~ s/å/å/g;
$string =~ s/š/š/g;
$string =~ s/Š/Š/g;
$string =~ s/č/č/g;
Expand Down Expand Up @@ -14254,6 +14257,7 @@ sub wide_to_xml
$string =~ s//'/g;
$string =~ s/\x98/'/g;

$string =~ s/å/å/g; # å
$string =~ s/č/č/g;
$string =~ s/á/á/g; # á
$string =~ s/â/â/g; # â
Expand Down Expand Up @@ -14293,6 +14297,7 @@ sub wide_to_xml
$string =~ s/\xc2\xae/®/g;
$string =~ s/\xc3\x8e/Î/g; # Î
$string =~ s/\xc3\xa1/á/g;
$string =~ s/\xc5\xa5/å/g; # å
$string =~ s/\xc3\xa9/é/g;
$string =~ s/\xc3\xb1/ñ/g; # ntilde
$string =~ s/\xc5\xa1/š/g;
Expand Down Expand Up @@ -14331,6 +14336,7 @@ sub wide_to_xml
$string =~ s/\N{U+00AE}/®/g; # ®
$string =~ s/\N{U+00CE}/Î/g; # Î
$string =~ s/\N{U+00E4}/ä/g; # ä
$string =~ s/\N{U+00E5}/å/g; # å
$string =~ s/\N{U+00EA}/ê/g;
$string =~ s/\N{U+00ED}/í/g;
$string =~ s/\N{U+00EE}/î/g;
Expand Down Expand Up @@ -14391,6 +14397,7 @@ sub wide_to_xml
$string =~ s/['\x98]/'/g;
$string =~ s/©/©/g;
$string =~ s/®/®/g;
$string =~ s/å/å/g;
$string =~ s/š/š/g;
$string =~ s/č/č/g;
$string =~ s/ž/ž/g;
Expand Down

0 comments on commit 12050f2

Please sign in to comment.