;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 日本語とフォントの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(cond (window-system
       (setq fixed-width-use-QuickDraw-for-ascii t)

       (set-face-attribute 'default nil
			   :family "さざなみゴシック"
			   :height 100)

       (modify-all-frames-parameters (list
	      (set-fontset-font (frame-parameter nil 'font)
				'japanese-jisx0208
				(font-spec :family "ＭＳ ゴシック" :size 14))
	      (set-fontset-font (frame-parameter nil 'font)
				'katakana-jisx0201
				(font-spec :family "ＭＳ ゴシック" :size 14))
	      ))

; 整数で指定するとピクセル数で、
; 少数で指定すると行の高さに対して相対値で設定されます。
       (setq-default line-spacing -0.5)
       
       (setq default-frame-alist
	     (append (list
		      '(width  .  40)
		      '(height .  36)
		      '(top    . +300)
		      '(left   . +330)
		      ))
	     default-frame-alist)
))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 日本語入力の方法
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(setq jaime "mozc")
(setq jaime "scim-bridge")
(cond
 ((string= jaime "mozc")
  (cond (window-system
	 (require 'ibus)
	 (add-hook 'after-init-hook 'ibus-mode-on)
	 (setq ibus-prediction-window-position t)
	 (ibus-define-preedit-key 'C-henkan t)

;; C-SPC は Set Mark に使う
	 (ibus-define-common-key ?\C-\s nil)

;; C-/ は Undo に使う
	 (ibus-define-common-key ?\C-/ nil)

;; C-:;lkj で半角英数モードをトグルする
	 (ibus-define-common-key ?\C-: t)
	 (ibus-define-common-key ?\C-\; t)
	 (ibus-define-common-key ?\C-l t)
	 (ibus-define-common-key ?\C-k t)
	 (ibus-define-common-key ?\C-j t)
	 
;; IBusの状態によってカーソル色を変化させる
	 (setq ibus-cursor-color '("red" "blue" "limegreen"))

	 (setq ibus-use-kana-onbiki-key t)
	 (setq ibus-kana-onbiki-x-keysym "bar"
	       ibus-kana-onbiki-key-symbol nil)
	 ))
 )
 ((string= jaime "scim-bridge")
  (cond (window-system
;	 (require 'scim-bridge)
	 (require 'scim-bridge-ja)
	 (add-hook 'after-init-hook 'scim-mode-on)

; C-SPC は Set Mark に使う
	 (scim-define-common-key ?\C-\s nil)
; C-/ は Undo に使う
	 (scim-define-common-key ?\C-/ nil)

; SCIMの状態によってカーソル色を変化させる
	 (setq scim-cursor-color '("red" "blue" "limegreen"))
; C-j で半角英数モードをトグルする
	 (scim-define-common-key ?\C-j t)

; C-n で Canna のかな入力のキーをトグルする
	 (scim-define-common-key ?\C-n t)

; SCIM がオフのままローマ字入力してしまった時に、プリエディットに入れ直す
	 (global-set-key [C-henkan] 'scim-transfer-romaji-into-preedit)
	 ))
 )
)