[from now] 2013/03/23 13:46:00

diff --git a/conf/init.d/20-windows.el b/conf/init.d/20-windows.el
deleted file mode 100644
index dab341e..0000000
--- a/conf/init.d/20-windows.el
+++ /dev/null
@@ -1,27 +0,0 @@
-;; フォントの設定を行う。
-;; ここでは、とりあえずwindow7以降で利用することを想定して、
-;; メイリオを利用する。
-;; メイリオ系のフォントの中でも、特にCUI的な利用に特化して作成された
-;; MeiryoKe_Consoleを利用する。
-
-(when (and (string-equal window-system "w32"))
-  (let (window-fontname)
-    (setq window-fontname
-          (create-fontset-from-ascii-font
-           "-outline-MeiryoKe_Console-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
-           nil "meiryo"))
-
-    (set-fontset-font "fontset-meiryo"
-                      'japanese-jisx0208
-                      '("MeiryoKe_Console" . "unicode-bmp"))
-    (set-fontset-font "fontset-meiryo"
-                      'katakana-jisx0201
-                      '("MeiryoKe_Console" . "unicode-bmp"))
-
-    (set-frame-font window-fontname))
-
-  ;; windowsの場合、cygwinが使えるなら使う。
-  ;; (auto-install-from-emacswiki "cygwin-mount.el")
-  (req cygwin-mount
-       (cygwin-mount-activate))
-  )
diff --git a/conf/init.d/21-linux.el b/conf/init.d/21-linux.el
deleted file mode 100644
index 115afa3..0000000
--- a/conf/init.d/21-linux.el
+++ /dev/null
@@ -1,101 +0,0 @@
-;; -*- coding: utf-8 -*-
-;;; window-systemがxの場合に実行される初期化elisp
-;; x11を利用している場合、クリップボードの連携を有効にする。
-(setq x-select-enable-clipboard t)
-
-(when (string-equal window-system "x")
-  (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mew")
-
-  ;; emacs23以降のフォント設定を行う。
-  (defvar emacs23-font-name "ricty")
-  (setq emacs23-font-name "ricty")
-  (let ((paw16a "-paw16a-fixed-medium-r-normal--16-*-*-*-c-*-*")
-        (paw16k "-paw16k-fixed-medium-r-normal--16-*-*-*-c-*-*")
-        ipa pawfont-name)
-    (cond
-     ((eq window-system 'ns)
-      (let* ((size 1)
-             (asciifont "Menlo")
-             (jpfont "Hiragino Maru Gothic ProN")
-             (h (* size 10))
-             (fontspec)
-             (jp-fontspec))
-        (set-face-attribute 'default nil :family asciifont :height h)
-        (setq fontspec (font-spec :family asciifont))
-        (setq jp-fontspec (font-spec :family jpfont))
-        (set-fontset-font nil 'japanese-jisx0208 jp-fontspec)
-        (set-fontset-font nil 'japanese-jisx0212 jp-fontspec)
-        (set-fontset-font nil 'japanese-jisx0213-1 jp-fontspec)
-        (set-fontset-font nil 'japanese-jisx0213-2 jp-fontspec)
-        (set-fontset-font nil '(#x0080 . #x024F) fontspec)
-        (set-fontset-font nil '(#x0370 . #x03FF) fontspec)))
-     ((string= emacs23-font-name "ricty")
-      (let* ((fontset-name "myfonts")
-             (size 12)
-             (h (round (* size 10)))
-             (asciifont "Ricty")
-             (jpfont "Ricty")
-             (font (format "%s:size=%d" asciifont size))
-             (fontspec (font-spec :family asciifont :height h :spacing 'm))
-             (jp-fontspec (font-spec :family jpfont :height h :spacing 'm))
-             (fsn (create-fontset-from-ascii-font font))
-             )
-        (set-face-attribute 'default nil :family "Ricty" :height h)
-        (set-fontset-font fsn 'unicode jp-fontspec)
-        ;; (set-fontset-font fsn 'japanese-jisx0213.2004-1 jp-fontspec nil 'append)
-        ;; (set-fontset-font fsn 'japanese-jisx0213-2 jp-fontspec nil 'append)
-        ;; (set-fontset-font fsn 'japanese-jisx0208 jp-fontspec nil 'append)
-        ;; (set-fontset-font fsn 'katakana-jisx0201 jp-fontspec nil 'append)
-        (add-to-list 'default-frame-alist `(font . ,fsn))
-        )
-      )
-     (t
-      (setq pawfont-name (create-fontset-from-ascii-font
-                          paw16a))
-
-      (set-fontset-font pawfont-name
-                        'latin-jisx0201
-                        nil)
-      (set-fontset-font pawfont-name
-                        'latin-iso8859-1
-                        nil)
-
-      (set-fontset-font pawfont-name
-                        'japanese-jisx0208
-                        paw16k)
-      ;; 文字を追加する。
-      (set-fontset-font pawfont-name
-                        'katakana-jisx0201
-                        paw16a)
-      ;; emacs23 では pawfontのチルダと円マークが表示できないため、仕方無
-      ;; しに、字形の似ている文字を代する。 by rubikitch
-      (setq standard-display-table (or standard-display-table (make-display-table)))
-      (aset standard-display-table ?\\ [?\x18])
-      (aset standard-display-table ?~ [?\x7f])
-
-      (set-frame-font pawfont-name))))
-
-  (when (featurep 'pomodoro)
-
-    (require 'notifications) ;; Linuxで DBUSがある環境のみ
-    (defun* my:pomodoro-notification (&key (title "Pomodoro")
-                                           body
-                                           (urgency 'critical))
-      (notifications-notify :title title :body body :urgency urgency))
-
-    ;; 作業終了後の hook
-    (add-hook 'pomodoro:finish-work-hook
-              (lambda ()
-                (my:pomodoro-notification :body "Work is Finish")))
-
-    ;; 休憩終了後の hook
-    (add-hook 'pomodoro:finish-rest-hook
-              (lambda ()
-                (my:pomodoro-notification :body "Break time is finished")))
-
-    ;; 長期休憩後の hook
-    (add-hook 'pomodoro:long-rest-hook
-              (lambda ()
-                (my:pomodoro-notification :body "Long Break time now")))
-    )
-  )
diff --git a/conf/init.d/34-sdic.el b/conf/init.d/34-sdic.el
index 0183c97..57a13f3 100644
--- a/conf/init.d/34-sdic.el
+++ b/conf/init.d/34-sdic.el
@@ -3,9 +3,9 @@

 (setq sdicf-array-command "/usr/bin/sary") ; コマンドパス
 (setq sdic-eiwa-dictionary-list
-      '((sdicf-client (concat user-emacs-directory "etc/dict/eijiro.sdic") (strategy array)))
+      `((sdicf-client ,(concat user-emacs-directory "etc/dict/eijiro.sdic") (strategy array)))
       sdic-waei-dictionary-list
-      '((sdicf-client (concat user-emacs-directory "etc/dict/waeijiro.sdic") (strategy array))))
+      `((sdicf-client ,(concat user-emacs-directory "etc/dict/waeijiro.sdic") (strategy array))))w

 ;; saryを直接使用できるように sdicf.el 内に定義されているarrayコマンド用関数を強制的に置換
 (fset 'sdicf-array-init 'sdicf-common-init)
@@ -36,6 +36,3 @@
   (recenter 0))

 (setq sdic-default-coding-system 'utf-8-unix)
-
-(el-get 'sync '(sdic-inline
-                sdic-inline-pos-tip))
diff --git a/conf/init.d/54-ocaml.el b/conf/init.d/54-ocaml.el
index 5a293be..f5ce478 100644
--- a/conf/init.d/54-ocaml.el
+++ b/conf/init.d/54-ocaml.el
@@ -3,6 +3,9 @@
                 auto-complete
                 parenthesis))

+(require 'tuareg)
+(require 'caml)
+(require 'parenthesis)
 ;; settings for ocaml
 ;; typerex2の設定、インストールされていない場合は、tuareg + ocamlspotの設定
 (if (executable-find "ocp-edit-mode")
diff --git a/conf/init.d/55-scala.el b/conf/init.d/55-scala.el
index 3c2d060..fc69a5b 100644
--- a/conf/init.d/55-scala.el
+++ b/conf/init.d/55-scala.el
@@ -1,5 +1,8 @@
-(el-get 'sync '(scala-mode
-                ensime))
+(el-get 'sync '(scala-mode2))
+
+(add-to-list 'load-path (locate-user-emacs-file
+                         (concat "/site-lisp/ensime/elisp")))
+(require 'ensime)

 (add-to-list 'auto-mode-alist '("\\.scala$" . scala-mode))

@@ -11,16 +14,4 @@
       (setq ad-return-value (+ (current-indentation) scala-mode-indent:step))
     ad-do-it))

-(defun scala-newline-and-indent ()
-  (interactive)
-  (delete-horizontal-space)
-  (let ((last-command nil))
-    (newline-and-indent))
-  (when (scala-in-multi-line-comment-p)
-    (insert "* ")))
-
-(add-hook 'scala-mode-hook
-          (lambda ()
-            (define-key scala-mode-map (kbd "RET") 'scala-newline-and-indent)))
 (add-hook 'scala-mode-hook 'ensime-scala-mode-hook)
-(add-hook 'scala-mode-hook 'scala-electric-mode)
diff --git a/conf/init.d/57-haskell.el b/conf/init.d/57-haskell.el
index 26ea2a6..157f917 100644
--- a/conf/init.d/57-haskell.el
+++ b/conf/init.d/57-haskell.el
@@ -4,6 +4,9 @@
                 ghc-mod
                 ac-ghc-mod
                 ))
+(require 'haskell-mode)
+(require 'ghc-mod)
+(require 'ac-ghc-mod)

 (add-to-list 'auto-mode-alist '("\\.hs$" . haskell-mode))
[from now] 2013/03/31 09:05:27

diff --git a/.gitignore b/.gitignore
index 62ff18f..1100f4b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,6 +1,6 @@
 ac-comphist.dat
 auto-save-list/
 *elc
-el-get/
+/el-get/
 etc/*
 url/
diff --git a/conf/init.d/17-vcs.el b/conf/init.d/17-vcs.el
new file mode 100644
index 0000000..6417cc0
--- /dev/null
+++ b/conf/init.d/17-vcs.el
@@ -0,0 +1,4 @@
+(require 'git-now)
+
+;; @の連打でgit-nowが行われるように
+(key-chord-define-global "@@" 'now)
diff --git a/conf/init.d/21-windows.el b/conf/init.d/21-windows.el
new file mode 100644
index 0000000..dab341e
--- /dev/null
+++ b/conf/init.d/21-windows.el
@@ -0,0 +1,27 @@
+;; フォントの設定を行う。
+;; ここでは、とりあえずwindow7以降で利用することを想定して、
+;; メイリオを利用する。
+;; メイリオ系のフォントの中でも、特にCUI的な利用に特化して作成された
+;; MeiryoKe_Consoleを利用する。
+
+(when (and (string-equal window-system "w32"))
+  (let (window-fontname)
+    (setq window-fontname
+          (create-fontset-from-ascii-font
+           "-outline-MeiryoKe_Console-normal-r-normal-normal-16-*-*-*-*-*-iso8859-1"
+           nil "meiryo"))
+
+    (set-fontset-font "fontset-meiryo"
+                      'japanese-jisx0208
+                      '("MeiryoKe_Console" . "unicode-bmp"))
+    (set-fontset-font "fontset-meiryo"
+                      'katakana-jisx0201
+                      '("MeiryoKe_Console" . "unicode-bmp"))
+
+    (set-frame-font window-fontname))
+
+  ;; windowsの場合、cygwinが使えるなら使う。
+  ;; (auto-install-from-emacswiki "cygwin-mount.el")
+  (req cygwin-mount
+       (cygwin-mount-activate))
+  )
diff --git a/conf/init.d/22-linux.el b/conf/init.d/22-linux.el
new file mode 100644
index 0000000..115afa3
--- /dev/null
+++ b/conf/init.d/22-linux.el
@@ -0,0 +1,101 @@
+;; -*- coding: utf-8 -*-
+;;; window-systemがxの場合に実行される初期化elisp
+;; x11を利用している場合、クリップボードの連携を有効にする。
+(setq x-select-enable-clipboard t)
+
+(when (string-equal window-system "x")
+  (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mew")
+
+  ;; emacs23以降のフォント設定を行う。
+  (defvar emacs23-font-name "ricty")
+  (setq emacs23-font-name "ricty")
+  (let ((paw16a "-paw16a-fixed-medium-r-normal--16-*-*-*-c-*-*")
+        (paw16k "-paw16k-fixed-medium-r-normal--16-*-*-*-c-*-*")
+        ipa pawfont-name)
+    (cond
+     ((eq window-system 'ns)
+      (let* ((size 1)
+             (asciifont "Menlo")
+             (jpfont "Hiragino Maru Gothic ProN")
+             (h (* size 10))
+             (fontspec)
+             (jp-fontspec))
+        (set-face-attribute 'default nil :family asciifont :height h)
+        (setq fontspec (font-spec :family asciifont))
+        (setq jp-fontspec (font-spec :family jpfont))
+        (set-fontset-font nil 'japanese-jisx0208 jp-fontspec)
+        (set-fontset-font nil 'japanese-jisx0212 jp-fontspec)
+        (set-fontset-font nil 'japanese-jisx0213-1 jp-fontspec)
+        (set-fontset-font nil 'japanese-jisx0213-2 jp-fontspec)
+        (set-fontset-font nil '(#x0080 . #x024F) fontspec)
+        (set-fontset-font nil '(#x0370 . #x03FF) fontspec)))
+     ((string= emacs23-font-name "ricty")
+      (let* ((fontset-name "myfonts")
+             (size 12)
+             (h (round (* size 10)))
+             (asciifont "Ricty")
+             (jpfont "Ricty")
+             (font (format "%s:size=%d" asciifont size))
+             (fontspec (font-spec :family asciifont :height h :spacing 'm))
+             (jp-fontspec (font-spec :family jpfont :height h :spacing 'm))
+             (fsn (create-fontset-from-ascii-font font))
+             )
+        (set-face-attribute 'default nil :family "Ricty" :height h)
+        (set-fontset-font fsn 'unicode jp-fontspec)
+        ;; (set-fontset-font fsn 'japanese-jisx0213.2004-1 jp-fontspec nil 'append)
+        ;; (set-fontset-font fsn 'japanese-jisx0213-2 jp-fontspec nil 'append)
+        ;; (set-fontset-font fsn 'japanese-jisx0208 jp-fontspec nil 'append)
+        ;; (set-fontset-font fsn 'katakana-jisx0201 jp-fontspec nil 'append)
+        (add-to-list 'default-frame-alist `(font . ,fsn))
+        )
+      )
+     (t
+      (setq pawfont-name (create-fontset-from-ascii-font
+                          paw16a))
+
+      (set-fontset-font pawfont-name
+                        'latin-jisx0201
+                        nil)
+      (set-fontset-font pawfont-name
+                        'latin-iso8859-1
+                        nil)
+
+      (set-fontset-font pawfont-name
+                        'japanese-jisx0208
+                        paw16k)
+      ;; 文字を追加する。
+      (set-fontset-font pawfont-name
+                        'katakana-jisx0201
+                        paw16a)
+      ;; emacs23 では pawfontのチルダと円マークが表示できないため、仕方無
+      ;; しに、字形の似ている文字を代する。 by rubikitch
+      (setq standard-display-table (or standard-display-table (make-display-table)))
+      (aset standard-display-table ?\\ [?\x18])
+      (aset standard-display-table ?~ [?\x7f])
+
+      (set-frame-font pawfont-name))))
+
+  (when (featurep 'pomodoro)
+
+    (require 'notifications) ;; Linuxで DBUSがある環境のみ
+    (defun* my:pomodoro-notification (&key (title "Pomodoro")
+                                           body
+                                           (urgency 'critical))
+      (notifications-notify :title title :body body :urgency urgency))
+
+    ;; 作業終了後の hook
+    (add-hook 'pomodoro:finish-work-hook
+              (lambda ()
+                (my:pomodoro-notification :body "Work is Finish")))
+
+    ;; 休憩終了後の hook
+    (add-hook 'pomodoro:finish-rest-hook
+              (lambda ()
+                (my:pomodoro-notification :body "Break time is finished")))
+
+    ;; 長期休憩後の hook
+    (add-hook 'pomodoro:long-rest-hook
+              (lambda ()
+                (my:pomodoro-notification :body "Long Break time now")))
+    )
+  )
diff --git a/conf/init.d/34-sdic.el b/conf/init.d/34-sdic.el
index 57a13f3..ab900cc 100644
--- a/conf/init.d/34-sdic.el
+++ b/conf/init.d/34-sdic.el
@@ -3,9 +3,9 @@

 (setq sdicf-array-command "/usr/bin/sary") ; コマンドパス
 (setq sdic-eiwa-dictionary-list
-      `((sdicf-client ,(concat user-emacs-directory "etc/dict/eijiro.sdic") (strategy array)))
+      `((sdicf-client ,(locate-user-emacs-file "etc/dict/eijiro.sdic") (strategy array)))
       sdic-waei-dictionary-list
-      `((sdicf-client ,(concat user-emacs-directory "etc/dict/waeijiro.sdic") (strategy array))))w
+      `((sdicf-client ,(locate-user-emacs-file "etc/dict/waeijiro.sdic") (strategy array))))

 ;; saryを直接使用できるように sdicf.el 内に定義されているarrayコマンド用関数を強制的に置換
 (fset 'sdicf-array-init 'sdicf-common-init)
diff --git a/conf/init.d/el-get/init-ace-jump-mode.el b/conf/init.d/el-get/init-ace-jump-mode.el
new file mode 100644
index 0000000..d6d2e4c
--- /dev/null
+++ b/conf/init.d/el-get/init-ace-jump-mode.el
@@ -0,0 +1,2 @@
+(require 'ace-jump-mode)
+
diff --git a/conf/init.d/el-get/init-all-ext.el b/conf/init.d/el-get/init-all-ext.el
new file mode 100644
index 0000000..d87ff67
--- /dev/null
+++ b/conf/init.d/el-get/init-all-ext.el
@@ -0,0 +1,8 @@
+(require 'all)
+(require 'all-ext)
+(require 'view)
+(defun all-mode-quit ()
+  (interactive)
+  (view-mode 1) (View-quit))
+
+(define-key all-mode-map (kbd "C-c C-q") 'all-mode-quit)
diff --git a/conf/init.d/el-get/init-auto-async-byte-compile.el b/conf/init.d/el-get/init-auto-async-byte-compile.el
new file mode 100644
index 0000000..7ee8fbd
--- /dev/null
+++ b/conf/init.d/el-get/init-auto-async-byte-compile.el
@@ -0,0 +1 @@
+(require 'auto-async-byte-compile)
diff --git a/conf/init.d/el-get/init-auto-complete.el b/conf/init.d/el-get/init-auto-complete.el
new file mode 100644
index 0000000..392afac
--- /dev/null
+++ b/conf/init.d/el-get/init-auto-complete.el
@@ -0,0 +1,77 @@
+(el-get 'sync '(popup fuzzy))
+(require 'auto-complete)
+;; 補完候補が一つだけだったら次の行に移るようにする。
+(defun my:ac-next-or-next-line (arg)
+  (interactive "p")
+  (if (/= (length ac-candidates) 1)
+      (ac-next)
+    (ac-abort)
+    (next-line arg)))
+(defun my:ac-previous-or-previous-line (arg)
+  (interactive "p")
+  (if (/= (length ac-candidates) 1)
+      (ac-previous)
+    (ac-abort)
+    (previous-line arg)))
+
+;; auto-completeを全体的に有効にする
+(global-auto-complete-mode 1)
+
+;; auto-completeの際に、日本語が含まれないようにする。
+(defadvice ac-candidate-words-in-buffer (after remove-word-contain-japanese activate)
+  (let ((contain-japanese (lambda (s) (string-match (rx (category japanese)) s))))
+    (setq ad-return-value
+          (remove-if contain-japanese ad-return-value))))
+
+;; c-mなどを、auto-completeで候補選択している場合にのみauto-completeの機能として利用できるようにする。
+;; DO NOT have `ac-' prefix
+(defun my:ac-fallback ()
+  (interactive)
+  (ac-fallback-command 'my:ac-fallback))
+
+;; MUST have `ac-' prefix
+(defun ac-my:complete ()
+  (interactive)
+  (if my:ac-explicit-complete
+      (ac-complete)
+    (ac-abort)
+    (ac-fallback-command)))
+
+(defvar my:ac-explicit-complete nil)
+(defvar my:ac-explicit-complete-commands
+  '(ac-next ac-previous ac-isearch))
+
+(defun my:ac-set-explicit-complete ()
+  (setq my:ac-explicit-complete
+        (memq this-command my:ac-explicit-complete-commands)))
+
+;; auto-complete開始時に実行される処理。
+(defun my:auto-complete-mode-hook-0 ()
+  ;; TABでは何も行わない
+  (define-key ac-complete-mode-map "\t" 'nil)
+  ;; セミコロンで、auto-completeを実行する
+  (define-key ac-complete-mode-map ";" 'ac-complete)
+  ;; 候補が1つしかない場合には、もともとのC-n/C-pの機能となるようにする
+  (define-key ac-completing-map (kbd "C-n") 'my:ac-next-or-next-line)
+  (define-key ac-completing-map (kbd "C-p") 'my:ac-previous-or-previous-line)
+  (setq ac-use-menu-map t)
+  (define-key ac-menu-map (kbd "C-n") 'ac-next)
+  (define-key ac-menu-map (kbd "C-p") 'ac-previous)
+  (define-key ac-menu-map (kbd "C-s") 'ac-isearch)
+
+  (define-key ac-completing-map (kbd "C-i") 'my:ac-fallback)
+  (define-key ac-completing-map (kbd "C-s") 'my:ac-fallback)
+
+  (define-key ac-completing-map (kbd "C-r") 'ac-my:complete)
+  (add-hook 'post-command-hook 'my:ac-set-explicit-complete))
+
+(add-hook 'auto-complete-mode-hook 'my:auto-complete-mode-hook-0)
+
+;; 大文字小文字の区別は行わない。
+(setq ac-ignore-case t)
+;; 2文字以上の文字列についてのみ行う
+(setq ac-auto-start 2)
+;; 推測補完を行う
+(setq ac-dwim t)
+;; 初期で利用するauto-completeのsource
+(setq ac-sources '(ac-source-words-in-same-mode-buffers))
diff --git a/conf/init.d/el-get/init-calfw.el b/conf/init.d/el-get/init-calfw.el
new file mode 100644
index 0000000..1feaef2
--- /dev/null
+++ b/conf/init.d/el-get/init-calfw.el
@@ -0,0 +1,9 @@
+(require 'calfw)
+(require 'calfw-org)
+(require 'calfw-ical)
+
+(defun my:open-ical ()
+  "open my google calendar at calfw."
+  (interactive)
+   (cfw:open-ical-calendar
+    "https://www.google.com/calendar/ical/derutakayu%40gmail.com/private-1041ddb94f2b4584c633275c34243a91/basic.ics"))
diff --git a/conf/init.d/el-get/init-color-moccur.el b/conf/init.d/el-get/init-color-moccur.el
new file mode 100644
index 0000000..3066536
--- /dev/null
+++ b/conf/init.d/el-get/init-color-moccur.el
@@ -0,0 +1,3 @@
+;; dired-do-moccurを実行した後、qでmoccurバッファを抜けた際に、開いたバッファを
+;; killする
+(setq kill-buffer-after-dired-do-moccur t)
diff --git a/conf/init.d/el-get/init-dropdown-list.el b/conf/init.d/el-get/init-dropdown-list.el
new file mode 100644
index 0000000..b825e91
--- /dev/null
+++ b/conf/init.d/el-get/init-dropdown-list.el
@@ -0,0 +1,4 @@
+(require 'dropdown-list)
+(setq yas/prompt-functions '(yas/dropdown-prompt
+                             yas/ido-prompt
+                             yas/completing-prompt))
diff --git a/conf/init.d/el-get/init-eldoc-extension.el b/conf/init.d/el-get/init-eldoc-extension.el
new file mode 100644
index 0000000..082a47f
--- /dev/null
+++ b/conf/init.d/el-get/init-eldoc-extension.el
@@ -0,0 +1,8 @@
+(require 'eldoc-extension)
+;; idle時にdelayをかけない
+(setq eldoc-idle-delay 0)
+;; echo areaに複数行表示を有効にする
+(setq eldoc-echo-area-use-multiline-p t)
+(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
+(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
+(add-hook 'ielm-mode-hook 'turn-on-eldoc-mode)
diff --git a/conf/init.d/el-get/init-git-gutter.el b/conf/init.d/el-get/init-git-gutter.el
new file mode 100644
index 0000000..f1e330b
--- /dev/null
+++ b/conf/init.d/el-get/init-git-gutter.el
@@ -0,0 +1,9 @@
+(require 'git-gutter)
+;; 全体でgit-gutterを有効にする
+(global-git-gutter-mode t)
+
+;; 保存時に更新する。
+(add-hook 'after-save-hook
+          (lambda ()
+            (if (zerop (call-process-shell-command "git rev-parse --show-toplevel"))
+                (git-gutter))))
diff --git a/conf/init.d/el-get/init-grep-edit.el b/conf/init.d/el-get/init-grep-edit.el
new file mode 100644
index 0000000..ae9902a
--- /dev/null
+++ b/conf/init.d/el-get/init-grep-edit.el
@@ -0,0 +1,10 @@
+;; (@* "grepされた結果に対して編集を行うgrep-edit")
+(require 'grep-edit)
+
+;; grep-editの開始準備を行う
+(defun my:grep-edit-setup ()
+  (define-key grep-mode-map '[up] nil)
+  (define-key grep-mode-map (kbd "C-c C-c") 'grep-edit-finish-edit)
+  (message (substitute-command-keys "\\[grep-edit-finish-edit] to apply changes."))
+  )
+(add-hook 'grep-setup-hook 'my:grep-edit-setup t)
diff --git a/conf/init.d/el-get/init-gtags.el b/conf/init.d/el-get/init-gtags.el
new file mode 100644
index 0000000..20afa7e
--- /dev/null
+++ b/conf/init.d/el-get/init-gtags.el
@@ -0,0 +1,92 @@
+(require 'gtags)
+(define-key gtags-mode-map (kbd "C-]") 'gtags-pop-stack)
+
+;; 表示を見やすくする。
+(defun gtags-goto-tag (tagname flag)
+  (let (save prefix buffer lines)
+    (setq save (current-buffer))
+    (cond
+     ((equal flag "P")
+      (setq prefix "(P)"))
+     ((equal flag "g")
+      (setq prefix "(GREP)"))
+     ((equal flag "I")
+      (setq prefix "(IDUTILS)"))
+     ((equal flag "s")
+      (setq prefix "(S)"))
+     ((equal flag "r")
+      (setq prefix "(R)"))
+     (t (setq prefix "(D)")))
+    ;; load tag
+    (setq buffer (generate-new-buffer (generate-new-buffer-name (concat "*GTAGS SELECT* " prefix tagname))))
+    (set-buffer buffer)
+    (message "Searching %s ..." tagname)
+    (if (not (= 0 (call-process "global" nil t nil (concat "-x" flag) tagname))) ; remove '-a' option
+        (progn (message (buffer-substring (point-min)(1- (point-max))))
+               (gtags-pop-context))
+      (goto-char (point-min))
+      (setq lines (count-lines (point-min) (point-max)))
+      (cond
+       ((= 0 lines)
+        (cond
+         ((equal flag "P")
+          (message "%s: path not found" tagname))
+         ((equal flag "g")
+          (message "%s: pattern not found" tagname))
+         ((equal flag "I")
+          (message "%s: token not found" tagname))
+         ((equal flag "s")
+          (message "%s: symbol not found" tagname))
+         (t
+          (message "%s: tag not found" tagname)))
+        (gtags-pop-context)
+        (kill-buffer buffer)
+        (set-buffer save))
+       ((= 1 lines)
+        (message "Searching %s ... Done" tagname)
+        (gtags-select-it t))
+       (t
+        ;; added by rubikitch
+        (goto-char (point-min))
+        (while (not (eobp))
+          (put-text-property (point) (+ 16 (point)) 'invisible t)
+          (forward-line 1))
+        (goto-char (point-min))
+        (switch-to-buffer buffer)
+        (gtags-select-mode))))))
+
+(defun gtags-select-it (delete)
+  (let (line file)
+    ;; get context from current tag line
+    (beginning-of-line)
+    (if (not (looking-at "[^ \t]+[ \t]+\\([0-9]+\\)[ \t]\\([^ \t]+\\)[ \t]"))
+        (gtags-pop-context)
+      (setq line (string-to-number (gtags-match-string 1)))
+      (setq file (expand-file-name (gtags-match-string 2)))
+      (if delete (kill-buffer (current-buffer)))
+      ;; move to the context
+      (if gtags-read-only (find-file-read-only file) (find-file file))
+      (setq gtags-current-buffer (current-buffer))
+      (goto-line line)
+      (gtags-mode 1))))
+
+;; 現在行が含まれる場合、そこを選択しておくようにすう。
+(defun gtags-current-line ()
+  (save-excursion
+    (save-restriction
+      (widen)
+      (forward-char 1)
+      (count-lines (point-min) (point)))))
+
+(defadvice gtags-goto-tag (around show-current-position activate)
+  "Point to the entry of current file/line."
+  (let ((bfn buffer-file-name)
+        (curline (gtags-current-line)))
+    ad-do-it
+    (when (and bfn (eq major-mode 'gtags-select-mode))
+      (let ((path (if (looking-at "[^ \t]+[ \t]+[0-9]+[ \t]/[^ \t]+[ \t]")
+                      bfn
+                    (file-relative-name bfn))))
+        (and (or (re-search-forward (format "%d[ \t]+%s" curline (regexp-quote path)) nil t)
+                 (search-forward path nil t))
+             (beginning-of-line))))))
diff --git a/conf/init.d/el-get/init-helm-c-moccur.el b/conf/init.d/el-get/init-helm-c-moccur.el
new file mode 100644
index 0000000..e5d5713
--- /dev/null
+++ b/conf/init.d/el-get/init-helm-c-moccur.el
@@ -0,0 +1,12 @@
+(require 'helm-c-moccur)
+
+;; all.elとの連携を行う
+(defun all-from-helm-moccur ()
+  "Call `all' from `helm' content."
+  (interactive)
+  (helm-run-after-quit
+   'all-from-anything-occur-internal "helm-moccur"
+   helm-c-moccur-buffer helm-current-buffer))
+
+(define-key helm-c-moccur-helm-map (kbd "C-c C-a")
+  'all-from-helm-moccur)
diff --git a/conf/init.d/el-get/init-helm-descbinds.el b/conf/init.d/el-get/init-helm-descbinds.el
new file mode 100644
index 0000000..fd22abf
--- /dev/null
+++ b/conf/init.d/el-get/init-helm-descbinds.el
@@ -0,0 +1,2 @@
+(require 'helm-descbinds)
+(helm-descbinds-install)
diff --git a/conf/init.d/el-get/init-helm.el b/conf/init.d/el-get/init-helm.el
new file mode 100644
index 0000000..3690c6c
--- /dev/null
+++ b/conf/init.d/el-get/init-helm.el
@@ -0,0 +1,229 @@
+;; el-getで読み込んだhelmを有効にするための設定を行う。
+(require 'helm)
+(require 'helm-config)
+;; helmを有効にする。また、基本的な設定を追加。
+;; helmを利用したbasic completionを利用するが、全てが強制的にhelmになってしまうため、
+;; ここでは避ける。
+;; (helm-mode 1)
+
+(setq helm-c-filelist-file-name "/tmp/all.filelist")
+(setq helm-grep-candidates-fast-directory-regexp "^/tmp")
+
+(defun my:helm ()
+  "Helm command for you.
+
+It is automatically generated by `helm-migrate-sources'."
+  (interactive)
+  (helm-other-buffer
+     '(helm-c-source-buffers+
+       helm-source-recentf
+       helm-source-files-in-current-dir
+       helm-source-bookmarks
+       helm-source-buffer-not-found)
+     " *helm*"))
+
+;; ディレイは0.2秒
+(setq helm-input-idle-delay 0.02)
+
+;; 候補のディレクトリが一つしかない場合に、自動的に展開しない
+(setq helm-ff-auto-update-initial-value nil)
+
+;; 検索文字列を入力しおわってから検索に入る。間隔は0.01秒にしておく。
+(setq helm-idle-delay 0.01)
+(defadvice helm-check-minibuffer-input (around sit-for activate)
+  (if (sit-for helm-idle-delay t)
+      ad-do-it))
+
+;; helmの描画をwindow単位にする
+(setq helm-save-configuration-functions
+      '(set-window-configuration . current-window-configuration))
+
+;; windowに表示されていない部分から更新する
+(setq helm-quick-update t)
+
+;; 候補がひとつしかない場合は、選択した時点で実行する
+(setq helm-execute-action-at-once-if-one t)
+
+;; emacsの終了時に、履歴を保存する
+(remove-hook 'kill-emacs-hook 'helm-c-adaptive-save-history)
+
+;; C-v/M-vで前後のsourceに移動する
+(define-key helm-map (kbd "C-v") 'helm-next-source)
+(define-key helm-map (kbd "M-v") 'helm-previous-source)
+;; C-_でpersistent-actionを実行する
+(define-key helm-map (kbd "C-_") 'helm-execute-persistent-action)
+(define-key helm-map (kbd "C-h") 'backward-delete-char)
+
+;; helm中から別のソースを読みだす。
+(defvar helm-source-select-buffer "*helm source select*")
+(defvar helm-c-source-call-source
+  `((name . "Call helm source")
+    (candidate-number-limit)
+    (candidates
+     . (lambda ()
+         (loop for vname in (all-completions "helm-c-source-" obarray)
+               for var = (intern vname)
+               for name = (ignore-errors (assoc-default 'name (symbol-value var)))
+               if name collect
+               (cons (format "%s `%s'"
+                             name (propertize vname 'face 'font-lock-variable-name-face))
+                     var))))
+    (action
+     . (("Invoke helm with selected source"
+         .
+         (lambda (candidate)
+           (setq helm-candidate-number-limit 9999)
+           (helm candidate nil nil nil nil
+                     helm-source-select-buffer)))
+        ("Describe variable" . describe-variable)
+        ("Find variable" . find-variable)))
+    (persistent-action . describe-variable)
+    (persistent-help . "Show description of this source")))
+
+(defun helm-call-source-from-helm ()
+  "Call helm source within `helm' session."
+  (interactive)
+  (setq helm-input-idle-delay 0)
+  (helm-set-sources '(helm-c-source-call-source)))
+(define-key helm-map (kbd "C-r") 'helm-call-source-from-helm)
+
+;; 二つ目のアクションを実行する
+(define-key helm-map (kbd "C-e") 'helm-select-2nd-action-or-end-of-line)
+
+;; 現在選択している部分にマークをつける
+(define-key helm-map (kbd "C-SPC") 'helm-toggle-visible-mark)
+
+;; 現在選択しているデータをミニバッファにyankする。
+(define-key helm-map (kbd "M-[") 'helm-prev-visible-mark)
+(define-key helm-map (kbd "M-]") 'helm-next-visible-mark)
+
+;; C-;でhelmを起動する
+(global-set-key (kbd "C-;") 'my:helm)
+
+;; (auto-install-from-emacswiki "anything-migemo.el")
+(defvar helm-test-candidate-list nil)
+(defun* helm-test-candidates
+    (sources &optional (input "")
+             (compile-source-functions
+              helm-compile-source-functions-default))
+  "Test helper function for anything.
+Given pseudo `helm-sources' and `helm-pattern', returns list like
+  ((\"source name1\" (\"candidate1\" \"candidate2\"))
+   (\"source name2\" (\"candidate3\" \"candidate4\")))"
+  (let ((helm-test-mode t)
+        helm-enable-shortcuts
+        helm-candidate-cache
+        (helm-compile-source-functions compile-source-functions)
+        helm-before-initialize-hook
+        helm-after-initialize-hook
+        helm-update-hook
+        helm-test-candidate-list)
+    (get-buffer-create helm-buffer)
+    (helm-initialize nil input sources)
+    (helm-update)
+    ;; test-mode spec: select 1st candidate!
+    (with-current-buffer helm-buffer
+      (forward-line 1)
+      (helm-mark-current-line))
+    (prog1
+        helm-test-candidate-list
+      (helm-cleanup))))
+
+;; persistent-actionを実行する際に、overlayを作成する
+(defvar my:helm-c-persistent-highlight-overlay
+  (make-overlay (point) (point)))
+
+;; 実行時に終了しないようなpersistent-actionを実行した際で、かつ
+;; 行が選択される場合に、選択された行をハイライトする
+(defadvice helm-mark-current-line
+  (after helm-execute-persistent-action first (&rest ret) activate)
+  (when (and (helm-window)
+             (helm-get-selection)
+             (not (assoc 'explicit-persistent-action (helm-get-current-source)))
+             (assoc 'persistent-action (helm-get-current-source)))
+    (save-excursion
+      (helm-execute-persistent-action))))
+
+
+;; マッチした行にオーバーレイを置く。
+(defun my:helm-persistent-highlight-point (start &optional end buf face rec)
+  (goto-char start)
+  (when (overlayp my:helm-c-persistent-highlight-overlay)
+    (move-overlay my:helm-c-persistent-highlight-overlay
+                  start
+                  (or end (line-end-position))
+                  buf))
+  (overlay-put my:helm-c-persistent-highlight-overlay 'face (or face 'highlight))
+  (when rec
+    (recenter)))
+
+;; helm-grepで特定の行に移動する際に、highlightを行う
+(add-hook 'helm-grep-goto-hook
+          (lambda ()
+            (when helm-in-persistent-action
+              (my:helm-persistent-highlight-point (point-at-bol) (point-at-eol)))))
+
+;; helmの終了時に、persistent-actionで設置したoverlayを除去する
+(add-hook 'helm-cleanup-hook
+          (lambda ()
+            (when (overlayp my:helm-c-persistent-highlight-overlay)
+              (delete-overlay my:helm-c-persistent-highlight-overlay))))
+
+
+;; helm-c-source-buffersで、現在開いているバッファを対象としない
+(setq helm-allow-skipping-current-buffer t)
+
+(defvar helm-c-source-buffers+
+  '((name . "Buffers+")
+    (candidates . helm-c-buffer-list)
+    (migemo)
+    (type . buffer)))
+
+;; helm-c-source-buffersについて、persistent-actionを定義する
+(add-to-list 'helm-c-source-buffers+
+             '(persistent-action . (lambda (name)
+                                     (flet ((kill (item)
+                                                  (kill-buffer item)
+                                                  (helm-delete-current-selection)
+                                                  (message "Buffer <%s> Killed" item))
+                                            (goto (item)
+                                                  (switch-to-buffer item)))
+                                       (if current-prefix-arg
+                                           (kill name)
+                                         (goto name))))))
+
+;; helm-c-source-files-in-dirを利用できるようにする。
+(defun helm-c-transform-file-name-nondirectory (files)
+  (mapcar (lambda (f) (cons (file-name-nondirectory f) f)) files))
+
+(defun helm-c-source-files-in-dir (desc dir &optional match skip-opened-file)
+  `((name . ,desc)
+    (candidates . (lambda () (directory-files ,dir t ,match)))
+    (candidate-transformer
+     . (lambda (candidates)
+         (helm-c-compose (list candidates)
+                             '(,@(if skip-opened-file (list 'helm-c-skip-opened-files))
+                               helm-c-transform-file-name-nondirectory))))
+    (type . file)))
+
+;; すべてのkill-ringを利用する
+(setq helm-kill-ring-threshold 1)
+
+;; 静的目次から、ヘルプを参照するためのヘルプ関数 from rubikitch
+(defun helm-c-source-static-escript (symbol desc filename &rest other-attrib)
+  `((name . ,desc)
+    (candidates . ,symbol)
+    ,@other-attrib
+    (init
+     . (lambda ()
+         (unless (and (boundp ',symbol) ,symbol)
+           (with-current-buffer (find-file-noselect ,filename)
+             (setq ,symbol (split-string (buffer-string) "\n" t))))))
+    (action
+     ("Eval it"
+      . (lambda (cand)
+          (with-temp-buffer
+            (insert cand)
+            (cd ,(file-name-directory filename))
+            (backward-sexp 1)
+            (eval (read (current-buffer)))))))))
diff --git a/conf/init.d/el-get/init-highlight-cl.el b/conf/init.d/el-get/init-highlight-cl.el
new file mode 100644
index 0000000..7b234c1
--- /dev/null
+++ b/conf/init.d/el-get/init-highlight-cl.el
@@ -0,0 +1,4 @@
+;; (@* "cl関数かどうかを表記するための関数を提供する")
+(require 'highlight-cl)
+(add-hook 'emacs-lisp-mode-hook 'highlight-cl-add-font-lock-keywords)
+(add-hook 'lisp-interaction-mode-hook 'highlight-cl-add-font-lock-keywords)
diff --git a/conf/init.d/el-get/init-id-manager.el b/conf/init.d/el-get/init-id-manager.el
new file mode 100644
index 0000000..5fd7087
--- /dev/null
+++ b/conf/init.d/el-get/init-id-manager.el
@@ -0,0 +1,2 @@
+
+(setenv "GPG_AGENT_INFO" nil)
diff --git a/conf/init.d/el-get/init-key-chord.el b/conf/init.d/el-get/init-key-chord.el
new file mode 100644
index 0000000..59750d7
--- /dev/null
+++ b/conf/init.d/el-get/init-key-chord.el
@@ -0,0 +1,8 @@
+;; キーの連打感覚は0.2秒
+(require 'key-chord)
+(setq key-chord-two-keys-delay 0.04)
+
+;; key-chordを有効にする
+(key-chord-mode 1)
+(key-chord-define-global "df" 'view-mode)
+(key-chord-define-global "cv" 'describe-bindings)
diff --git a/conf/init.d/el-get/init-key-combo.el b/conf/init.d/el-get/init-key-combo.el
new file mode 100644
index 0000000..0491b9b
--- /dev/null
+++ b/conf/init.d/el-get/init-key-combo.el
@@ -0,0 +1,3 @@
+;; キーの連打感覚は0.2秒
+(require 'key-combo)
+(key-combo-load-default)
diff --git a/conf/init.d/el-get/init-magit.el b/conf/init.d/el-get/init-magit.el
new file mode 100644
index 0000000..39ac6cd
--- /dev/null
+++ b/conf/init.d/el-get/init-magit.el
@@ -0,0 +1,8 @@
+;; 選択している部分の背景色が、黒ベースの背景だとかなり見づらかったため、
+;; 少しマイルドにする。
+(require 'magit)
+(set-face-background 'magit-item-highlight "DarkBlue")
+(set-face-background 'magit-item-highlight "#202020")
+(set-face-foreground 'magit-diff-add "#40ff40")
+(set-face-foreground 'magit-diff-del "#ff4040")
+(set-face-foreground 'magit-diff-file-header "#4040ff")
diff --git a/conf/init.d/el-get/init-markdown-mode.el b/conf/init.d/el-get/init-markdown-mode.el
new file mode 100644
index 0000000..9b79101
--- /dev/null
+++ b/conf/init.d/el-get/init-markdown-mode.el
@@ -0,0 +1 @@
+(require 'markdown-mode)
diff --git a/conf/init.d/el-get/init-open-junk-file.el b/conf/init.d/el-get/init-open-junk-file.el
new file mode 100644
index 0000000..37b9ff7
--- /dev/null
+++ b/conf/init.d/el-get/init-open-junk-file.el
@@ -0,0 +1 @@
+(require 'open-junk-file)
diff --git a/conf/init.d/el-get/init-popwin.el b/conf/init.d/el-get/init-popwin.el
new file mode 100644
index 0000000..4b715b2
--- /dev/null
+++ b/conf/init.d/el-get/init-popwin.el
@@ -0,0 +1,3 @@
+(require 'popwin)
+(setq display-buffer-function 'popwin:display-buffer)
+(add-to-list 'popwin:special-display-config '("\*omake\*.*" :noselect t :regexp t))
diff --git a/conf/init.d/el-get/init-powerline.el b/conf/init.d/el-get/init-powerline.el
new file mode 100644
index 0000000..34dde23
--- /dev/null
+++ b/conf/init.d/el-get/init-powerline.el
@@ -0,0 +1 @@
+(setq powerline-minor-modes t)
diff --git a/conf/init.d/el-get/init-redo+.el b/conf/init.d/el-get/init-redo+.el
new file mode 100644
index 0000000..8657ce6
--- /dev/null
+++ b/conf/init.d/el-get/init-redo+.el
@@ -0,0 +1 @@
+(require 'redo+)
diff --git a/conf/init.d/el-get/init-scala-mode2.el b/conf/init.d/el-get/init-scala-mode2.el
new file mode 100644
index 0000000..5004463
--- /dev/null
+++ b/conf/init.d/el-get/init-scala-mode2.el
@@ -0,0 +1 @@
+(require 'scala-mode2)
diff --git a/conf/init.d/el-get/init-sdic-inline-pos-tip.el b/conf/init.d/el-get/init-sdic-inline-pos-tip.el
new file mode 100644
index 0000000..1aad369
--- /dev/null
+++ b/conf/init.d/el-get/init-sdic-inline-pos-tip.el
@@ -0,0 +1,13 @@
+;; sdicの内容を現在の箇所に表示するelisp
+;; (auto-install-from-emacswiki "pos-tip.el")
+;; (auto-install-from-emacswiki "sdic-inline-pos-tip.el")
+(el-get 'sync '(pos-tip))
+(require 'pos-tip)
+(require 'sdic-inline)
+(require 'sdic-inline-pos-tip)
+
+(setq sdic-inline-search-func 'sdic-inline-search-word-with-stem)
+(setq sdic-inline-display-func 'sdic-inline-pos-tip-show)
+
+;; 文字色
+(setq sdic-face-color "pink")
diff --git a/conf/init.d/el-get/init-sdic-inline.el b/conf/init.d/el-get/init-sdic-inline.el
new file mode 100644
index 0000000..0eaafb1
--- /dev/null
+++ b/conf/init.d/el-get/init-sdic-inline.el
@@ -0,0 +1,11 @@
+;; sdicをインラインで表示する
+(require 'sdic-inline)
+(sdic-inline-mode 0)   ; sdic-inline モードの起動
+;; 辞書ファイルの設定
+(setq sdic-inline-eiwa-dictionary
+      (concat user-emacs-directory "etc/dict/gene.sdic"))
+(setq sdic-inline-waei-dictionary
+      (concat user-emacs-directory "etc/dict/jedict.sdic"))
+
+(setq sdic-inline-not-search-style 'point) ; デフォルト値。ポイント位置が前回と同じである限り、再度辞書ではひかない。
+(add-to-list 'sdic-inline-enable-modes 'w3m-mode)  ; w3m-mode でも動作するようにする。
diff --git a/conf/init.d/el-get/init-smartrep.el b/conf/init.d/el-get/init-smartrep.el
new file mode 100644
index 0000000..24ae2c6
--- /dev/null
+++ b/conf/init.d/el-get/init-smartrep.el
@@ -0,0 +1 @@
+(require 'smartrep)
diff --git a/conf/init.d/el-get/init-sunrise-commander.el b/conf/init.d/el-get/init-sunrise-commander.el
new file mode 100644
index 0000000..8148a49
--- /dev/null
+++ b/conf/init.d/el-get/init-sunrise-commander.el
@@ -0,0 +1,14 @@
+(require 'sunrise-commander)
+(global-set-key (kbd "C-x C-d") 'sunrise)
+
+;; (auto-install-from-emacswiki "sunrise-x-tabs.el")
+;; (require 'sunrise-x-tabs)
+
+;; sunrise-commanderのdirectoryFaceが目にやさしくないため、diredとほぼ同様に
+;; なるように調整
+(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.
+ '(sr-directory-face ((t (:foreground "cornflower blue" :weight bold)))))
diff --git a/conf/init.d/el-get/init-yasnippet.el b/conf/init.d/el-get/init-yasnippet.el
new file mode 100644
index 0000000..67a5fe5
--- /dev/null
+++ b/conf/init.d/el-get/init-yasnippet.el
@@ -0,0 +1,17 @@
+;; (@* "yasnippetを利用する設定")
+(require 'yasnippet)
+(yas/load-directory (locate-user-emacs-file "etc/snippets"))
+(yas-global-mode 1)
+
+(setq yas/trigger-key "SPC")
+(setq yas/use-menu nil)
+
+(defun yas/expand-link (key)
+  "Hyperlink function for yasnippet expansion."
+  (delete-region (point-at-bol) (1+ (point-at-eol)))
+  (insert key)
+  (yas/expand))
+
+(defun yas/expand-link-choice (&rest keys)
+  "Hyperlink to select yasnippet template."
+  (yas/expand-link (completing-read "Select template: " keys nil t)))
diff --git a/conf/site-lisp/ac-typescript/bin/isense.ts b/conf/site-lisp/ac-typescript/bin/isense.ts
index d16a9f3..3431b5f 100644
--- a/conf/site-lisp/ac-typescript/bin/isense.ts
+++ b/conf/site-lisp/ac-typescript/bin/isense.ts
@@ -80,7 +80,7 @@ var opts = new Options().parse(
     [new OptionItem("port", "p"),
      new OptionItem("debug", "d", false, false)]);

-var debugging = true;
+var debugging = opts["debug"] || false;
 var port = parseInt(opts['port']) || 8124;

 import services = module('typeScriptCompletion')
diff --git a/conf/site-lisp/git-now.el b/conf/site-lisp/git-now.el
new file mode 100644
index 0000000..9aee2b1
--- /dev/null
+++ b/conf/site-lisp/git-now.el
@@ -0,0 +1,10 @@
+;;; git-now.el - Call "git now" command
+
+(provide 'git-now)
+
+(defun now ()
+  (interactive)
+  (call-process-shell-command "git now" nil "*git now*" nil)
+  (pop-to-buffer "*git now*" t nil)
+  (other-window -1)
+  (message "git now!"))
diff --git a/recipes/ensime.rcp b/recipes/ensime.rcp
new file mode 100644
index 0000000..9a1eef3
--- /dev/null
+++ b/recipes/ensime.rcp
@@ -0,0 +1,5 @@
+(:name ensime
+ :type github
+ :pkgname "aemoncannon/ensime"
+ :description "ENhanced Scala Interaction Mode for Emacs")
+
diff --git a/recipes/haskell-mode.rcp b/recipes/haskell-mode.rcp
new file mode 100644
index 0000000..1ee0cde
--- /dev/null
+++ b/recipes/haskell-mode.rcp
@@ -0,0 +1,5 @@
+(:name haskell-mode
+ :type github
+ :pkgname "haskell/haskell-mode"
+ :description "Haskell editing mode for Emacs")
+
diff --git a/recipes/markdown-mode.rcp b/recipes/markdown-mode.rcp
new file mode 100644
index 0000000..8f2f8f9
--- /dev/null
+++ b/recipes/markdown-mode.rcp
@@ -0,0 +1,5 @@
+(:name markdown-mode
+       :pkgname "milkypostman/markdown-mode"
+       :type github
+       :description "markdown mode")
+
diff --git a/recipes/scala-mode2.rcp b/recipes/scala-mode2.rcp
new file mode 100644
index 0000000..b76f196
--- /dev/null
+++ b/recipes/scala-mode2.rcp
@@ -0,0 +1,5 @@
+(:name scala-mode2
+ :type github
+ :pkgname "hvesalai/scala-mode2"
+ :description "Scala editing mode for Emacs")
+