kana.ahk

/*
アイウエオ カキクケコ サシスセソ タチツテト ナニヌネノ ハヒフヘホ マミムメモ ヤ ユ ヨ ラリルレロ ワヰ ヱヲ ん
あいうえお かきくけこ さしすせそ たちつてと なにぬねの はひふへほ まみむめも やゆよ らりるれろ わを ン
*/
pureVowels() {
    Hotkey, a, toggle
    Hotkey, e, toggle
    Hotkey, i, toggle
    Hotkey, o, toggle
    Hotkey, u, toggle
}

vdeterm(hiragana, katakana) {
    global kana
    pureVowels()
    SplashTextOn, 200, 20, Starting consonant, %A_ThisHotkey%
    letters := (kana = "hira") ? hiragana : katakana
    Input vowel, l2, \, a,i,u,e,o
    SplashTextOff
    If vowel = a
        Send % Substr(letters, 1, 1)
    Else if vowel = i
        Send % Substr(letters, 2, 1)
    Else if vowel = u
        Send % Substr(letters, 3, 1)
    Else if vowel = e
        Send % substr(letters, 4, 1)
    Else if vowel = o
        Send % substr(letters, 5, 1)
    Else if vowel = ya
    {
        Send % substr(letters, 6, 1)
        Sleep 60
        Send % singleVowelDeterm("ゃ", "ャ")
    }
    Else if vowel = yu
    {
        Send % substr(letters, 6, 1)
        Sleep 60
        Send % singleVowelDeterm("ゅ", "ュ")
    }
    Else if vowel = yo
    {
        Send % substr(letters, 6, 1)
        Sleep 60
        Send % singleVowelDeterm("ょ", "ョ")
    }
    Else if vowel = wa
    {
        Send % substr(letters, 6, 1)
        Sleep 60
        Send % singleVowelDeterm("ゎ", "ヮ")
    }
    Else, Send, %A_Space%
    pureVowels()
}

singleVowelDeterm(hiragana, katakana) {
    global kana
    if kana = hira
        Send %hiragana%
    else
        Send %katakana%
}

kana = hira
RControl::
kana := (kana = "hira") ? "kata" : "hira"
rendaku := (kana = "hira") ? "g" : "k"
TrayTip, Kana mode changed, You are now typing in %kana%%rendaku%ana., 10, 1
return

a::singleVowelDeterm("あ", "ア")
i::singleVowelDeterm("い", "イ")
u::singleVowelDeterm("う", "ウ")
e::singleVowelDeterm("え", "エ")
o::singleVowelDeterm("お", "オ")
+n::singleVowelDeterm("ん", "ン")
c::singleVowelDeterm("っ", "ッ")
+a::singleVowelDeterm("ぁ", "ァ")
+i::singleVowelDeterm("ぃ", "ィ")
+u::singleVowelDeterm("ぅ", "ゥ")
+e::singleVowelDeterm("ぇ", "ェ")
+o::singleVowelDeterm("ぉ", "ォ")

q::Send ー
x::Send ゛
+x::Send ゜

k::vdeterm("かきくけこきく", "カキクケコキク")
s::vdeterm("さしすせそし ", "サシスセソシ ")
t::vdeterm("たちつてとち ", "タチツテトチ ")
n::vdeterm("なにぬねの ", "ナニヌネノニ ")
h::vdeterm("はひふへほひ", "ハヒフヘホヒ ")
m::vdeterm("まみむめもみ ", "マミムメモミ ")
y::vdeterm("や ゆ よ  ", "ヤ ユ ヨ  ")
r::vdeterm("らりるれろり ", "ラリルレロリ ")
w::vdeterm("わゐ ゑを  ", "ワヰ ヱヲ  ")
g::vdeterm("がぎぐげごぎぐ", "ガギグゲゴギグ")
z::vdeterm("ざじずぜぞじ ", "ザジズゼゾジ ")
d::vdeterm("だぢづでどぢ ", "ダヂヅデドヂ ")
b::vdeterm("ばびぶべぼび ", "バビブベボビ ")
p::vdeterm("ぱぴぷぺぽぴ ", "パピプペポピ ")
v::vdeterm("      ", "ヷヸヴヹヺ  ")

Esc::
MsgBox Kana mode terminated.
ExitApp