custom-baidu-olime-jp-keys3.scm 1.3 KB

12345678910111213141516171819
  1. (define baidu-olime-jp-beginning-of-preedit-key '(generic-beginning-of-preedit-key))
  2. (define baidu-olime-jp-beginning-of-preedit-key? (make-key-predicate '(generic-beginning-of-preedit-key?)))
  3. (define baidu-olime-jp-end-of-preedit-key '(generic-end-of-preedit-key))
  4. (define baidu-olime-jp-end-of-preedit-key? (make-key-predicate '(generic-end-of-preedit-key?)))
  5. (define baidu-olime-jp-kill-key '(generic-kill-key))
  6. (define baidu-olime-jp-kill-key? (make-key-predicate '(generic-kill-key?)))
  7. (define baidu-olime-jp-kill-backward-key '(generic-kill-backward-key))
  8. (define baidu-olime-jp-kill-backward-key? (make-key-predicate '(generic-kill-backward-key?)))
  9. (define baidu-olime-jp-backspace-key '(generic-backspace-key))
  10. (define baidu-olime-jp-backspace-key? (make-key-predicate '(generic-backspace-key?)))
  11. (define baidu-olime-jp-delete-key '(generic-delete-key))
  12. (define baidu-olime-jp-delete-key? (make-key-predicate '(generic-delete-key?)))
  13. (define baidu-olime-jp-go-left-key '(generic-go-left-key))
  14. (define baidu-olime-jp-go-left-key? (make-key-predicate '(generic-go-left-key?)))
  15. (define baidu-olime-jp-go-right-key '(generic-go-right-key))
  16. (define baidu-olime-jp-go-right-key? (make-key-predicate '(generic-go-right-key?)))
  17. (define baidu-olime-jp-vi-escape-key '("escape" "<Control>["))
  18. (define baidu-olime-jp-vi-escape-key? (make-key-predicate '("escape" "<Control>[")))