Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
https://github.com/uim/uim-doc-ja/wiki/UimTutcode 用のローマ字表(実験中)
;;;
;;; Copyright (c) 2003-2013 uim Project http://code.google.com/p/uim/
;;;
;;; All rights reserved.
;;;
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:
;;; 1. Redistributions of source code must retain the above copyright
;;; notice, this list of conditions and the following disclaimer.
;;; 2. Redistributions in binary form must reproduce the above copyright
;;; notice, this list of conditions and the following disclaimer in the
;;; documentation and/or other materials provided with the distribution.
;;; 3. Neither the name of authors nor the names of its contributors
;;; may be used to endorse or promote products derived from this software
;;; without specific prior written permission.
;;;
;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
;;; SUCH DAMAGE.
;;;;
;;; tutcode.scm用キー配列テーブルの定義
;;; TUT-Code。QWERTYキーボード用。
(define tutcode-rule
'(
; tutcode-key-customで設定
;((("a" "l" "a"))(tutcode-bushu-start)) ;前置型部首合成変換開始
;((("a" "l" "j"))(tutcode-mazegaki-start)) ;前置型交ぜ書き変換開始
((("a"))("" ""))
((("i"))("" ""))
((("u"))("" ""))
((("e"))("" ""))
((("o"))("" ""))
((("k" "a"))("" ""))
((("k" "i"))("" ""))
((("k" "u"))("" ""))
((("k" "e"))("" ""))
((("k" "o"))("" ""))
((("s" "a"))("" ""))
((("s" "i"))("" ""))
((("s" "u"))("" ""))
((("s" "e"))("" ""))
((("s" "o"))("" ""))
((("t" "a"))("" ""))
((("t" "i"))("" ""))
((("t" "u"))("" ""))
((("t" "e"))("" ""))
((("t" "o"))("" ""))
((("n" "a"))("" ""))
((("n" "i"))("" ""))
((("n" "u"))("" ""))
((("n" "e"))("" ""))
((("n" "o"))("" ""))
((("h" "a"))("" ""))
((("h" "i"))("" ""))
((("h" "u"))("" ""))
((("h" "e"))("" ""))
((("h" "o"))("" ""))
((("m" "a"))("" ""))
((("m" "i"))("" ""))
((("m" "u"))("" ""))
((("m" "e"))("" ""))
((("m" "o"))("" ""))
((("y" "a"))("" ""))
((("y" "u"))("" ""))
((("y" "o"))("" ""))
((("r" "a"))("" ""))
((("r" "i"))("" ""))
((("r" "u"))("" ""))
((("r" "e"))("" ""))
((("r" "o"))("" ""))
((("w" "a"))("" ""))
((("n"))("" ""))
((("n" "'"))("" ""))
((("n" "b"). ("b"))("" ""))
((("n" "c"). ("c"))("" ""))
((("n" "d"). ("d"))("" ""))
((("n" "f"). ("f"))("" ""))
((("n" "g"). ("g"))("" ""))
((("n" "h"). ("h"))("" ""))
((("n" "j"). ("j"))("" ""))
((("n" "k"). ("k"))("" ""))
((("n" "p"). ("p"))("" ""))
((("n" "q"). ("q"))("" ""))
((("n" "r"). ("r"))("" ""))
((("n" "s"). ("s"))("" ""))
((("n" "t"). ("t"))("" ""))
((("n" "v"). ("v"))("" ""))
((("n" "w"). ("w"))("" ""))
((("n" "x"). ("x"))("" ""))
((("n" "y"). ("y"))("" ""))
((("n" "z"). ("z"))("" ""))
((("g" "a"))("" ""))
((("g" "i"))("" ""))
((("g" "u"))("" ""))
((("g" "e"))("" ""))
((("g" "o"))("" ""))
((("z" "a"))("" ""))
((("z" "i"))("" ""))
((("z" "u"))("" ""))
((("z" "e"))("" ""))
((("z" "o"))("" ""))
((("d" "a"))("" ""))
((("d" "e"))("" ""))
((("d" "o"))("" ""))
((("b" "a"))("" ""))
((("b" "i"))("" ""))
((("b" "u"))("" ""))
((("b" "e"))("" ""))
((("b" "o"))("" ""))
((("p" "a"))("" ""))
((("p" "i"))("" ""))
((("p" "u"))("" ""))
((("p" "e"))("" ""))
((("p" "o"))("" ""))
((("k" "y" "a"))("きゃ" "キャ"))
((("k" "y" "u"))("きゅ" "キュ"))
((("k" "y" "o"))("きょ" "キョ"))
((("s" "y" "a"))("しゃ" "シャ"))
((("s" "y" "u"))("しゅ" "シュ"))
((("s" "y" "o"))("しょ" "ショ"))
((("t" "y" "a"))("ちゃ" "チャ"))
((("t" "y" "u"))("ちゅ" "チュ"))
((("t" "y" "o"))("ちょ" "チョ"))
((("n" "y" "a"))("にゃ" "ニャ"))
((("n" "y" "u"))("にゅ" "ニュ"))
((("n" "y" "o"))("にょ" "ニョ"))
((("h" "y" "a"))("ひゃ" "ヒャ"))
((("h" "y" "u"))("ひゅ" "ヒュ"))
((("h" "y" "o"))("ひょ" "ヒョ"))
((("m" "y" "a"))("みゃ" "ミャ"))
((("m" "y" "u"))("みゅ" "ミュ"))
((("m" "y" "o"))("みょ" "ミョ"))
((("r" "y" "a"))("りゃ" "リャ"))
((("r" "y" "u"))("りゅ" "リュ"))
((("r" "y" "o"))("りょ" "リョ"))
((("g" "y" "a"))("ぎゃ" "ギャ"))
((("g" "y" "u"))("ぎゅ" "ギュ"))
((("g" "y" "o"))("ぎょ" "ギョ"))
((("z" "y" "a"))("じゃ" "ジャ"))
((("z" "y" "u"))("じゅ" "ジュ"))
((("z" "y" "o"))("じょ" "ジョ"))
((("b" "y" "a"))("びゃ" "ビャ"))
((("b" "y" "u"))("びゅ" "ビュ"))
((("b" "y" "o"))("びょ" "ビョ"))
((("p" "y" "a"))("ぴゃ" "ピャ"))
((("p" "y" "u"))("ぴゅ" "ピュ"))
((("p" "y" "o"))("ぴょ" "ピョ"))
((("b" "b"). ("b"))("" ""))
((("c" "c"). ("c"))("" ""))
((("d" "d"). ("d"))("" ""))
((("f" "f"). ("f"))("" ""))
((("g" "g"). ("g"))("" ""))
((("h" "h"). ("h"))("" ""))
((("j" "j"). ("j"))("" ""))
((("k" "k"). ("k"))("" ""))
((("p" "p"). ("p"))("" ""))
((("q" "q"). ("q"))("" ""))
((("r" "r"). ("r"))("" ""))
((("s" "s"). ("s"))("" ""))
((("t" "t"). ("t"))("" ""))
((("v" "v"). ("v"))("" ""))
((("w" "w"). ("w"))("" ""))
((("x" "x"). ("x"))("" ""))
((("y" "y"). ("y"))("" ""))
((("z" "z"). ("z"))("" ""))
((("n" "n"))("" ""))
((("x" "n"))("" ""))
((("x" "a"))("" ""))
((("x" "i"))("" ""))
((("x" "u"))("" ""))
((("x" "e"))("" ""))
((("x" "o"))("" ""))
((("x" "t" "u"))("" ""))
((("x" "y" "a"))("" ""))
((("x" "y" "u"))("" ""))
((("x" "y" "o"))("" ""))
((("x" "w" "a"))("" ""))
((("w" "y" "i"))("" ""))
((("w" "y" "e"))("" ""))
((("w" "o"))("" ""))
((("d" "i"))("" ""))
((("d" "u"))("" ""))
((("y" "i"))("いぃ" "イィ"))
((("y" "e"))("いぇ" "イェ"))
((("k" "y" "i"))("きぃ" "キィ"))
((("k" "y" "e"))("きぇ" "キェ"))
((("s" "y" "i"))("しぃ" "シィ"))
((("s" "y" "e"))("しぇ" "シェ"))
((("t" "y" "i"))("ちぃ" "チィ"))
((("t" "y" "e"))("ちぇ" "チェ"))
((("n" "y" "i"))("にぃ" "ニィ"))
((("n" "y" "e"))("にぇ" "ニェ"))
((("h" "y" "i"))("ひぃ" "ヒィ"))
((("h" "y" "e"))("ひぇ" "ヒェ"))
((("m" "y" "i"))("みぃ" "ミィ"))
((("m" "y" "e"))("みぇ" "ミェ"))
((("r" "y" "i"))("りぃ" "リィ"))
((("r" "y" "e"))("りぇ" "リェ"))
((("g" "y" "i"))("ぎぃ" "ギィ"))
((("g" "y" "e"))("ぎぇ" "ギェ"))
((("z" "y" "i"))("じぃ" "ジィ"))
((("z" "y" "e"))("じぇ" "ジェ"))
((("b" "y" "i"))("びぃ" "ビィ"))
((("b" "y" "e"))("びぇ" "ビェ"))
((("p" "y" "i"))("ぴぃ" "ピィ"))
((("p" "y" "e"))("ぴぇ" "ピェ"))
((("w" "i"))("うぃ" "ウィ"))
((("w" "e"))("うぇ" "ウェ"))
((("k" "w" "a"))("くぁ" "クァ"))
((("k" "w" "i"))("くぃ" "クィ"))
((("k" "w" "u"))("くぅ" "クゥ"))
((("k" "w" "e"))("くぇ" "クェ"))
((("k" "w" "o"))("くぉ" "クォ"))
((("s" "w" "a"))("すぁ" "スァ"))
((("s" "w" "i"))("すぃ" "スィ"))
((("s" "w" "u"))("すぅ" "スゥ"))
((("s" "w" "e"))("すぇ" "スェ"))
((("s" "w" "o"))("すぉ" "スォ"))
((("n" "w" "a"))("ぬぁ" "ヌァ"))
((("n" "w" "i"))("ぬぃ" "ヌィ"))
((("n" "w" "u"))("ぬぅ" "ヌゥ"))
((("n" "w" "e"))("ぬぇ" "ヌェ"))
((("n" "w" "o"))("ぬぉ" "ヌォ"))
((("m" "w" "a"))("むぁ" "ムァ"))
((("m" "w" "i"))("むぃ" "ムィ"))
((("m" "w" "u"))("むぅ" "ムゥ"))
((("m" "w" "e"))("むぇ" "ムェ"))
((("m" "w" "o"))("むぉ" "ムォ"))
((("r" "w" "a"))("るぁ" "ルァ"))
((("r" "w" "i"))("るぃ" "ルィ"))
((("r" "w" "u"))("るぅ" "ルゥ"))
((("r" "w" "e"))("るぇ" "ルェ"))
((("r" "w" "o"))("るぉ" "ルォ"))
((("g" "w" "a"))("ぐぁ" "グァ"))
((("g" "w" "i"))("ぐぃ" "グィ"))
((("g" "w" "u"))("ぐぅ" "グゥ"))
((("g" "w" "e"))("ぐぇ" "グェ"))
((("g" "w" "o"))("ぐぉ" "グォ"))
((("b" "w" "a"))("ぶぁ" "ブァ"))
((("b" "w" "i"))("ぶぃ" "ブィ"))
((("b" "w" "u"))("ぶぅ" "ブゥ"))
((("b" "w" "e"))("ぶぇ" "ブェ"))
((("b" "w" "o"))("ぶぉ" "ブォ"))
((("p" "w" "a"))("ぷぁ" "ぷァ"))
((("p" "w" "i"))("ぷぃ" "ぷィ"))
((("p" "w" "u"))("ぷぅ" "ぷゥ"))
((("p" "w" "e"))("ぷぇ" "ぷェ"))
((("p" "w" "o"))("ぷぉ" "ぷォ"))
((("t" "s" "a"))("つぁ" "ツァ"))
((("t" "s" "i"))("つぃ" "ツィ"))
((("t" "s" "u"))("つぅ" "ツゥ"))
((("t" "s" "e"))("つぇ" "ツェ"))
((("t" "s" "o"))("つぉ" "ツォ"))
((("z" "w" "a"))("づぁ" "ヅァ"))
((("z" "w" "i"))("づぃ" "ヅィ"))
((("z" "w" "u"))("づぅ" "ヅゥ"))
((("z" "w" "e"))("づぇ" "ヅェ"))
((("z" "w" "o"))("づぉ" "ヅォ"))
((("t" "w" "a"))("とぁ" "トァ"))
((("t" "w" "i"))("とぃ" "トィ"))
((("t" "w" "u"))("とぅ" "トゥ"))
((("t" "w" "e"))("とぇ" "トェ"))
((("t" "w" "o"))("とぉ" "トォ"))
((("d" "w" "a"))("どぁ" "ドァ"))
((("d" "w" "i"))("どぃ" "ドィ"))
((("d" "w" "u"))("どぅ" "ドゥ"))
((("d" "w" "e"))("どぇ" "ドェ"))
((("d" "w" "o"))("どぉ" "ドォ"))
((("f" "a"))("ふぁ" "ファ"))
((("f" "i"))("ふぃ" "フィ"))
((("f" "u"))("ふぅ" "フゥ"))
((("f" "e"))("ふぇ" "フェ"))
((("f" "o"))("ふぉ" "フォ"))
((("h" "w" "a"))("ほぁ" "ホァ"))
((("h" "w" "i"))("ほぃ" "ホィ"))
((("h" "w" "u"))("ほぅ" "ホゥ"))
((("h" "w" "e"))("ほぇ" "ホェ"))
((("h" "w" "o"))("ほぉ" "ホォ"))
((("v" "a"))("う゛ぁ" "ヴァ"))
((("v" "i"))("う゛ぃ" "ヴィ"))
((("v" "u"))("う゛" ""))
((("v" "e"))("う゛ぇ" "ヴェ"))
((("v" "o"))("う゛ぉ" "ヴォ"))
((("t" "j" "a"))("てゃ" "テャ"))
((("t" "j" "i"))("てぃ" "ティ"))
((("t" "j" "u"))("てゅ" "テュ"))
((("t" "j" "e"))("てぇ" "テェ"))
((("t" "j" "o"))("てょ" "テョ"))
((("d" "j" "a"))("でゃ" "デャ"))
((("d" "j" "i"))("でぃ" "ディ"))
((("d" "j" "u"))("でゅ" "デュ"))
((("d" "j" "e"))("でぇ" "デェ"))
((("d" "j" "o"))("でょ" "デョ"))
((("f" "y" "a"))("ふゃ" "フャ"))
((("f" "y" "u"))("ふゅ" "フュ"))
((("f" "y" "o"))("ふょ" "フョ"))
((("v" "y" "a"))("う゛ゃ" "ヴャ"))
((("v" "y" "u"))("う゛ゅ" "ヴュ"))
((("v" "y" "o"))("う゛ょ" "ヴョ"))
((("d" "y" "a"))("ぢゃ" "ヂャ"))
((("d" "y" "i"))("ぢぃ" "ヂィ"))
((("d" "y" "u"))("ぢゅ" "ヂュ"))
((("d" "y" "e"))("ぢぇ" "ヂェ"))
((("d" "y" "o"))("ぢょ" "ヂョ"))
((("s" "h" "a"))("しゃ" "シャ"))
((("s" "h" "i"))("" ""))
((("s" "h" "u"))("しゅ" "シュ"))
((("s" "h" "e"))("しぇ" "シェ"))
((("s" "h" "o"))("しょ" "ショ"))
((("c" "h" "a"))("ちゃ" "チャ"))
((("c" "h" "i"))("" ""))
((("c" "h" "u"))("ちゅ" "チュ"))
((("c" "h" "e"))("ちぇ" "チェ"))
((("c" "h" "o"))("ちょ" "チョ"))
((("j" "a"))("じゃ" "ジャ"))
((("j" "i"))("" ""))
((("j" "u"))("じゅ" "ジュ"))
((("j" "e"))("じぇ" "ジェ"))
((("j" "o"))("じょ" "ジョ"))
((("0"))("0" "0"))
((("1"))("1" "1"))
((("2"))("2" "2"))
((("3"))("3" "3"))
((("4"))("4" "4"))
((("5"))("5" "5"))
((("6"))("6" "6"))
((("7"))("7" "7"))
((("8"))("8" "8"))
((("9"))("9" "9"))
((("!"))("" "!"))
((("@"))("" ""))
((("#"))("" ""))
((("$"))("" ""))
((("%"))("" ""))
((("^"))("" ""))
((("&"))("" ""))
((("*"))("" ""))
((("("))("" ""))
(((")"))("" ""))
((("-"))("" ""))
((("="))("" ""))
((("_"))("_" "_"))
((("+"))("" ""))
(((":"))("" ""))
(((";"))("" ""))
((("'"))(" " " "))
((("\""))("" ""))
((("\\"))("" ""))
((("|"))("" ""))
(((","))("" ""))
((("."))("" ""))
((("<"))("" ""))
(((">"))("" ""))
((("/"))("" ""))
((("?"))("" ""))
((("`"))("" ""))
((("~"))("" ""))
((("["))("" ""))
((("]"))("" ""))
((("{"))("" ""))
((("}"))("" ""))
((("z" " "))(" " " "))
((("z" "."))("" ""))
((("z" "/"))("" ""))
((("z" "["))("" ""))
((("z" "]"))("" ""))
((("n" " "))("" ""))
((("n" ","))("ん、" "ン、"))
((("n" "."))("ん。" "ン。"))
((("n" "?"))("ん?" "ン?"))
((("n" "\""))("ん・" "ン・"))))
(if (and (symbol-bound? 'tutcode-rule-use-tutplus?)
tutcode-rule-use-tutplus?)
(set! tutcode-rule (append tutcode-rule tutcode-rule-shin-joyo-kanji-plus)))
(define tutcode-rule-uppercase-for-katakana
'(
((("A"))("" ""))
((("I"))("" ""))
((("U"))("" ""))
((("E"))("" ""))
((("O"))("" ""))
((("K" "A"))("" ""))
((("K" "I"))("" ""))
((("K" "U"))("" ""))
((("K" "E"))("" ""))
((("K" "O"))("" ""))
((("S" "A"))("" ""))
((("S" "I"))("" ""))
((("S" "U"))("" ""))
((("S" "E"))("" ""))
((("S" "O"))("" ""))
((("T" "A"))("" ""))
((("T" "I"))("" ""))
((("T" "U"))("" ""))
((("T" "E"))("" ""))
((("T" "O"))("" ""))
((("N" "A"))("" ""))
((("N" "I"))("" ""))
((("N" "U"))("" ""))
((("N" "E"))("" ""))
((("N" "O"))("" ""))
((("H" "A"))("" ""))
((("H" "I"))("" ""))
((("H" "U"))("" ""))
((("H" "E"))("" ""))
((("H" "O"))("" ""))
((("M" "A"))("" ""))
((("M" "I"))("" ""))
((("M" "U"))("" ""))
((("M" "E"))("" ""))
((("M" "O"))("" ""))
((("Y" "A"))("" ""))
((("Y" "U"))("" ""))
((("Y" "O"))("" ""))
((("R" "A"))("" ""))
((("R" "I"))("" ""))
((("R" "U"))("" ""))
((("R" "E"))("" ""))
((("R" "O"))("" ""))
((("W" "A"))("" ""))
((("N"))("" ""))
((("N" "'"))("" ""))
((("N" "B"). ("B"))("" ""))
((("N" "C"). ("C"))("" ""))
((("N" "D"). ("D"))("" ""))
((("N" "F"). ("F"))("" ""))
((("N" "G"). ("G"))("" ""))
((("N" "H"). ("H"))("" ""))
((("N" "J"). ("J"))("" ""))
((("N" "K"). ("K"))("" ""))
((("N" "P"). ("P"))("" ""))
((("N" "Q"). ("Q"))("" ""))
((("N" "R"). ("R"))("" ""))
((("N" "S"). ("S"))("" ""))
((("N" "T"). ("T"))("" ""))
((("N" "V"). ("V"))("" ""))
((("N" "W"). ("W"))("" ""))
((("N" "X"). ("X"))("" ""))
((("N" "Y"). ("Y"))("" ""))
((("N" "Z"). ("Z"))("" ""))
((("G" "A"))("" ""))
((("G" "I"))("" ""))
((("G" "U"))("" ""))
((("G" "E"))("" ""))
((("G" "O"))("" ""))
((("Z" "A"))("" ""))
((("Z" "I"))("" ""))
((("Z" "U"))("" ""))
((("Z" "E"))("" ""))
((("Z" "O"))("" ""))
((("D" "A"))("" ""))
((("D" "E"))("" ""))
((("D" "O"))("" ""))
((("B" "A"))("" ""))
((("B" "I"))("" ""))
((("B" "U"))("" ""))
((("B" "E"))("" ""))
((("B" "O"))("" ""))
((("P" "A"))("" ""))
((("P" "I"))("" ""))
((("P" "U"))("" ""))
((("P" "E"))("" ""))
((("P" "O"))("" ""))
((("K" "Y" "A"))("キャ" "きゃ"))
((("K" "Y" "U"))("キュ" "きゅ"))
((("K" "Y" "O"))("キョ" "きょ"))
((("S" "Y" "A"))("シャ" "しゃ"))
((("S" "Y" "U"))("シュ" "しゅ"))
((("S" "Y" "O"))("ショ" "しょ"))
((("T" "Y" "A"))("チャ" "ちゃ"))
((("T" "Y" "U"))("チュ" "ちゅ"))
((("T" "Y" "O"))("チョ" "ちょ"))
((("N" "Y" "A"))("ニャ" "にゃ"))
((("N" "Y" "U"))("ニュ" "にゅ"))
((("N" "Y" "O"))("ニョ" "にょ"))
((("H" "Y" "A"))("ヒャ" "ひゃ"))
((("H" "Y" "U"))("ヒュ" "ひゅ"))
((("H" "Y" "O"))("ヒョ" "ひょ"))
((("M" "Y" "A"))("ミャ" "みゃ"))
((("M" "Y" "U"))("ミュ" "みゅ"))
((("M" "Y" "O"))("ミョ" "みょ"))
((("R" "Y" "A"))("リャ" "りゃ"))
((("R" "Y" "U"))("リュ" "りゅ"))
((("R" "Y" "O"))("リョ" "りょ"))
((("G" "Y" "A"))("ギャ" "ぎゃ"))
((("G" "Y" "U"))("ギュ" "ぎゅ"))
((("G" "Y" "O"))("ギョ" "ぎょ"))
((("Z" "Y" "A"))("ジャ" "じゃ"))
((("Z" "Y" "U"))("ジュ" "じゅ"))
((("Z" "Y" "O"))("ジョ" "じょ"))
((("B" "Y" "A"))("ビャ" "びゃ"))
((("B" "Y" "U"))("ビュ" "びゅ"))
((("B" "Y" "O"))("ビョ" "びょ"))
((("P" "Y" "A"))("ピャ" "ぴゃ"))
((("P" "Y" "U"))("ピュ" "ぴゅ"))
((("P" "Y" "O"))("ピョ" "ぴょ"))
((("B" "B"). ("B"))("" ""))
((("C" "C"). ("C"))("" ""))
((("D" "D"). ("D"))("" ""))
((("F" "F"). ("F"))("" ""))
((("G" "G"). ("G"))("" ""))
((("H" "H"). ("H"))("" ""))
((("J" "J"). ("J"))("" ""))
((("K" "K"). ("K"))("" ""))
((("P" "P"). ("P"))("" ""))
((("Q" "Q"). ("Q"))("" ""))
((("R" "R"). ("R"))("" ""))
((("S" "S"). ("S"))("" ""))
((("T" "T"). ("T"))("" ""))
((("V" "V"). ("V"))("" ""))
((("W" "W"). ("W"))("" ""))
((("X" "X"). ("X"))("" ""))
((("Y" "Y"). ("Y"))("" ""))
((("Z" "Z"). ("Z"))("" ""))
((("N" "N"))("" ""))
((("X" "N"))("" ""))
((("X" "A"))("" ""))
((("X" "I"))("" ""))
((("X" "U"))("" ""))
((("X" "E"))("" ""))
((("X" "O"))("" ""))
((("X" "T" "U"))("" ""))
((("X" "Y" "A"))("" ""))
((("X" "Y" "U"))("" ""))
((("X" "Y" "O"))("" ""))
((("X" "W" "A"))("" ""))
((("W" "Y" "I"))("" ""))
((("W" "Y" "E"))("" ""))
((("W" "O"))("" ""))
((("D" "I"))("" ""))
((("D" "U"))("" ""))
((("Y" "I"))("イィ" "いぃ"))
((("Y" "E"))("イェ" "いぇ"))
((("K" "Y" "I"))("キィ" "きぃ"))
((("K" "Y" "E"))("キェ" "きぇ"))
((("S" "Y" "I"))("シィ" "しぃ"))
((("S" "Y" "E"))("シェ" "しぇ"))
((("T" "Y" "I"))("チィ" "ちぃ"))
((("T" "Y" "E"))("チェ" "ちぇ"))
((("N" "Y" "I"))("ニィ" "にぃ"))
((("N" "Y" "E"))("ニェ" "にぇ"))
((("H" "Y" "I"))("ヒィ" "ひぃ"))
((("H" "Y" "E"))("ヒェ" "ひぇ"))
((("M" "Y" "I"))("ミィ" "みぃ"))
((("M" "Y" "E"))("ミェ" "みぇ"))
((("R" "Y" "I"))("リィ" "りぃ"))
((("R" "Y" "E"))("リェ" "りぇ"))
((("G" "Y" "I"))("ギィ" "ぎぃ"))
((("G" "Y" "E"))("ギェ" "ぎぇ"))
((("Z" "Y" "I"))("ジィ" "じぃ"))
((("Z" "Y" "E"))("ジェ" "じぇ"))
((("B" "Y" "I"))("ビィ" "びぃ"))
((("B" "Y" "E"))("ビェ" "びぇ"))
((("P" "Y" "I"))("ピィ" "ぴぃ"))
((("P" "Y" "E"))("ピェ" "ぴぇ"))
((("W" "I"))("ウィ" "うぃ"))
((("W" "E"))("ウェ" "うぇ"))
((("K" "W" "A"))("クァ" "くぁ"))
((("K" "W" "I"))("クィ" "くぃ"))
((("K" "W" "U"))("クゥ" "くぅ"))
((("K" "W" "E"))("クェ" "くぇ"))
((("K" "W" "O"))("クォ" "くぉ"))
((("S" "W" "A"))("スァ" "すぁ"))
((("S" "W" "I"))("スィ" "すぃ"))
((("S" "W" "U"))("スゥ" "すぅ"))
((("S" "W" "E"))("スェ" "すぇ"))
((("S" "W" "O"))("スォ" "すぉ"))
((("N" "W" "A"))("ヌァ" "ぬぁ"))
((("N" "W" "I"))("ヌィ" "ぬぃ"))
((("N" "W" "U"))("ヌゥ" "ぬぅ"))
((("N" "W" "E"))("ヌェ" "ぬぇ"))
((("N" "W" "O"))("ヌォ" "ぬぉ"))
((("M" "W" "A"))("ムァ" "むぁ"))
((("M" "W" "I"))("ムィ" "むぃ"))
((("M" "W" "U"))("ムゥ" "むぅ"))
((("M" "W" "E"))("ムェ" "むぇ"))
((("M" "W" "O"))("ムォ" "むぉ"))
((("R" "W" "A"))("ルァ" "るぁ"))
((("R" "W" "I"))("ルィ" "るぃ"))
((("R" "W" "U"))("ルゥ" "るぅ"))
((("R" "W" "E"))("ルェ" "るぇ"))
((("R" "W" "O"))("ルォ" "るぉ"))
((("G" "W" "A"))("グァ" "ぐぁ"))
((("G" "W" "I"))("グィ" "ぐぃ"))
((("G" "W" "U"))("グゥ" "ぐぅ"))
((("G" "W" "E"))("グェ" "ぐぇ"))
((("G" "W" "O"))("グォ" "ぐぉ"))
((("B" "W" "A"))("ブァ" "ぶぁ"))
((("B" "W" "I"))("ブィ" "ぶぃ"))
((("B" "W" "U"))("ブゥ" "ぶぅ"))
((("B" "W" "E"))("ブェ" "ぶぇ"))
((("B" "W" "O"))("ブォ" "ぶぉ"))
((("P" "W" "A"))("ぷァ" "ぷぁ"))
((("P" "W" "I"))("ぷィ" "ぷぃ"))
((("P" "W" "U"))("ぷゥ" "ぷぅ"))
((("P" "W" "E"))("ぷェ" "ぷぇ"))
((("P" "W" "O"))("ぷォ" "ぷぉ"))
((("T" "S" "A"))("ツァ" "つぁ"))
((("T" "S" "I"))("ツィ" "つぃ"))
((("T" "S" "U"))("ツゥ" "つぅ"))
((("T" "S" "E"))("ツェ" "つぇ"))
((("T" "S" "O"))("ツォ" "つぉ"))
((("Z" "W" "A"))("ヅァ" "づぁ"))
((("Z" "W" "I"))("ヅィ" "づぃ"))
((("Z" "W" "U"))("ヅゥ" "づぅ"))
((("Z" "W" "E"))("ヅェ" "づぇ"))
((("Z" "W" "O"))("ヅォ" "づぉ"))
((("T" "W" "A"))("トァ" "とぁ"))
((("T" "W" "I"))("トィ" "とぃ"))
((("T" "W" "U"))("トゥ" "とぅ"))
((("T" "W" "E"))("トェ" "とぇ"))
((("T" "W" "O"))("トォ" "とぉ"))
((("D" "W" "A"))("ドァ" "どぁ"))
((("D" "W" "I"))("ドィ" "どぃ"))
((("D" "W" "U"))("ドゥ" "どぅ"))
((("D" "W" "E"))("ドェ" "どぇ"))
((("D" "W" "O"))("ドォ" "どぉ"))
((("F" "A"))("ファ" "ふぁ"))
((("F" "I"))("フィ" "ふぃ"))
((("F" "U"))("フゥ" "ふぅ"))
((("F" "E"))("フェ" "ふぇ"))
((("F" "O"))("フォ" "ふぉ"))
((("H" "W" "A"))("ホァ" "ほぁ"))
((("H" "W" "I"))("ホィ" "ほぃ"))
((("H" "W" "U"))("ホゥ" "ほぅ"))
((("H" "W" "E"))("ホェ" "ほぇ"))
((("H" "W" "O"))("ホォ" "ほぉ"))
((("V" "A"))("ヴァ" "う゛ぁ"))
((("V" "I"))("ヴィ" "う゛ぃ"))
((("V" "U"))("" "う゛"))
((("V" "E"))("ヴェ" "う゛ぇ"))
((("V" "O"))("ヴォ" "う゛ぉ"))
((("T" "J" "A"))("テャ" "てゃ"))
((("T" "J" "I"))("ティ" "てぃ"))
((("T" "J" "U"))("テュ" "てゅ"))
((("T" "J" "E"))("テェ" "てぇ"))
((("T" "J" "O"))("テョ" "てょ"))
((("D" "J" "A"))("デャ" "でゃ"))
((("D" "J" "I"))("ディ" "でぃ"))
((("D" "J" "U"))("デュ" "でゅ"))
((("D" "J" "E"))("デェ" "でぇ"))
((("D" "J" "O"))("デョ" "でょ"))
((("F" "Y" "A"))("フャ" "ふゃ"))
((("F" "Y" "U"))("フュ" "ふゅ"))
((("F" "Y" "O"))("フョ" "ふょ"))
((("V" "Y" "A"))("ヴャ" "う゛ゃ"))
((("V" "Y" "U"))("ヴュ" "う゛ゅ"))
((("V" "Y" "O"))("ヴョ" "う゛ょ"))
((("D" "Y" "A"))("ヂャ" "ぢゃ"))
((("D" "Y" "I"))("ヂィ" "ぢぃ"))
((("D" "Y" "U"))("ヂュ" "ぢゅ"))
((("D" "Y" "E"))("ヂェ" "ぢぇ"))
((("D" "Y" "O"))("ヂョ" "ぢょ"))
((("S" "H" "A"))("シャ" "しゃ"))
((("S" "H" "I"))("" ""))
((("S" "H" "U"))("シュ" "しゅ"))
((("S" "H" "E"))("シェ" "しぇ"))
((("S" "H" "O"))("ショ" "しょ"))
((("C" "H" "A"))("チャ" "ちゃ"))
((("C" "H" "I"))("" ""))
((("C" "H" "U"))("チュ" "ちゅ"))
((("C" "H" "E"))("チェ" "ちぇ"))
((("C" "H" "O"))("チョ" "ちょ"))
((("J" "A"))("ジャ" "じゃ"))
((("J" "I"))("" ""))
((("J" "U"))("ジュ" "じゅ"))
((("J" "E"))("ジェ" "じぇ"))
((("J" "O"))("じょ" "ジョ"))
((("Z" " "))(" " " "))
((("Z" "."))("" ""))
((("Z" "/"))("" ""))
((("Z" "["))("" ""))
((("Z" "]"))("" ""))
((("N" " "))("" ""))))
;;; 大文字で、現在のひらがな/カタカナモードと反対のカタカナ/ひらがなを入力する
;;; には、~/.uimに以下のように記述する。
;;; (define tutcode-rule-uppercase-as-opposite-kana? #t)
;;; (従来からの動作は、大文字では必ずカタカナ入力)
(if (or (not (symbol-bound? 'tutcode-rule-uppercase-as-opposite-kana?))
(not tutcode-rule-uppercase-as-opposite-kana?))
(set! tutcode-rule-uppercase-for-katakana
(map
(lambda (x)
(list (car x) (list (caadr x))))
tutcode-rule-uppercase-for-katakana)))
(define tutcode-rule-uppercase-for-kigou-in-katakana
'(
))
;;; 大文字でカタカナ入力を行う定義を登録しないようにするには、
;;; ~/.uimに以下のように記述する。(大文字でのカタカナ入力を使わない場合、
;;; stroke-helpの仮想鍵盤で下半分のシフトキー領域無しで半分のサイズで
;;; 表示したい場合など)
;;; (define tutcode-rule-exclude-uppercase-for-katakana? #t)
;;; また、カタカナ中に出現することの多い"ー"と"・"を大文字で入力する定義のみを
;;; 登録しないようにするには、~/.uimに以下のように記述する。
;;; (define tutcode-rule-exclude-uppercase-for-kigou-in-katakana? #t)
;;; (XXX:現状は、大文字の((("E" " "))("ー"))定義が使われても、
;;; 漢字→入力シーケンス変換すると小文字化される。それを回避したい場合用。
;;; 例:"CODE "と打鍵、"CODー"と表示、漢字→入力シーケンス変換すると"CODe ")
(if (or (not (symbol-bound? 'tutcode-rule-exclude-uppercase-for-katakana?))
(not tutcode-rule-exclude-uppercase-for-katakana?))
(set! tutcode-rule
(append
tutcode-rule
tutcode-rule-uppercase-for-katakana
(if (or (not (symbol-bound?
'tutcode-rule-exclude-uppercase-for-kigou-in-katakana?))
(not tutcode-rule-exclude-uppercase-for-kigou-in-katakana?))
tutcode-rule-uppercase-for-kigou-in-katakana
()))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment