(search  /usr/local/lib/wnn4/rk /usr/local/lib/wnn4/rk.vi)
(defmode romkan on)
(defmode katakana)
(defmode zenkaku)
(defmode esc)
;(defmode tcode)
(defmode quote)
(defmode keisen_A)
(defmode keisen_B)

2A_CTRL

(if keisen_A 
	(if romkan 2B_KEISEN "[ksn]")
	2C_KEISEN1 "[KSN]")

(if keisen_B 
	(if romkan 2B_KEISEN_FH "[Ksn]")
	2B_KEISEN_HF "[kSn]")

(if esc "[ESC]")
;(if tcode 1B_TOUPPER 2_TCODE "[ t ]")
(if quote
	(if zenkaku 3B_ZENKAKU "[ Q ]")
	"[ q ]")
(if romkan
	1B_newTOUPPER
	2_kawa 2B_ROMKANA 2B_JIS
	(if (not katakana) "[あr]")
	3B_KATAKANA
	"[アr]")

2B_DAKUTEN
(if (not katakana) 1B_ZENHIRA
	(if zenkaku 3B_ZENKAKU "[あ ]")
	"[Aあ]")

1B_ZENKATA
(if zenkaku 3B_ZENKAKU "[ア ]")
"[Aア]"