X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5e5c8c02671606278065bad0398b1f236df3b030..34657c93e59b0b82ede14bb3f54ce0d4b81c8df5:/keyboard.plp diff --git a/keyboard.plp b/keyboard.plp index b23e2f2..2ecfa8b 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -45,10 +45,10 @@ my $keys = Shiar_Sheet::Keyboard->new({ my @row = @{$_}; my $class = ( !defined $row[2] || $row[0] eq $row[2] ? 1 # identical + : $row[2] =~ /\A\p{Mn}+\z/ ? 8 # combining accent : NFKD($row[2]) =~ $row[0] ? 2 # decomposed equivalent : $row[2] =~ /^\p{Latin}/ ? 4 # latin script : unidecode($row[2]) =~ /^\W*\Q$row[0]/ ? 5 # transliterated - : $row[2] =~ /^\p{Mn}/ ? 8 # combining accent : 7 ); $row[0] => "g$class" @@ -64,6 +64,7 @@ my $keys = Shiar_Sheet::Keyboard->new({ g1 => ['unaltered'], g2 => ['accented'], g4 => ['latin'], + g5 => ['similar'], g7 => ['other'], g8 => ['combining'], },