;;;; -----------------------------------------------
;;;; apperance.el
;;;;   window-systemで動作時の外観を変更する
;;;; -----------------------------------------------

;;; 1. 外観の設定
;;   (ref. http://homepage1.nifty.com/blankspace/emacs/color.html)
(if window-system   ; window-system の場合のみ以下を読む (H.Morii added)
    (setq default-frame-alist
      (append
       '((foreground-color . "black")  ; 前景色
         (background-color . "#d0d0ee") ; 背景色
         (cursor-color     . "midnightblue")  ; カーソル色
         (width            . 110)     ; フレーム幅(文字数)
         (height           . 50)      ; フレーム高(文字数)
;         (top              . 10)      ; フレームの Y 位置(ピクセル数)
;         (left             . 10)      ; フレームの X 位置(ピクセル数)
        )
     default-frame-alist))
)



;;; 2. かな入力時にカーソルの色を変える
(add-hook 'input-method-activate-hook 
          (lambda ()
            (set-cursor-color "red")))          ; かな入力時のカーソル色
(add-hook 'input-method-inactivate-hook 
          (lambda ()
            (set-cursor-color "midnightblue"))) ; かな入力から戻る時の色


;;; 3. 細かい設定
;; 3-1. window-systemでない場合にはメニューバーを隠す
(menu-bar-mode (if window-system 1 -1))