vine-default-wnn7egg.el 2.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; -*- coding: utf-8-unix -*-
  3. ;; FSF Emacs 23 用 Vine Linux wnn7egg 設定
  4. ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp>
  5. ;; $Id: vine-default-wnn7egg.el,v 1.1 2009/04/22 16:02:01 munepi Exp $
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ;; Wnn7Egg (Wnn7 フロントエンド) の設定
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10. (if (or (equal emacs-ime "wnn7egg")
  11. (equal emacs-ime "wnn7")
  12. (equal emacs-ime "Wnn7"))
  13. (progn
  14. ;; (setq load-path (append '("/usr/share/wnn7/elisp/emacs20") load-path))
  15. (global-set-key "\C-\\" 'toggle-input-method)
  16. ;; Shift-Space または 半角/全角 でも起動
  17. (global-set-key [?\S-\ ] 'toggle-input-method)
  18. (global-set-key [zenkaku-hankaku] 'toggle-input-method)
  19. ;; canna like toggle keybind
  20. ;;(global-set-key "\C-o" 'toggle-input-method)
  21. (load "wnn7egg-leim")
  22. (set-input-method "japanese-egg-wnn7")
  23. (set-language-info "Japanese" 'input-method "japanese-egg-wnn7")
  24. ;; "nn" で「ん」を入力
  25. (setq enable-double-n-syntax t)
  26. ;; 候補選択モード
  27. ;(egg-use-input-predict)
  28. (setq egg-predict-realtime nil)
  29. ;; インライン候補選択モード
  30. (setq egg-predict-mode "inline")
  31. ;; ウインドウ候補選択モード
  32. (setq egg-predict-mode "window")
  33. ;; ;; 候補リスト表示
  34. ;; (define-key wnn7-henkan-mode-map " " 'wnn7-henkan-select-kouho-dai)
  35. ;; ;; 1234567890%#%"'/\| を「半角」で入力
  36. ;; (let ((its:*defrule-verbose* nil))
  37. ;; (its-define-mode "roma-kana")
  38. ;; (dolist (symbol '("1" "2" "3" "4" "5"
  39. ;; "6" "7" "8" "9" "0"
  40. ;; "#" "%" "\"" "'" "/" "\\" "|"))
  41. ;; (its-defrule symbol symbol)))
  42. ;; ;; 「、」を使う時は、次行を「;」でコメントする
  43. ;; (its-defrule "," "," nil nil "roma-kana")
  44. ;; ;; 「。」を使う時は、次行を「;」でコメントする
  45. ;; (its-defrule "." "." nil nil "roma-kana")
  46. ;; ;; 「/」を使うときは、次行を「;」でコメントする
  47. ;; (its-defrule "/" "・" nil nil "roma-kana")
  48. ;; ;; デフォルトの句読点「、。」を「,.」に変更する
  49. ;; (setq use-touten-for-comma nil)
  50. ;; (setq use-kuten-for-period nil)
  51. ;; 部首・画数変換を可能にする wnn7egg には busyu.el はない
  52. (load "busyu")
  53. )
  54. )
  55. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  56. (provide 'vine-default-wnn7egg)
  57. ;; Local Variables:
  58. ;; mode: emacs-lisp
  59. ;; End: