custom-global-keys1.scm 1.2 KB

12345678910111213141516171819
  1. (define generic-on-key '("zenkaku-hankaku" "<Shift> "))
  2. (define generic-on-key? (make-key-predicate '("zenkaku-hankaku" "<Shift> ")))
  3. (define generic-off-key '("zenkaku-hankaku" "<Shift> "))
  4. (define generic-off-key? (make-key-predicate '("zenkaku-hankaku" "<Shift> ")))
  5. (define generic-begin-conv-key '(" "))
  6. (define generic-begin-conv-key? (make-key-predicate '(" ")))
  7. (define generic-commit-key '("<IgnoreCase><Control>j" generic-return-key))
  8. (define generic-commit-key? (make-key-predicate '("<IgnoreCase><Control>j" generic-return-key?)))
  9. (define generic-cancel-key '("escape" "<Control>[" "<IgnoreCase><Control>g"))
  10. (define generic-cancel-key? (make-key-predicate '("escape" "<Control>[" "<IgnoreCase><Control>g")))
  11. (define generic-next-candidate-key '(" " "down" "<IgnoreCase><Control>n"))
  12. (define generic-next-candidate-key? (make-key-predicate '(" " "down" "<IgnoreCase><Control>n")))
  13. (define generic-prev-candidate-key '("up" "<IgnoreCase><Control>p"))
  14. (define generic-prev-candidate-key? (make-key-predicate '("up" "<IgnoreCase><Control>p")))
  15. (define generic-next-page-key '("next"))
  16. (define generic-next-page-key? (make-key-predicate '("next")))
  17. (define generic-prev-page-key '("prior"))
  18. (define generic-prev-page-key? (make-key-predicate '("prior")))