dot.uim

.uim

(require "japanese.scm")
(define skk-personal-dic-filename
  (string-append (getenv "HOME") "/SparkleShare/share/ddskk/jisyo"))
(define skk-save-personal-dictionary
  (lambda ()
    (skk-lib-save-personal-dictionary skk-personal-dic-filename)))
(define ja-rk-rule-basic
  (append '(
            (((",") . ()) ("," "," ","))
            (((".") . ()) ("." "." "."))
	    ((("(") . ()) ("(" "(" "("))
	    (((")") . ()) (")" ")" ")"))
	    ((("{") . ()) ("{" "{" "{"))
	    ((("}") . ()) ("}" "}" "}"))
	    ((("|") . ()) ("|" "|" "|"))
	    ((("\\\\") . ()) ("\\\\" "\\\\" "\\\\"))
	    ((("@") . ()) ("@" "@" "@"))
            ((("*") . ()) ("*" "*" "*"))
            ((("$") . ()) ("$" "$" "$"))
            ((("^") . ()) ("^" "^" "^"))
            ((("#") . ()) ("#" "#" "#"))
            ((("$") . ()) ("$" "$" "$"))
            ((("%") . ()) ("%" "%" "%"))
            ((("+") . ()) ("+" "+" "+"))
            ((("<") . ()) ("<" "<" "<"))
            (((">") . ()) (">" ">" ">"))
            )
          ja-rk-rule-basic))
(ja-rk-rule-update)