;;;; ここは変更すると動作しなくなる恐れがあります. (autoload 'prime-mode "prime" "PRIME mode" t) (global-set-key "\C-j" 'prime-mode) ;;;; ここ以降にカスタマイズ設定を書いて下さい. ;;;; ============================================================ ;;;; 基本的な設定 ;;;; ============================================================ ;; PRIME の入力スタイル ;; 'default, 'capital-only, 'komatsu から選択可能. ;; 'default: デフォルトの入力スタイル ;; 'capital-only: 大文字のみが日本語入力開始キー ;; 'komatsu: 小松 (PRIME の作者) の入力スタイル") ;; nil: なにもしない ;(setq prime-style nil) ;;;; ============================================================ ;;;; キーマップの設定 ;;;; ============================================================ ;(add-hook ; 'prime-keymap-init-hook ; '(lambda () ; (progn ; ;; 以下は例なので, キーバインドに意味はない ; (define-key prime-fund-mode-map "\M-n" 'prime-enum-mode) ; (define-key prime-input-mode-map "\M-n" 'prime-enum-mode) ; (define-key prime-conv-mode-map "\M-n" 'prime-enum-mode) ; (define-key prime-cand-mode-map "\M-n" 'prime-enum-mode) ; (define-key prime-narrow-mode-map "\M-n" 'prime-enum-mode) ; ))) ;; 変換をしないで直接入力をするキー ;(setq prime-direct-key-alist ; '((?. "。") ; (?, "、") ; (?] "」") ; (?[ "「"))) ;; 大文字入力を単語の区切りとするかどうか. ;(setq prime-fix-by-capital-p t) ;;;; ============================================================ ;;;; 候補選択 ;;;; ============================================================ ;; nil 以外の場合, 確定した後次の単語を予測する ;(setq prime-predict-after-fix nil) ;; nil 以外の場合, 常に変換候補を 1 行で表示 ;(setq prime-disp-cand-list-oneline nil) ;; prime-enum-mode を ON の状態から始める ;(setq prime-enum-mode t) ;; prime-enum-mode 時に選択用として使用される文字のリスト ;(setq prime-enum-char-list '(?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?0)) ;;;; ============================================================ ;;;; カーソルの色 ;;;; ============================================================ ;; 値は, リストもしくは文字列を取る. リストの第二項目は TTY 時の値. ;; PRIME モード時のカーソルの色 ;(setq prime-cursor-color '("Pink" 6)) ;; PRIME 候補の AND 検索中のカーソルの色 ;(setq prime-narrow-cursor-color '("LightSkyBlue" 4)) ;;;; ============================================================ ;;;; その他 ;;;; ============================================================ ;; PRIME で入力する言語とインジケータのリスト ;(setq prime-language-list '(japanese "[PB|あ]" english "[PB|Aa]")) ;; デフォルトで入力される言語 ;(setq prime-language-default 'japanese) ;; nil の場合, 頻度に応じてカタカナが第 0 候補になる ;(setq prime-language-always-hiragana t) ;;;; ============================================================ ;;;; 各変換エンジンのカスタマイズ ;;;; ============================================================ ;; 優先順位および初期使用フラグ ;(setq prime-engine-list ; '((prime-engine-prime . t))) ;; PRIME コマンドのパス ;(setq prime-engine-prime-command "prime") ;; この時間で動的単語補完はタイムアウトします (マイクロ秒) ;(setq prime-engine-dabbrev-timeout-time 20000) ;;;; 小松カスタマイズ ;(if (featurep 'xemacs) ; (global-set-key '(control ?\;) 'prime-mode) ; (global-set-key [?\^\;] 'prime-mode)) ;(setq prime-direct-key-alist ; '((?. ".") ; (?, ", ") ; (?! "!") ; (?? "?") ; (?( "(") ; (?) ")") ; (?[ "「") ; (?] "」") ; )) (setq prime-enum-mode t) ;; 句読点を自動的に変更する. ;(setq prime-style-kutouten-autochange-p nil) ;;;; 動作記録 ;; ログを取るかどうか ;(setq prime-log-mode nil) ;; ログファイルの場所 ;(setq prime-log-filename "/tmp/prime.log") ;;;; $Id: prime-conf.el,v 1.4 2003/05/08 19:50:57 komatsu Exp $