dotfiles/.uim.d/customs/custom-ajax-ime-keys1.scm

(define ajax-ime-next-segment-key '(generic-go-right-key))
(define ajax-ime-next-segment-key? (make-key-predicate '(generic-go-right-key?)))
(define ajax-ime-prev-segment-key '(generic-go-left-key))
(define ajax-ime-prev-segment-key? (make-key-predicate '(generic-go-left-key?)))
(define ajax-ime-extend-segment-key '("<IgnoreCase><Control>o" "<Shift>right"))
(define ajax-ime-extend-segment-key? (make-key-predicate '("<IgnoreCase><Control>o" "<Shift>right")))
(define ajax-ime-shrink-segment-key '("<IgnoreCase><Control>i" "<Shift>left"))
(define ajax-ime-shrink-segment-key? (make-key-predicate '("<IgnoreCase><Control>i" "<Shift>left")))
(define ajax-ime-transpose-as-hiragana-key '("F6" "Muhenkan"))
(define ajax-ime-transpose-as-hiragana-key? (make-key-predicate '("F6" "Muhenkan")))
(define ajax-ime-transpose-as-katakana-key '("F7" "Muhenkan"))
(define ajax-ime-transpose-as-katakana-key? (make-key-predicate '("F7" "Muhenkan")))
(define ajax-ime-transpose-as-halfkana-key '("F8" "Muhenkan"))
(define ajax-ime-transpose-as-halfkana-key? (make-key-predicate '("F8" "Muhenkan")))
(define ajax-ime-transpose-as-halfwidth-alnum-key '("F10"))
(define ajax-ime-transpose-as-halfwidth-alnum-key? (make-key-predicate '("F10")))
(define ajax-ime-transpose-as-fullwidth-alnum-key '("F9"))
(define ajax-ime-transpose-as-fullwidth-alnum-key? (make-key-predicate '("F9")))
(define ajax-ime-commit-as-opposite-kana-key '("<IgnoreCase><Shift>q"))
(define ajax-ime-commit-as-opposite-kana-key? (make-key-predicate '("<IgnoreCase><Shift>q")))