07/11/22 07:01:04 ZhLITlti
>>930
.uim で key-press-handler を書き替えたらそれっぽくなった。
一応報告しとく。
(define key-press-handler
(lambda (id key state)
(let* ((c (find-context id))
(im (and c (context-im c)))
(cur-im-name (im-name im)))
(cond
((and enable-im-toggle?
(toggle-im-key? key state)
(or (and (= cur-im-name 'tutcode) (tutcode-context-on? c))
(= cur-im-name 'ja-wide)))
(toggle-im id c))
((and enable-im-switch
(switch-im-key? key state))
(switch-im id (im-name im)))
((modifier-key? key state)
(im-commit-raw c))
((and (tutcode-vi-escape-key? key state) tutcode-use-with-vi?
(= cur-im-name 'ja-wide))
(toggle-im id c)
(set! c (find-context id))
(tutcode-context-set-state! c 'tutcode-state-off)
(im-commit-raw c))
((and (tutcode-on-key? key state) tutcode-use-with-vi?
(= cur-im-name 'ja-wide))
(toggle-im id c))
(else
(invoke-handler im-key-press-handler id key state))))))