X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fegg.git;a=blobdiff_plain;f=its%2Fhira.el;h=051dcc671bb3ac97f54fcee2cd1b9766da582786;hp=a08cec9479efdfb634d9c7bf3b6bdda977a0a0a0;hb=d0114d80c7a6a1a573bb3adc0fd4a3b25fa1e27e;hpb=b03c025b15c384d1ab9b0ec2b9299c0e70a16f74

diff --git a/its/hira.el b/its/hira.el
index a08cec9..051dcc6 100644
--- a/its/hira.el
+++ b/its/hira.el
@@ -47,9 +47,13 @@
 (define-its-state-machine its-hira-map
   "roma-kana" "あ" "Japanese" nil
   "Map for Romaji-Hiragana translation. (Japanese)"
+
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs
   (defconst its-hankaku-escape "~")  ;; Escape character to Hankaku inputs
 
+  (its-defrule-select-mode-temporally "q" downcase)
+  (its-defrule-select-mode-temporally "Q" zenkaku-downcase)
+
 ;;; k      k
 ;;; kk     っk
 ;;; kka    っか
@@ -434,9 +438,9 @@
       (its-defrule "nn" "ん")
     (its-defrule "nn" "ん" -1))
 
-  (its-defrule "-"   its-hira-horizontal)
-  (its-defrule "["    its-hira-open-bracket)
-  (its-defrule "]"    its-hira-close-bracket)
+  (its-defrule "-" its-hira-horizontal)
+  (its-defrule "[" its-hira-open-bracket)
+  (its-defrule "]" its-hira-close-bracket)
   (its-defrule "." its-hira-period)
   (its-defrule "," its-hira-comma)
 
@@ -455,13 +459,11 @@
 	(its-defrule   "="   "＝")  (its-defrule   "`"   "｀")
 	(its-defrule   "\\"  "￥")  (its-defrule   "|"   "｜")
 	(its-defrule   "_"   "＿")  (its-defrule   "+"   "＋")
-	(its-defrule   "~"   "￣" nil t)
-	(its-defrule   "{"   "｛")
-	(its-defrule   "}"   "｝")  (its-defrule   ":"   "：")
-	(its-defrule   ";"   "；")  (its-defrule   "\""  "”")
-	(its-defrule   "'"   "’")  (its-defrule   "<"   "＜")
-	(its-defrule   ">"   "＞")  (its-defrule   "?"   "？")
-	(its-defrule   "/"   "／"))
+	(its-defrule   "{"   "｛")  (its-defrule   "}"   "｝")
+	(its-defrule   ":"   "：")  (its-defrule   ";"   "；")
+	(its-defrule   "\""  "”")  (its-defrule   "'"   "’")
+	(its-defrule   "<"   "＜")  (its-defrule   ">"   "＞")
+	(its-defrule   "?"   "？")  (its-defrule   "/"   "／"))
     (progn
       (its-defrule   "1"   "1")  (its-defrule   "2"   "2")
       (its-defrule   "3"   "3")  (its-defrule   "4"   "4")
@@ -474,15 +476,13 @@
       (its-defrule   "&"   "&")  (its-defrule   "*"   "*")
       (its-defrule   "("   "(")  (its-defrule   ")"   ")")
       (its-defrule   "="   "=")  (its-defrule   "`"   "`")
-      (its-defrule   "\\"  "\\")  (its-defrule   "|"   "|")
+      (its-defrule   "\\"  "\\") (its-defrule   "|"   "|")
       (its-defrule   "_"   "_")  (its-defrule   "+"   "+")
-      (its-defrule   "~"   "~" nil t)
-      (its-defrule   "{"   "{")
-      (its-defrule   "}"   "}")  (its-defrule   ":"   ":")
-      (its-defrule   ";"   ";")  (its-defrule   "\""  "\"")
-      (its-defrule   "'"   "'")  (its-defrule   "<"   "<")
-      (its-defrule   ">"   ">")  (its-defrule   "?"   "?")
-      (its-defrule   "/"   "/")))
+      (its-defrule   "{"   "{")  (its-defrule   "}"   "}")
+      (its-defrule   ":"   ":")  (its-defrule   ";"   ";")
+      (its-defrule   "\""  "\"") (its-defrule   "'"   "'")
+      (its-defrule   "<"   "<")  (its-defrule   ">"   ">")
+      (its-defrule   "?"   "?")  (its-defrule   "/"   "/")))
   )
 
 (provide 'its/hira)