custom-tutcode-keys1.scm 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. (define tutcode-on-key '("<Control>\\" generic-on-key))
  2. (define tutcode-on-key? (make-key-predicate '("<Control>\\" generic-on-key?)))
  3. (define tutcode-off-key '("<Control>\\" generic-off-key))
  4. (define tutcode-off-key? (make-key-predicate '("<Control>\\" generic-off-key?)))
  5. (define tutcode-kana-toggle-key '("<IgnoreShift>'"))
  6. (define tutcode-kana-toggle-key? (make-key-predicate '("<IgnoreShift>'")))
  7. (define tutcode-katakana-sequence "")
  8. (define tutcode-hiragana-sequence "")
  9. (define tutcode-kigou-toggle-key '("<IgnoreShift><Control>_"))
  10. (define tutcode-kigou-toggle-key? (make-key-predicate '("<IgnoreShift><Control>_")))
  11. (define tutcode-kigou2-toggle-key '())
  12. (define tutcode-kigou2-toggle-key? (make-key-predicate '()))
  13. (define tutcode-mazegaki-start-sequence "alj")
  14. (define tutcode-bushu-start-sequence "ala")
  15. (define tutcode-interactive-bushu-start-sequence "")
  16. (define tutcode-latin-conv-start-sequence "al/")
  17. (define tutcode-kanji-code-input-start-sequence "")
  18. (define tutcode-history-start-sequence "")
  19. (define tutcode-auto-help-redisplay-sequence "")
  20. (define tutcode-auto-help-dump-sequence "")
  21. (define tutcode-katakana-commit-key '())
  22. (define tutcode-katakana-commit-key? (make-key-predicate '()))
  23. (define tutcode-stroke-help-toggle-key '("<Control>/"))
  24. (define tutcode-stroke-help-toggle-key? (make-key-predicate '("<Control>/")))
  25. (define tutcode-begin-completion-key '("<Control>."))
  26. (define tutcode-begin-completion-key? (make-key-predicate '("<Control>.")))
  27. (define tutcode-begin-conv-key '(generic-begin-conv-key))
  28. (define tutcode-begin-conv-key? (make-key-predicate '(generic-begin-conv-key?)))
  29. (define tutcode-commit-key '(generic-commit-key))
  30. (define tutcode-commit-key? (make-key-predicate '(generic-commit-key?)))
  31. (define tutcode-cancel-key '("<IgnoreCase><Control>u" generic-cancel-key))
  32. (define tutcode-cancel-key? (make-key-predicate '("<IgnoreCase><Control>u" generic-cancel-key?)))
  33. (define tutcode-next-candidate-key '(generic-next-candidate-key))
  34. (define tutcode-next-candidate-key? (make-key-predicate '(generic-next-candidate-key?)))
  35. (define tutcode-prev-candidate-key '("delete" generic-prev-candidate-key))
  36. (define tutcode-prev-candidate-key? (make-key-predicate '("delete" generic-prev-candidate-key?)))
  37. (define tutcode-undo-sequence "")
  38. (define tutcode-help-sequence "")
  39. (define tutcode-help-clipboard-sequence "")
  40. (define tutcode-paste-key '())
  41. (define tutcode-paste-key? (make-key-predicate '()))
  42. (define tutcode-clipboard-seq2kanji-start-sequence "")
  43. (define tutcode-selection-mazegaki-start-sequence "")
  44. (define tutcode-selection-mazegaki-inflection-start-sequence "")
  45. (define tutcode-selection-katakana-start-sequence "")
  46. (define tutcode-selection-kanji2seq-start-sequence "")
  47. (define tutcode-selection-seq2kanji-start-sequence "")