;;;; -*- mode: emacs-lisp; coding: iso-2022-7bit -*-
;;;;
;;;; Copyright (C) 2001 The Meadow Team
(global-set-key "\C-h" 'delete-backward-char)
(add-to-list 'load-path "~/.emacs.d/lisp/")
;; haml-mode
(autoload 'haml-mode "haml-mode" "Mode for editing haml files" t)
(setq auto-mode-alist (append '(("\\.haml$" . haml-mode)) auto-mode-alist))
;; ruby-mode
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
(setq auto-mode-alist (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.cgi$" . 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")
'(w32-ime-initialize)
(global-set-key [M-kanji] 'ignore)
(global-set-key [kanji] 'ignore) ; See more at: http://yohshiy.blog.fc2.com/blog-entry-169.html#sthash.P4hJnxxH.dpuf
; ibuffer
(global-set-key (kbd "C-x C-b") 'ibuffer)
(cd "~/")
(setq default-directory "~/")
(setq command-line-default-directory "~/vagrant/dev/source/")
;; 初期フレームの設定
(setq default-frame-alist
(append (list '(foreground-color . "black")
'(background-color . "LemonChiffon")
'(background-color . "gray")
'(border-color . "black")
'(mouse-color . "white")
'(cursor-color . "black")
;; '(ime-font . (w32-logfont "ＭＳ ゴシック"
;; 0 16 400 0 nil nil nil
;; 128 1 3 49)) ; TrueType のみ
;; '(font . "bdf-fontset") ; BDF
;; '(font . "private-fontset"); TrueType
'(width . 90)
'(height . 47)
'(top . 20)
'(left . 20))
default-frame-alist))
