--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.emacs	Mon Apr 21 04:30:59 2014 +0900
@@ -0,0 +1,146 @@
+;;htmllize
+(load "~/.emacs.d/htmlize.el")
+
+;;load path
+(setq load-path (cons "~/.emacs.d" load-path))
+(setq load-path (cons (expand-file-name "~/.emacs.d/color-theme-6.6.0") load-path))
+(display-time-mode 1)
+
+;;カーソル位置表示
+(line-number-mode 1)
+(column-number-mode 1)
+(blink-cursor-mode 0)
+
+;;キーバインド
+(define-key global-map "\C-u" 'undo)
+(define-key global-map "\C-j" 'dabbrev-expand)
+(define-key global-map "\C-h" 'delete-backward-char)
+(define-key global-map "\C-c\C-i" 'indent-region)
+(define-key global-map "\C-ch" 'windmove-left)
+(define-key global-map "\C-cj" 'windmove-down)
+(define-key global-map "\C-ck" 'windmove-up)
+(define-key global-map "\C-cl" 'windmove-right)
+(define-key global-map "\C-c\C-c" 'comment-or-uncomment-region)
+(define-key global-map "\C-c\C-v" 'split-window-horizontally)
+
+;;括弧の対応
+(show-paren-mode 1)
+
+;;スクロール設定
+(setq scroll-step 1)
+
+;;関数名
+(which-function-mode 1)
+
+;; スケルトンでのペア補完をオン
+(setq skeleton-pair 1)
+
+;;; スケルトンでのペア補完定義
+;;(global-set-key "(" 'skeleton-pair-insert-maybe)
+;;(global-set-key "[" 'skeleton-pair-insert-maybe)
+;;(global-set-key "{" 'skeleton-pair-insert-maybe)
+;;(global-set-key "\"" 'skeleton-pair-insert-maybe)
+;;(global-set-key "'" 'skeleton-pair-insert-maybe)
+
+;;選択範囲に色をつける
+(setq transient-mark-mode t)
+
+;;行削除
+(setq kill-whole-line t)
+
+;;聞き方の変更
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;;インデント関係
+(global-set-key "\C-m" 'newline-and-indent)
+(setq-default indent-tabs-mode nil)
+(setq-default tab-width 4)
+(setq c-basic-offset 4)
+;; (setq default-tab-width 4)
+
+;;カラーテーマ
+(require 'color-theme)
+(color-theme-initialize)
+(color-theme-pok-wob)
+
+;;(load-library "php-mode")
+;;(reguire 'php-mode)
+
+;;全角
+(defface my-face-b-1 '((t (:background "medium aquamarine"))) nil)
+(defface my-face-b-1 '((t (:background "dark turquoise"))) nil)
+(defface my-face-b-2 '((t (:background "cyan"))) nil)
+(defface my-face-b-2 '((t (:background "SeaGreen"))) nil)
+(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
+(defvar my-face-b-1 'my-face-b-1)
+(defadvice font-lock-mode (before my-font-lock-mode ())
+  (font-lock-add-keywords
+   major-mode
+   '(
+     ("　" 0 my-face-b-1 append)
+     )))
+(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
+(ad-activate 'font-lock-mode)
+(add-hook 'find-file-hooks '(lambda ()
+							  (if font-lock-mode
+								  nil
+								(font-lock-mode t))))
+(put 'set-goal-column 'disabled nil)
+
+;;gosh
+(setq scheme-program-name "gosh -i")
+
+;; groovy
+(global-font-lock-mode 1)
+(autoload 'groovy-mode "groovy-mode" "Major mode for editing Groovy code." t)
+(add-to-list 'auto-mode-alist '("\.groovy$" . groovy-mode))
+(add-to-list 'interpreter-mode-alist '("groovy" . groovy-mode))
+(add-hook 'groovy-mode-hook
+          '(lambda ()
+             (require 'groovy-electric)
+             (groovy-electric-mode)))
+
+;;backup
+(setq make-backup-files nil)
+(setq auto-save-default nil)
+
+;; OpenCL
+(add-to-list 'auto-mode-alist '("\.cl$" . c++-mode))
+(custom-set-variables
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(gud-gdb-command-name "gdb --annotate=1")
+ '(large-file-warning-threshold nil)
+ '(tab-width 8))
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ )
+
+;; Cuda
+(add-to-list 'auto-mode-alist '("\.cu$" . c++-mode))
+(custom-set-variables
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(gud-gdb-command-name "gdb --annotate=1")
+ '(large-file-warning-threshold nil)
+ '(tab-width 8))
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ )
+
+;; Haskell
+(add-to-list 'load-path "~/.emacs.d/haskell-mode/")
+(require 'haskell-mode-autoloads)
+(add-to-list 'Info-default-directory-list "~/.emacs.d/haskell-mode/")
+(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
+(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)