custom-global-keys2.scm 1.4 KB

12345678910111213141516171819
  1. (define generic-beginning-of-preedit-key '("home" "<IgnoreCase><Control>a"))
  2. (define generic-beginning-of-preedit-key? (make-key-predicate '("home" "<IgnoreCase><Control>a")))
  3. (define generic-end-of-preedit-key '("end" "<IgnoreCase><Control>e"))
  4. (define generic-end-of-preedit-key? (make-key-predicate '("end" "<IgnoreCase><Control>e")))
  5. (define generic-kill-key '("<IgnoreCase><Control>k"))
  6. (define generic-kill-key? (make-key-predicate '("<IgnoreCase><Control>k")))
  7. (define generic-kill-backward-key '("<IgnoreCase><Control>u"))
  8. (define generic-kill-backward-key? (make-key-predicate '("<IgnoreCase><Control>u")))
  9. (define generic-backspace-key '("backspace" "<IgnoreCase><Control>h"))
  10. (define generic-backspace-key? (make-key-predicate '("backspace" "<IgnoreCase><Control>h")))
  11. (define generic-delete-key '("delete" "<IgnoreCase><Control>d"))
  12. (define generic-delete-key? (make-key-predicate '("delete" "<IgnoreCase><Control>d")))
  13. (define generic-go-left-key '("left" "<IgnoreCase><Control>b"))
  14. (define generic-go-left-key? (make-key-predicate '("left" "<IgnoreCase><Control>b")))
  15. (define generic-go-right-key '("right" "<IgnoreCase><Control>f"))
  16. (define generic-go-right-key? (make-key-predicate '("right" "<IgnoreCase><Control>f")))
  17. (define generic-return-key '("return" "<IgnoreCase><Control>m"))
  18. (define generic-return-key? (make-key-predicate '("return" "<IgnoreCase><Control>m")))