custom-elatin.scm 1.5 KB

123456789101112131415161718192021222324252627
  1. (define elatin-rules 'elatin-rules-latin-prefix)
  2. (define elatin-esc-turns-off? #f)
  3. (define elatin-nr-candidates-max 10)
  4. (define elatin-numeral-key-selects-candidate? #t)
  5. (define elatin-use-completion? #f)
  6. (define elatin-show-all-if-ambiguous? #f)
  7. (define elatin-on-key '("<Control>\\"))
  8. (define elatin-on-key? (make-key-predicate '("<Control>\\")))
  9. (define elatin-off-key '("<Control>\\"))
  10. (define elatin-off-key? (make-key-predicate '("<Control>\\")))
  11. (define elatin-backspace-key '(generic-backspace-key))
  12. (define elatin-backspace-key? (make-key-predicate '(generic-backspace-key?)))
  13. (define elatin-commit-key '(generic-commit-key))
  14. (define elatin-commit-key? (make-key-predicate '(generic-commit-key?)))
  15. (define elatin-cancel-key '(generic-cancel-key))
  16. (define elatin-cancel-key? (make-key-predicate '(generic-cancel-key?)))
  17. (define elatin-next-candidate-key '("down" "<IgnoreCase><Control>n"))
  18. (define elatin-next-candidate-key? (make-key-predicate '("down" "<IgnoreCase><Control>n")))
  19. (define elatin-prev-candidate-key '("up" "<IgnoreCase><Control>p"))
  20. (define elatin-prev-candidate-key? (make-key-predicate '("up" "<IgnoreCase><Control>p")))
  21. (define elatin-next-page-key '(generic-next-page-key))
  22. (define elatin-next-page-key? (make-key-predicate '(generic-next-page-key?)))
  23. (define elatin-prev-page-key '(generic-prev-page-key))
  24. (define elatin-prev-page-key? (make-key-predicate '(generic-prev-page-key?)))
  25. (define elatin-completion-key '("tab"))
  26. (define elatin-completion-key? (make-key-predicate '("tab")))