git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: expected greek alphabet transliteration
[sheet.git]
/
Shiar_Sheet
/
KeyboardChars.pm
diff --git
a/Shiar_Sheet/KeyboardChars.pm
b/Shiar_Sheet/KeyboardChars.pm
index 4a28f11cf6af900e9e086b522532a66152d21781..d406459347dd3f656b892f624c27e3547e718bd5 100644
(file)
--- a/
Shiar_Sheet/KeyboardChars.pm
+++ b/
Shiar_Sheet/KeyboardChars.pm
@@
-9,16
+9,21
@@
use Unicode::Normalize qw( NFKD );
use Text::Unidecode ();
use Shiar_Sheet::FormatChar;
use Text::Unidecode ();
use Shiar_Sheet::FormatChar;
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
our @EXPORT = qw( kbchars kbmodes );
my $uc = Shiar_Sheet::FormatChar->new;
our %unaccent = qw(
⍺ a ⍵ w ∊ E ⍷ E ⍴ r ⍳ i ⍸ i ○ O ⍥ O ⌿ / ⍟ (*) ⊕ (+)
our @EXPORT = qw( kbchars kbmodes );
my $uc = Shiar_Sheet::FormatChar->new;
our %unaccent = qw(
⍺ a ⍵ w ∊ E ⍷ E ⍴ r ⍳ i ⍸ i ○ O ⍥ O ⌿ / ⍟ (*) ⊕ (+)
- Ʊ U ǝ e Ǝ E ʌ v
χ X
ɥ h ʘ O ɰ mw ɯ mw Ɯ MW ə @ae Ə @AE
+ Ʊ U ǝ e Ǝ E ʌ v
ɥ h ʘ O ɰ mw ɯ mw Ɯ MW ə @ae Ə @AE
ɸ PF ʎ yl ɔ co Ɔ CO ɛ 3E ƣ q Ƣ Q ∀ A ∃ E ∪ u ∩ n ≠ !=
≈ =~ ∅ /0 ∘ o ⋅ . ∫ s ≝ =d ″ " ≤ < ≥ > √ rV ∛ 3V ∜ 4V
ɸ PF ʎ yl ɔ co Ɔ CO ɛ 3E ƣ q Ƣ Q ∀ A ∃ E ∪ u ∩ n ≠ !=
≈ =~ ∅ /0 ∘ o ⋅ . ∫ s ≝ =d ″ " ≤ < ≥ > √ rV ∛ 3V ∜ 4V
+ Α A Β B Γ G Δ D Ε E Ζ Z Η H Θ CQ Ι I Κ K Λ L Μ M
+ Ν N Ξ X Ο O Π P Ρ R Σ S Τ T Υ YU Φ F Χ CX Ψ Y Ω W
+ α a β b γ g δ d ε e ζ z η h θ cq ι i κ k λ l μ m
+ ν n ξ x ο o π p ρ r σ s τ t υ yu φ f χ cx ψ y ω w
+ ς sc ϑ cq µ mu
);
sub unidecode {
);
sub unidecode {