cp /usr/share/doc/emacs-env-ja/dot.emacs.example ~/.emacs

;===================================
; Language
;===================================
(require 'un-define)
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(setq file-name-coding-system 'utf-8)
;;
;===================================
; Anthy
;    CTRL-\で入力モード切替え
;===================================
(load-library "anthy")
(setq default-input-method "japanese-anthy")
;;
;===================================
; Wheel mouse
;===================================
(global-set-key [mouse-4] 'scroll-down)
(global-set-key [mouse-5] 'scroll-up)
(progn
 (defun scroll-up-half ()
     "Scroll up half a page."
     (interactive)
     (scroll-up (/ (window-height) 2))
 )
 (defun scroll-down-half ()
     "Scroll down half a page."
     (interactive)
     (scroll-down (/ (window-height) 2))
 )
 (global-set-key [(mouse-5)] 'scroll-up-half)
 (global-set-key [(mouse-4)] 'scroll-down-half)
)
;;
;====================================
; Misc
;====================================
(global-font-lock-mode t)  ;;文字の色つけ
(setq font-lock-support-mode 'jit-lock-mode)
;; 色づけは最大限に
(setq font-lock-maximum-decoration t)

(add-hook 'font-lock-mode-hook '(lambda ()
(set-face-foreground 'font-lock-comment-face "magenta")
))

;(display-time)             ;;時計を表示
(setq line-number-mode t)  ;;カーソルのある行番号を表示
(auto-compression-mode t)  ;;日本語infoの文字化け防止
(setq frame-title-format   ;;フレームのタイトル指定
      (concat "%b - emacs@" system-name))
;;
;;(background-color . "blur") ;; 背景色
;====================================
; Initial フレームサイズ,位置,色,フォントなど
;====================================
; 自分の好みにあわせて変更してください
(setq initial-frame-alist
      (append (list
               '(foreground-color . "white")   ;; 文字色
               '(background-color . "black") ;; 背景色
               '(border-color . "black")
               '(mouse-color . "white")
               '(cursor-color . "white")
               '(width . 75)                   ;; フレームの幅
               '(height . 62)                  ;; フレームの高さ
               '(top . 0)                      ;; Y 表示位置
               '(left . 0)                   ;; X 表示位置
               )
              initial-frame-alist))
(setq default-frame-alist initial-frame-alist)

;;フォントの設定
(create-fontset-from-fontset-spec
 "-shinonome-gothic-medium-r-normal--14-*-*-*-*-*-fontset-14")

;(create-fontset-from-fontset-spec
;  "-misc-ipagothic-medium-r-normal--14-*-*-*-*-*-fontset-ipa")

;(set-default-font "fontset-ipa")

(set-default-font "fontset-14")

;; 括弧に色をつける
(show-paren-mode t)
(setq show-paren-style 'parenthesis)

;;Ctrl-hでバックスペース
(global-set-key "\C-h" 'delete-backward-char)

;; スタート時のメッセージ表示オフ
(setq inhibit-startup-message t)
;(setq initial-scratch-message nil)

;; ツールバーを表示しない
(tool-bar-mode 0) 


(global-set-key "\C-z" 'undo)

;;; 行の先頭でC-kを一回押すだけで行全体を消去する
(setq kill-whole-line t) 

;;(global-set-key "\C-c;" 'comment-region)      ; コメントアウト
;;(global-set-key "\C-c:" 'uncomment-region)    ; コメント解除