.emacs

;;; デフォ
(set-language-environment "Japanese")
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(set-locale-environment "utf-8")
(setenv "LANG" "ja_JP.UTF-8")

;;; みみっちい設定
(tool-bar-mode -1)
(menu-bar-mode -1)
(toggle-scroll-bar nil)
(setq transient-mark-mode t)
(setq w32-hide-mouse-on-key t)
(setq make-backup-files nil)
(setq w32-hide-mouse-timeout 5000)
(global-font-lock-mode t)
(setq inhibit-startup-message t)
(fset 'yes-or-no-p 'y-or-n-p)
;;; 対応する括弧に色付け
(show-paren-mode t)
(setq show-paren-style 'mixed)
(set-face-background 'show-paren-match-face "red")
(set-face-foreground 'show-paren-match-face "SkyBlue")
;;; C-hでbackspace、C-oで補間
(define-key global-map "\C-H" 'backward-delete-char)
(define-key global-map "\C-o" 'dabbrev-expand)
(mac-add-ignore-shortcut '(ctl ? ))

;;; ウィンドウサイズ関連
(setq default-frame-alist
      (append (list '(foreground-color . "azure3")
	'(background-color . "black")
	'(border-color . "black")
	'(mouse-color . "white")
	'(cursor-color . "white")
	'(width . 155)
	'(height . 59)
;	'(width . 90)
;	'(height . 50)
	'(top . 0)
	'(left . 0)
	'(alpha . (70 100 100 100))
	)
	default-frame-alist))

;;; carbon emacsでフルスクリーン
(when (eq window-system 'mac)
(add-hook 'window-setup-hook
(lambda ()
(set-frame-parameter nil 'fullscreen 'fullboth))))

;;;突っ込んだelisp関連
;;; ruby-mode
(add-to-list 'load-path "~/emacs-lisp/ruby")
(add-to-list 'load-path "~/emacs-lisp")
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
(setq auto-mode-alist (cons '("\\.rb$" . ruby-mode) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode)) interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys)))
;;; ruby-electric.el --- electric editing commands for ruby files
(require 'ruby-electric)
(add-hook 'ruby-mode-hook '(lambda () (ruby-electric-mode t)))

;;; C-c C-c で選択範囲をコメントアウト
(define-key ruby-mode-map "\C-c\C-c" 'comment-region)
;;; C-c C-u で選択範囲のコメントを解除
(define-key ruby-mode-map "\C-c\C-u" 'uncomment-region)

;;; elscreen
(load "elscreen" "ElScreen" t)

;;; yatex
(setq auto-mode-alist(cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq load-path (cons "~/site-lisp/yatex" load-path))
;(setq tex-command "/usr/local/bin/platex")
;;; latexmkのために
;;; このため，全てのtexファイルの先頭行に%#!latexmkと書かないとエラーが起きる
(setq tex-command "latexmk -pdfdvi")
(setq dviprint-command-format "/usr/local/bin/dvipdfmx %s")
;;; C-c b Eでeqnarrayを呼び出す
(setq yatex-mode-load-hook
      '(lambda()
  (YaTeX-define-begend-key "bE" "eqnarray")
  ))

;;; ess
(require 'ess-site)
(setq ess-ask-for-ess-directory nil)
(setq ess-pre-run-hook
      '((lambda ()
	  (setq default-process-coding-system '(utf-8 . utf-8))
	  )))
(defun ess:format-window-1 ()
	(split-window-horizontally)
	(other-window 1)
	(split-window)
	(other-window 1))
(add-hook 'ess-pre-run-hook 'ess:format-window-1)

(when (eq system-type 'darwin)
  (setq my-font "-*-*-medium-r-normal--12-*-*-*-*-*-fontset-osaka")
; (setq fixed-width-use-QuickDraw-for-ascii t)
  (setq mac-allow-anti-aliasing t)
  (if (= emacs-major-version 22)
      (require 'carbon-font))
  (set-default-font my-font)
  (add-to-list 'default-frame-alist `(font . ,my-font))
  (when (= emacs-major-version 23)
    (set-fontset-font
     (frame-parameter nil 'font)
     'japanese-jisx0208
     '("osaka" . "iso10646-1"))
    (setq face-font-rescale-alist
	  '(("^-apple-hiragino.*" . 1.2)
	    (".*osaka-bold.*" . 1.2)
  	    (".*osaka-medium.*" . 1.2)
  	    (".*courier-bold-.*-mac-roman" . 1.0)
  	    (".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
  	    (".*monaco-bold-.*-mac-roman" . 0.9)
  	    ("-cdac$" . 1.3)))))


;;; font
(add-to-list 'default-frame-alist
             '(font . "-*-*-medium-r-normal--14-*-*-*-*-*-fontset-osaka"))

;;; haml-mode
(require 'haml-mode)
(add-to-list 'auto-mode-alist '("\\.haml$" . haml-mode))
;;; sass-mode
(require 'sass-mode)
(add-to-list 'auto-mode-alist '("\\.sass$" . sass-mode))

;;; yaml-mode
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.yaml$" . yaml-mode))

;;; markdown-mode
(autoload 'markdown-mode "markdown-mode.el"
   "Major mode for editing Markdown files" t)
(setq auto-mode-alist
   (cons '("\\.md" . markdown-mode) auto-mode-alist))


;;; linem
(require 'linum)
(global-linum-mode)
(setq linum-format "%3d")