-
Notifications
You must be signed in to change notification settings - Fork 1
/
greek-latin-fix.ahk
139 lines (137 loc) · 5.3 KB
/
greek-latin-fix.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
; Ctrl-Alt-G: Fix Greek text entered on Latin keyboard setting
; Auto-generated by greek-latin-fix.py
^!G::
Clipboard := ""
Send ^c
ClipWait, 0
str := Clipboard
StringCaseSense, On
if RegExMatch(str, "[a-zA-Z]") != 0 {
str := StrReplace(str, ";a","ά")
str := StrReplace(str, ";e","έ")
str := StrReplace(str, ";h","ή")
str := StrReplace(str, ";i","ί")
str := StrReplace(str, ";o","ό")
str := StrReplace(str, ";y","ύ")
str := StrReplace(str, ";v","ώ")
str := StrReplace(str, ";A","Ά")
str := StrReplace(str, ";E","Έ")
str := StrReplace(str, ";H","Ή")
str := StrReplace(str, ";I","Ί")
str := StrReplace(str, ";O","Ό")
str := StrReplace(str, ";Y","Ύ")
str := StrReplace(str, ";V","Ώ")
str := StrReplace(str, ":i","ϊ")
str := StrReplace(str, ":y","ϋ")
str := StrReplace(str, ":I","Ϊ")
str := StrReplace(str, ":Y","Ϋ")
str := StrReplace(str, "a", "α")
str := StrReplace(str, "b", "β")
str := StrReplace(str, "c", "ψ")
str := StrReplace(str, "d", "δ")
str := StrReplace(str, "e", "ε")
str := StrReplace(str, "f", "φ")
str := StrReplace(str, "g", "γ")
str := StrReplace(str, "h", "η")
str := StrReplace(str, "i", "ι")
str := StrReplace(str, "j", "ξ")
str := StrReplace(str, "k", "κ")
str := StrReplace(str, "l", "λ")
str := StrReplace(str, "m", "μ")
str := StrReplace(str, "n", "ν")
str := StrReplace(str, "o", "ο")
str := StrReplace(str, "p", "π")
str := StrReplace(str, "q", ";")
str := StrReplace(str, "r", "ρ")
str := StrReplace(str, "s", "σ")
str := StrReplace(str, "t", "τ")
str := StrReplace(str, "u", "θ")
str := StrReplace(str, "v", "ω")
str := StrReplace(str, "w", "ς")
str := StrReplace(str, "x", "χ")
str := StrReplace(str, "y", "υ")
str := StrReplace(str, "z", "ζ")
str := StrReplace(str, "A", "Α")
str := StrReplace(str, "B", "Β")
str := StrReplace(str, "C", "Ψ")
str := StrReplace(str, "D", "Δ")
str := StrReplace(str, "E", "Ε")
str := StrReplace(str, "F", "Φ")
str := StrReplace(str, "G", "Γ")
str := StrReplace(str, "H", "Η")
str := StrReplace(str, "I", "Ι")
str := StrReplace(str, "J", "Ξ")
str := StrReplace(str, "K", "Κ")
str := StrReplace(str, "L", "Λ")
str := StrReplace(str, "M", "Μ")
str := StrReplace(str, "N", "Ν")
str := StrReplace(str, "O", "Ο")
str := StrReplace(str, "P", "Π")
str := StrReplace(str, "Q", ";")
str := StrReplace(str, "R", "Ρ")
str := StrReplace(str, "S", "Σ")
str := StrReplace(str, "T", "Τ")
str := StrReplace(str, "U", "Θ")
str := StrReplace(str, "V", "Ω")
str := StrReplace(str, "W", "Σ")
str := StrReplace(str, "X", "Χ")
str := StrReplace(str, "Y", "Υ")
str := StrReplace(str, "Z", "Ζ")
} else {
str := StrReplace(str, "α", "a")
str := StrReplace(str, "β", "b")
str := StrReplace(str, "ψ", "c")
str := StrReplace(str, "δ", "d")
str := StrReplace(str, "ε", "e")
str := StrReplace(str, "φ", "f")
str := StrReplace(str, "γ", "g")
str := StrReplace(str, "η", "h")
str := StrReplace(str, "ι", "i")
str := StrReplace(str, "ξ", "j")
str := StrReplace(str, "κ", "k")
str := StrReplace(str, "λ", "l")
str := StrReplace(str, "μ", "m")
str := StrReplace(str, "ν", "n")
str := StrReplace(str, "ο", "o")
str := StrReplace(str, "π", "p")
str := StrReplace(str, ";", "q")
str := StrReplace(str, "ρ", "r")
str := StrReplace(str, "σ", "s")
str := StrReplace(str, "τ", "t")
str := StrReplace(str, "θ", "u")
str := StrReplace(str, "ω", "v")
str := StrReplace(str, "ς", "w")
str := StrReplace(str, "χ", "x")
str := StrReplace(str, "υ", "y")
str := StrReplace(str, "ζ", "z")
str := StrReplace(str, "Α", "A")
str := StrReplace(str, "Β", "B")
str := StrReplace(str, "Ψ", "C")
str := StrReplace(str, "Δ", "D")
str := StrReplace(str, "Ε", "E")
str := StrReplace(str, "Φ", "F")
str := StrReplace(str, "Γ", "G")
str := StrReplace(str, "Η", "H")
str := StrReplace(str, "Ι", "I")
str := StrReplace(str, "Ξ", "J")
str := StrReplace(str, "Κ", "K")
str := StrReplace(str, "Λ", "L")
str := StrReplace(str, "Μ", "M")
str := StrReplace(str, "Ν", "N")
str := StrReplace(str, "Ο", "O")
str := StrReplace(str, "Π", "P")
str := StrReplace(str, ";", "Q")
str := StrReplace(str, "Ρ", "R")
str := StrReplace(str, "Σ", "S")
str := StrReplace(str, "Τ", "T")
str := StrReplace(str, "Θ", "U")
str := StrReplace(str, "Ω", "V")
str := StrReplace(str, "Σ", "W")
str := StrReplace(str, "Χ", "X")
str := StrReplace(str, "Υ", "Y")
str := StrReplace(str, "Ζ", "Z")
}
Clipboard := str
Send ^v
return