(define generic-on-key '("zenkaku-hankaku" "<IgnoreShift><Control>\\" "<Hyper> "))
(define generic-on-key? (make-key-predicate '("zenkaku-hankaku" "<IgnoreShift><Control>\\" "<Hyper> ")))
(define generic-off-key '("zenkaku-hankaku" "<IgnoreShift><Control>\\" "<Hyper> "))
(define generic-off-key? (make-key-predicate '("zenkaku-hankaku" "<IgnoreShift><Control>\\" "<Hyper> ")))


;; based on /usr/share/uim/japanese-kana.scm

(require-module "anthy")
(define ja-kana-hiragana-rule
  '(
    ((("#"). ("ぁ"))())
    ((("E"). ("ぃ"))())
    ((("$"). ("ぅ"))())
    ((("%"). ("ぇ"))())
    ((("^"). ("ぉ"))())
    ((("&"). ("ゃ"))())
    ((("*"). ("ゅ"))())
    ((("("). ("ょ"))())
    (((")"). ("を"))())
    ((("Z"). ("っ"))())
    ((("y"). ("ん"))())
    ((("3"). ("あ"))())
    ((("e"). ("い"))())
    ((("4"). ("う"))())
    ((("5"). ("え"))())
    ((("6"). ("お"))())
    ((("t"). ("か"))())
    ((("g"). ("き"))())
    ((("h"). ("く"))())
    ((("'"). ("け"))())
    ((("b"). ("こ"))())
    ((("x"). ("さ"))())
    ((("d"). ("し"))())
    ((("r"). ("す"))())
    ((("p"). ("せ"))())
    ((("c"). ("そ"))())
    ((("q"). ("た"))())
    ((("a"). ("ち"))())
    ((("z"). ("つ"))())
    ((("w"). ("て"))())
    ((("s"). ("と"))())
    ((("u"). ("な"))())
    ((("i"). ("に"))())
    ((("1"). ("ぬ"))())
    (((","). ("ね"))())
    ((("k"). ("の"))())
    ((("f"). ("は"))())
    ((("v"). ("ひ"))())
    ((("2"). ("ふ"))())
    ((("="). ("へ"))())
    ((("-"). ("ほ"))())
    ((("j"). ("ま"))())
    ((("n"). ("み"))())
    ((("\\"). ("む"))())
    ((("/"). ("め"))())
    ((("m"). ("も"))())
    ((("7"). ("や"))())
    ((("8"). ("ゆ"))())
    ((("9"). ("よ"))())
    ((("o"). ("ら"))())
    ((("l"). ("り"))())
    ((("."). ("る"))())
    (((";"). ("れ"))())
    ((("0"). ("わ"))())
    ((("|"). ("ー"))())
    ((("\""). ("ろ"))())
    ((("か" "["). ())("が" ""))
    ((("き" "["). ())("ぎ" ""))
    ((("く" "["). ())("ぐ" ""))
    ((("け" "["). ())("げ" ""))
    ((("こ" "["). ())("ご" ""))
    ((("さ" "["). ())("ざ" ""))
    ((("し" "["). ())("じ" ""))
    ((("す" "["). ())("ず" ""))
    ((("せ" "["). ())("ぜ" ""))
    ((("そ" "["). ())("ぞ" ""))
    ((("た" "["). ())("だ" ""))
    ((("ち" "["). ())("ぢ" ""))
    ((("つ" "["). ())("づ" ""))
    ((("て" "["). ())("で" ""))
    ((("と" "["). ())("ど" ""))
    ((("は" "["). ())("ば" ""))
    ((("ひ" "["). ())("び" ""))
    ((("ふ" "["). ())("ぶ" ""))
    ((("へ" "["). ())("べ" ""))
    ((("ほ" "["). ())("ぼ" ""))
    ((("は" "]"). ())("ぱ" ""))
    ((("ひ" "]"). ())("ぴ" ""))
    ((("ふ" "]"). ())("ぷ" ""))
    ((("へ" "]"). ())("ぺ" ""))
    ((("ほ" "]"). ())("ぽ" ""))
    (((">"). ("。"))())
    ((("<"). ("、"))())
    ((("?"). ("・"))())
    ((("["). ("゛"))())
    ((("]"). ("゜"))())
    ((("{"). ("「"))())
    ((("}"). ("」"))())

    ((("ぁ"). ())("ぁ"))
    ((("ぃ"). ())("ぃ"))
    ((("ぅ"). ())("ぅ"))
    ((("ぇ"). ())("ぇ"))
    ((("ぉ"). ())("ぉ"))
    ((("ゃ"). ())("ゃ"))
    ((("ゅ"). ())("ゅ"))
    ((("ょ"). ())("ょ"))
    ((("を"). ())("を"))
    ((("っ"). ())("っ"))
    ((("ん"). ())("ん"))
    ((("あ"). ())("あ"))
    ((("い"). ())("い"))
    ((("う"). ())("う"))
    ((("え"). ())("え"))
    ((("お"). ())("お"))
    ((("か"). ())("か"))
    ((("き"). ())("き"))
    ((("く"). ())("く"))
    ((("け"). ())("け"))
    ((("こ"). ())("こ"))
    ((("さ"). ())("さ"))
    ((("し"). ())("し"))
    ((("す"). ())("す"))
    ((("せ"). ())("せ"))
    ((("そ"). ())("そ"))
    ((("た"). ())("た"))
    ((("ち"). ())("ち"))
    ((("つ"). ())("つ"))
    ((("て"). ())("て"))
    ((("と"). ())("と"))
    ((("な"). ())("な"))
    ((("に"). ())("に"))
    ((("ぬ"). ())("ぬ"))
    ((("ね"). ())("ね"))
    ((("の"). ())("の"))
    ((("は"). ())("は"))
    ((("ひ"). ())("ひ"))
    ((("ふ"). ())("ふ"))
    ((("へ"). ())("へ"))
    ((("ほ"). ())("ほ"))
    ((("ま"). ())("ま"))
    ((("み"). ())("み"))
    ((("む"). ())("む"))
    ((("め"). ())("め"))
    ((("も"). ())("も"))
    ((("や"). ())("や"))
    ((("ゆ"). ())("ゆ"))
    ((("よ"). ())("よ"))
    ((("ら"). ())("ら"))
    ((("り"). ())("り"))
    ((("る"). ())("る"))
    ((("れ"). ())("れ"))
    ((("わ"). ())("わ"))
    ((("ー"). ())("ー"))
    ((("ろ"). ())("ろ"))
    ((("。"). ())("。"))
    ((("、"). ())("、"))
    ((("・"). ())("・"))
    ((("゛"). ())("゛"))
    ((("゜"). ())("゜"))
    ((("「"). ())("「"))
    ((("」"). ())("」"))

    ))

(define ja-kana-katakana-rule
  '(
    ((("#"). ("ァ"))())
    ((("E"). ("ィ"))())
    ((("$"). ("ゥ"))())
    ((("%"). ("ェ"))())
    ((("^"). ("ォ"))())
    ((("&"). ("ャ"))())
    ((("*"). ("ュ"))())
    ((("("). ("ョ"))())
    (((")"). ("ヲ"))())
    ((("Z"). ("ッ"))())
    ((("y"). ("ン"))())
    ((("3"). ("ア"))())
    ((("e"). ("イ"))())
    ((("4"). ("ウ"))())
    ((("5"). ("エ"))())
    ((("6"). ("オ"))())
    ((("t"). ("カ"))())
    ((("g"). ("キ"))())
    ((("h"). ("ク"))())
    ((("'"). ("ケ"))())
    ((("b"). ("コ"))())
    ((("x"). ("サ"))())
    ((("d"). ("シ"))())
    ((("r"). ("ス"))())
    ((("p"). ("セ"))())
    ((("c"). ("ソ"))())
    ((("q"). ("タ"))())
    ((("a"). ("チ"))())
    ((("z"). ("ツ"))())
    ((("w"). ("テ"))())
    ((("s"). ("ト"))())
    ((("u"). ("ナ"))())
    ((("i"). ("ニ"))())
    ((("1"). ("ヌ"))())
    (((","). ("ネ"))())
    ((("k"). ("ノ"))())
    ((("f"). ("ハ"))())
    ((("v"). ("ヒ"))())
    ((("2"). ("フ"))())
    ((("="). ("ヘ"))())
    ((("-"). ("ホ"))())
    ((("j"). ("マ"))())
    ((("n"). ("ミ"))())
    ((("\\"). ("ム"))())
    ((("/"). ("メ"))())
    ((("m"). ("モ"))())
    ((("7"). ("ヤ"))())
    ((("8"). ("ユ"))())
    ((("9"). ("ヨ"))())
    ((("o"). ("ラ"))())
    ((("l"). ("リ"))())
    ((("."). ("ル"))())
    (((";"). ("レ"))())
    ((("0"). ("ワ"))())
    ((("|"). ("ー"))())
    ((("\""). ("ロ"))())
    ((("カ" "["). ())("ガ"))
    ((("キ" "["). ())("ギ"))
    ((("ク" "["). ())("グ"))
    ((("ケ" "["). ())("ゲ"))
    ((("コ" "["). ())("ゴ"))
    ((("サ" "["). ())("ザ"))
    ((("シ" "["). ())("ジ"))
    ((("ス" "["). ())("ズ"))
    ((("セ" "["). ())("ゼ"))
    ((("ソ" "["). ())("ゾ"))
    ((("タ" "["). ())("ダ"))
    ((("チ" "["). ())("ヂ"))
    ((("ツ" "["). ())("ヅ"))
    ((("テ" "["). ())("デ"))
    ((("ト" "["). ())("ド"))
    ((("ハ" "["). ())("バ"))
    ((("ヒ" "["). ())("ビ"))
    ((("フ" "["). ())("ブ"))
    ((("ヘ" "["). ())("ベ"))
    ((("ホ" "["). ())("ボ"))
    ((("ハ" "]"). ())("パ"))
    ((("ヒ" "]"). ())("ピ"))
    ((("フ" "]"). ())("プ"))
    ((("ヘ" "]"). ())("ペ"))
    ((("ホ" "]"). ())("ポ"))
    (((">"). ("。"))())
    ((("<"). ("、"))())
    ((("?"). ("・"))())
    ((("["). ("゛"))())
    ((("]"). ("゜"))())
    ((("{"). ("「"))())
    ((("}"). ("」"))())

    ((("ァ"). ())("ァ"))
    ((("ィ"). ())("ィ"))
    ((("ゥ"). ())("ゥ"))
    ((("ェ"). ())("ェ"))
    ((("ォ"). ())("ォ"))
    ((("ャ"). ())("ヤ"))
    ((("ュ"). ())("ュ"))
    ((("ョ"). ())("ョ"))
    ((("ヲ"). ())("ヲ"))
    ((("ッ"). ())("ッ"))
    ((("ン"). ())("ン"))
    ((("ア"). ())("ア"))
    ((("イ"). ())("イ"))
    ((("ウ"). ())("ウ"))
    ((("エ"). ())("エ"))
    ((("オ"). ())("オ"))
    ((("カ"). ())("カ"))
    ((("キ"). ())("キ"))
    ((("ク"). ())("ク"))
    ((("ケ"). ())("ケ"))
    ((("コ"). ())("コ"))
    ((("サ"). ())("サ"))
    ((("シ"). ())("シ"))
    ((("ス"). ())("ス"))
    ((("セ"). ())("セ"))
    ((("ソ"). ())("ソ"))
    ((("タ"). ())("タ"))
    ((("チ"). ())("チ"))
    ((("ツ"). ())("ツ"))
    ((("テ"). ())("テ"))
    ((("ト"). ())("ト"))
    ((("ナ"). ())("ナ"))
    ((("ニ"). ())("ニ"))
    ((("ヌ"). ())("ヌ"))
    ((("ネ"). ())("ネ"))
    ((("ノ"). ())("ノ"))
    ((("ハ"). ())("ハ"))
    ((("ヒ"). ())("ヒ"))
    ((("フ"). ())("フ"))
    ((("ヘ"). ())("へ"))
    ((("ホ"). ())("ホ"))
    ((("マ"). ())("マ"))
    ((("ミ"). ())("ミ"))
    ((("ム"). ())("ム"))
    ((("メ"). ())("メ"))
    ((("モ"). ())("モ"))
    ((("ヤ"). ())("ヤ"))
    ((("ユ"). ())("ユ"))
    ((("ヨ"). ())("ヨ"))
    ((("ラ"). ())("ラ"))
    ((("リ"). ())("リ"))
    ((("ル"). ())("ル"))
    ((("レ"). ())("レ"))
    ((("ロ"). ())("ロ"))
    ((("ワ"). ())("ワ"))
    ((("ー"). ())("ー"))
    ((("。"). ())("。"))
    ((("、"). ())("、"))
    ((("・"). ())("・"))
    ((("゛"). ())("゛"))
    ((("゜"). ())("゜"))
    ((("「"). ())("「"))
    ((("」"). ())("」"))
    ))