Emacs settings at office

init.el

;; GNU Emacs 23.3.1 (x86_64-apple-darwin11.1.0, NS apple-appkit-1138.00) of 2011-10-03
;; load-path
(setq load-path
      (append '("/usr/local/Cellar/emacs/23.3a/share/emacs/site-lisp/apel"
		"/usr/local/Cellar/emacs/23.3a/share/emacs/site-lisp/skk"
		"/Users/takai/Src/elisp/rinari"
		"/Users/takai/Src/elisp/rhtml"
		"/Users/takai/Src/elisp/haml-mode"
		"/Users/takai/Src/elisp/sass-mode"
		"/Users/takai/Src/elisp/coffee-mode"
		"/Users/takai/Src/elisp/yaml-mode"
		)
              load-path))

;; Japanese Settings
(set-language-environment 'Japanese)
(prefer-coding-system 'utf-8)

;; Font
(create-fontset-from-ascii-font
 "Menlo-14:weight=normal:slant=normal" nil "menlokakugo")
(set-fontset-font
 "fontset-menlokakugo"
 'unicode (font-spec :family "Hiragino Kaku Gothic ProN" ) nil
 'append)
(add-to-list 'default-frame-alist '(font . "fontset-menlokakugo"))
(setq face-font-rescale-alist '((".*Hiragino.*" . 1.2) (".*Menlo.*" . 1.0)))

(setq default-frame-alist
      (append (list
	       '(width . 80)
	       '(height . 50)
	       '(top . 100)
	       '(left . 200)
	       )
	      default-frame-alist))

;; Mac
(setq ns-command-modifier (quote meta))
(setq ns-alternate-modifier (quote super))

;; Key
(load "term/bobcat")
(when (fboundp 'terminal-init-bobcat)
  (terminal-init-bobcat))

;; Misc
(display-time)
(setq make-backup-files nil)
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; ChangeLog
(setq add-log-full-name "Naoto Takai")
(setq add-log-mailing-address "[email protected]")

;; SKK
(require 'skk-setup)

;; Rinari
;(require 'ido)
;(ido-mode t)
(require 'rinari)
(require 'rhtml-mode)

(define-key rinari-minor-mode-map [(meta shift down)] 'rinari-find-rspec)
(define-key rinari-minor-mode-map [(meta shift left)] 'rinari-find-controller)
(define-key rinari-minor-mode-map [(meta shift up)] 'rinari-find-model)
(define-key rinari-minor-mode-map [(meta shift right)] 'rinari-find-view)

(require 'haml-mode)
(require 'sass-mode)
(require 'coffee-mode)
(defun coffee-custom ()
  "coffee-mode-hook"
  (set (make-local-variable 'tab-width) 2))
(add-hook 'coffee-mode-hook
	  '(lambda() (coffee-custom)))

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