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

(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 "canna")
(setq jaime "mozc")
(cond
 ((string= jaime "canna")
  (eval-and-compile
    (cond
     ((< emacs-major-version 23)  ; emacs-22
      (canna)
      (setq canna-server "localhost")
      )
     ((= emacs-major-version 23)  ; emacs-23
      (canna)
      (setq canna-server "localhost")
      )
     ))
  )
 ((string= jaime "mozc")
  (cond (window-system
         (require 'ibus)
         (add-hook 'after-init-hook 'ibus-mode-on)
         (setq ibus-prediction-window-position 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)
        ))
))