;; 句読点を切替える為の関数 [2023-09-13]
(defun toggle-kuten ()
  "句読点を切替える"
  (interactive)
  (cond ((string-match kuten-mode "maru")
	 (eval-after-load "its"
	   '(define-its-state-machine-append its-hira-map
	      (its-defrule ","  "，"      nil t)
	      (its-defrule "."  "．"    nil t)
	      ))
	 (setq kuten-mode "ten"))
	((string-match kuten-mode "ten")
	 (eval-after-load "its"
	   '(define-its-state-machine-append its-hira-map
	      (its-defrule ","  "、"      nil t)
	      (its-defrule "."  "。"    nil t)
	      ))
	 (setq kuten-mode "maru"))))

(setq kuten-mode "maru") ;; ten
(toggle-kuten)