tAdd feature to targetdiacritics - transliterate - Transliteration engine
HTML git clone git://lumidify.org/transliterate.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit a6c5da06d240b5739b8732bb4e8ffc7f40168b1f
DIR parent 92c2f7acbbef5624803f1d296dce093edbe13dd3
HTML Author: lumidify <nobody@lumidify.org>
Date: Thu, 2 Apr 2020 13:44:17 +0200
Add feature to targetdiacritics
Diffstat:
M transliterate.pl | 16 ++++++++++++++++
1 file changed, 16 insertions(+), 0 deletions(-)
---
DIR diff --git a/transliterate.pl b/transliterate.pl
t@@ -271,6 +271,22 @@ sub prompt_choose_word {
my @replacements;
foreach (0..$#$substrings) {
if ($substrings->[$_]->[1] =~ /\Q$config->{choicesep}\E/) {
+ if (exists $config->{"targetdiacritics"}) {
+ my @choices = split /\Q$config->{choicesep}\E/, $substrings->[$_]->[1];
+ my @diacritics = @{$config->{"targetdiacritics"}};
+ if (@choices == 2) {
+ @choices = map {NFD($_)} @choices;
+ my $first_matches = grep {$choices[0] =~ /$_/} @diacritics;
+ my $second_matches = grep {$choices[1] =~ /$_/} @diacritics;
+ if ($first_matches && !$second_matches) {
+ $substrings->[$_]->[1] = $choices[0];
+ next;
+ } elsif (!$first_matches && $second_matches) {
+ $substrings->[$_]->[1] = $choices[1];
+ next;
+ }
+ }
+ }
# Format of the elements in @replacements:
# [<id of substrings in $substrings>, <replacement word>, <original string>]
push @replacements, [$_, $substrings->[$_]->[1], $substrings->[$_]->[1]];