-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
261 lines (233 loc) · 8.88 KB
/
init.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
;; cask
;; Added by Package.el. This must come before configurations of
;; installed packages. Don't delete this line. If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)
(require 'cask "~/.cask/cask.el")
(cask-initialize)
;;load-path
(add-to-list 'load-path "~/.emacs.d/elisp")
;; load-pathを追加する関数を定義
(defun add-to-load-path (&rest paths)
(let (path)
(dolist (path paths paths)
(let ((default-directory
(expand-file-name (concat user-emacs-directory path))))
(add-to-list 'load-path default-directory)
(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
(normal-top-level-add-subdirs-to-load-path))))))
;; 引数のディレクトリとそのサブディレクトリをload-pathに追加
(add-to-load-path "elisp" "conf")
;; システム毎の設定
(when (eq system-type 'darwin)
(load "~/.emacs.d/system_conf/mac.el"))
;; (when (eq system-type 'windows-nt)
;; (load "~/.emacs.d/system_conf/win.el"))
(when (eq system-type 'cygwin)
(load "~/.emacs.d/system_conf/cygwin.el"))
;; backup
(setq backup-directory-alist '(("" . "~/.emacs.d/backup")))
;; 極力UTF-8
(prefer-coding-system 'utf-8)
;; color
(add-to-list 'custom-theme-load-path
(file-name-as-directory "~/.emacs.d/elisp/themes/"))
(load-theme 'clarity t t)
(enable-theme 'clarity)
;;時計表示
(display-time)
;;yesをyで答える
(defalias 'yes-or-no-p 'y-or-n-p)
;;履歴を多めに保存。
(setq history-length 1000)
;;履歴を次回に保存する。
(savehist-mode t)
;;; 最近開いたファイルを保存する数を増やす
(setq recentf-max-saved-items 1000)
;;行数
(require 'linum)
;; 行番号表示をトグル
(defun toggle-linum-lines ()
"toggle display line number"
(interactive)
(setq linum-format "%4d ")
(linum-mode
(if linum-mode -1 1)))
(define-key global-map (kbd "C-x C-l") 'toggle-linum-lines)
;;スタートアップページいらない
(setq inhibit-startup-message t)
;;hide toolbar
(tool-bar-mode -1)
;; リージョンを削除できるように
(delete-selection-mode t)
;;対応する括弧をハイライト
(show-paren-mode t)
;;カーソル点滅
(blink-cursor-mode t)
;;編集行ハイライト
(global-hl-line-mode t)
;;ビープ音消去
(setq visible-bell t)
(setq ring-bell-function 'ignore)
;;minibufでisearchを使えるようにする
(require 'minibuf-isearch nil t)
;; use space
(setq-default indent-tabs-mode nil)
;; other window
;; via: http://d.hatena.ne.jp/rubikitch/20100210/emacs
(defun other-window-or-split ()
(interactive)
(when (one-window-p)
(split-window-horizontally))
(other-window 1))
(global-set-key (kbd "C-]") 'other-window-or-split)
(require 'anything-startup)
(when (require 'anything nil t)
(setq
anything-idle-delay 0.3
anything-input-idle-delay 0.2
anything-candidate-number-limit 100
anything-quick-update t
anything-enable-shortcuts 'alphabet)
(when (require 'anything-coding nil t)
(setq anything-su-or-sudo "sudo"))
(require 'anything-match-plugin nil t)
(when (and (executable-find "cmigemo")
(require 'migemo nil t))
(require 'anything-migemo nit t))
(when (require 'anything-complete nil t)
(anything-lisp-complete-symbol-set-timer 150))
(require 'anything-show-completion nil t)
(when (require 'auto-install nil t)
(require 'anything-auto-install nil t))
(when (require 'descbinds-anything nil t)
(descbinds-anything-install)))
(global-set-key (kbd "C-x b") 'anything)
;; auto-complete
(require 'auto-complete)
(require 'auto-complete-config)
(global-auto-complete-mode t)
(setq ac-auto-start t)
;; perl
(load-library "cperl-mode")
(add-to-list 'auto-mode-alist '("\\.[Pp][LlMms][Ccg]?[i]?$" . cperl-mode))
(add-to-list 'auto-mode-alist '("\\.t$" . cperl-mode))
(while (let ((orig (rassoc 'perl-mode auto-mode-alist)))
(if orig (setcdr orig 'cperl-mode))))
(while (let ((orig (rassoc 'perl-mode interpreter-mode-alist)))
(if orig (setcdr orig 'cperl-mode))))
(dolist (interpreter '("perl" "perl5" "miniperl" "pugs"))
(unless (assoc interpreter interpreter-mode-alist)
(add-to-list 'interpreter-mode-alist (cons interpreter 'cperl-mode))))
(add-hook 'cperl-mode-hook
'(lambda ()
(cperl-set-style "PerlStyle")
(custom-set-variables
'(cperl-indent-parens-as-block t)
'(cperl-close-paren-offset -4)
'(cperl-indent-subs-specially nil))))
;; タブ, 全角スペース、改行直前の半角スペースを表示する
(when (require 'jaspace nil t)
(when (boundp 'jaspace-modes)
(setq jaspace-modes (append jaspace-modes
(list 'php-mode
'yaml-mode
'javascript-mode
'ruby-mode
'text-mode
'fundamental-mode
'smarty-mode
'cperl-mode))))
(when (boundp 'jaspace-alternate-jaspace-string)
(setq jaspace-alternate-jaspace-string "□"))
(when (boundp 'jaspace-highlight-tabs)
(setq jaspace-highlight-tabs ?^))
(add-hook 'jaspace-mode-off-hook
(lambda()
(when (boundp 'show-trailing-whitespace)
(setq show-trailing-whitespace nil))))
(add-hook 'jaspace-mode-hook
(lambda()
(progn
(when (boundp 'show-trailing-whitespace)
(setq show-trailing-whitespace t))
(face-spec-set 'jaspace-highlight-jaspace-face
'((((class color) (background light))
(:foreground "blue"))
(t (:foreground "green"))))
(face-spec-set 'jaspace-highlight-tab-face
'((((class color) (background light))
(:foreground "red"
:background "unspecified"
:strike-through nil
:underline t))
(t (:foreground "purple"
:background "unspecified"
:strike-through nil
:underline t))))
(face-spec-set 'trailing-whitespace
'((((class color) (background light))
(:foreground "red"
:background "unspecified"
:strike-through nil
:underline t))
(t (:foreground "purple"
:background "unspecified"
:strike-through nil
:underline t))))))))
;; goto-line
(global-set-key "\M-l" 'goto-line)
;; redo+.el
(when (require 'redo+ nil t)
(global-set-key (kbd "C-c '") 'redo))
(setq undo-no-redo t)
;; cua-mode http://tech.kayac.com/archive/emacs-rectangle.html
(cua-mode t)
(setq cua-enable-cua-keys nil) ; そのままだと C-x が切り取りになってしまったりするので無効化
(global-set-key (kbd "C-c C-u") 'cua-set-rectangle-mark) ; http://dev.ariel-networks.com/articles/emacs/part5/
;;; auto save and restore scratch buffer
(defun save-scratch-data ()
(let ((str (progn
(set-buffer (get-buffer "*scratch*"))
(buffer-substring-no-properties
(point-min) (point-max))))
(file "~/.scratch"))
(if (get-file-buffer (expand-file-name file))
(setq buf (get-file-buffer (expand-file-name file)))
(setq buf (find-file-noselect file)))
(set-buffer buf)
(erase-buffer)
(insert str)
(save-buffer)
(kill-buffer buf)))
(defadvice save-buffers-kill-emacs
(before save-scratch-buffer activate)
(save-scratch-data))
(defun read-scratch-data ()
(let ((file "~/.scratch"))
(when (file-exists-p file)
(set-buffer (get-buffer "*scratch*"))
(erase-buffer)
(insert-file-contents file))
))
(setq recentf-auto-cleanup 'never)
;;使わない（tmuxと競合する）
(global-unset-key "\C-t")
(require 'magit)
(setq magit-auto-revert-mode nil)
(setq magit-last-seen-setup-instructions "1.4.0")
(setq puppet-indent-level 4)
(add-hook 'json-mode-hook
(lambda ()
(make-local-variable 'js-indent-level)
(setq js-indent-level 2)))
(setq js-indent-level 2)
(add-to-list 'auto-mode-alist '("\\.go$" . go-mode))
(add-hook 'before-save-hook 'gofmt-before-save)
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode))
;;ghq
(define-key global-map (kbd "C-x n") 'helm-ghq)
(read-scratch-data) ;; ←これは初期設定ファイルの最後に追加