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