(require 'its)
(require 'cl))
-(defvar its-han-kata-enable-double-n nil "*Enable \"nn\" input for \"\e$B%s\e(B\" ")
-(defvar its-han-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
-(defvar its-han-kata-period "\e(I!\e(B" "*\e$B%T%j%*%I\e(B") ; ". " "\e$B!%\e(B"
-(defvar its-han-kata-comma "\e(I$\e(B" "*\e$B%3%s%^\e(B") ; ", " "\e$B!$\e(B"
-(defvar its-han-kata-open-bracket "\e(I"\e(B" "*[") ; "\e$B!N\e(B"
-(defvar its-han-kata-close-bracket "\e(I#\e(B" "*]") ; "\e$B!O\e(B"
-(defvar its-han-kata-horizontal "\e(I0\e(B" "*-") ; "\e$B!]\e(B"
+(defvar its-kata-enable-double-n nil "*Enable \"nn\" input for \"\e$B%s\e(B\" ")
+(defvar its-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
+(defvar its-kata-period "\e(I!\e(B" "*\e$B%T%j%*%I\e(B") ; ". " "\e$B!%\e(B"
+(defvar its-kata-comma "\e(I$\e(B" "*\e$B%3%s%^\e(B") ; ", " "\e$B!$\e(B"
+(defvar its-kata-open-bracket "\e(I"\e(B" "*[") ; "\e$B!N\e(B"
+(defvar its-kata-close-bracket "\e(I#\e(B" "*]") ; "\e$B!O\e(B"
+(defvar its-kata-horizontal "\e(I0\e(B" "*-") ; "\e$B!]\e(B"
(define-its-state-machine its-han-kata-map
- "roma-han-kata" "\e(I11\e(B" 'Japanese
+ "roma-han-kata" "\e(I11\e(B" "Japanese" nil
"Map for Romaji-Hankaku-Katakana translation. (Japanese)"
(defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs
(its-defrule (concat its-hankaku-escape upcase) upcase)))
(define-its-state-machine-append its-han-kata-map
- (if its-han-kata-enable-double-n
+ (if its-kata-enable-double-n
(its-defrule "nn" "\e(I]\e(B")
(its-defrule "nn" "\e(I]\e(B" -1))
- (its-defrule "-" its-han-kata-horizontal)
- (its-defrule "[" its-han-kata-open-bracket)
- (its-defrule "]" its-han-kata-close-bracket)
- (its-defrule "." its-han-kata-period)
- (its-defrule "," its-han-kata-comma)
+ (its-defrule "-" its-kata-horizontal)
+ (its-defrule "[" its-kata-open-bracket)
+ (its-defrule "]" its-kata-close-bracket)
+ (its-defrule "." its-kata-period)
+ (its-defrule "," its-kata-comma)
)
(provide 'its/hankata)