]> gitweb @ CieloNegro.org - sugar.git/blob - dot-files/_emacs_el
Auto commit by The Sugar System.
[sugar.git] / dot-files / _emacs_el
1 ;; -*- Mode: emacs-lisp; Coding: utf-8 -*-
2
3 ;; Load paths -----------------------------------------------------------------
4 (add-to-list 'load-path (expand-file-name "~/.elisp"))
5 (add-to-list 'load-path "/usr/local/share/emacs/site-lisp")
6
7 ;; Setting for encodings of the environment -----------------------------------
8 ;(set-language-environment 'Japanese)
9 (set-default-coding-systems 'utf-8)
10 (set-terminal-coding-system 'utf-8)
11 (setq default-file-name-coding-system 'utf-8)
12 (set-keyboard-coding-system 'utf-8)
13 (set-clipboard-coding-system 'utf-8)
14
15 ;; Settings for the Emacs itself ----------------------------------------------
16 (setq truncate-partial-width-windows t)
17 (setq make-backup-files nil)
18
19 (setq read-file-name-completion-ignore-case t)
20 (tool-bar-mode nil)
21
22 (global-set-key (kbd "C-\\" ) 'toggle-input-method)
23 (global-set-key (kbd "C-RET") 'completion-at-point)
24 (global-set-key (kbd "C-<return>") 'completion-at-point)
25
26 (unless window-system
27   (normal-erase-is-backspace-mode t))
28
29 (setq-default tab-width 4)
30 (global-font-lock-mode t)
31
32 (auto-compression-mode t)
33 (which-function-mode t)
34 (setq visible-bell t)
35 (setq ring-bell-function (lambda ()))
36
37 (require 'server)
38 (if (server-running-p)
39     (message "Warning: server %S is already running." server-name)
40   (server-start))
41
42 ;; windmove
43 (windmove-default-keybindings)
44
45 ;; file renaming
46 ;; Originally from stevey, adapted to support moving to a new directory.
47 (defun rename-file-and-buffer (new-name)
48   "Renames both current buffer and file it's visiting to NEW-NAME."
49   (interactive
50    (progn
51      (if (not (buffer-file-name))
52          (error "Buffer '%s' is not visiting a file!" (buffer-name)))
53      ;; Disable ido auto merge since it too frequently jumps back to the original
54      ;; file name if you pause while typing. Reenable with C-z C-z in the prompt.
55      (let ((ido-auto-merge-work-directories-length -1))
56        (list (read-file-name (format "Rename %s to: " (file-name-nondirectory
57                                                        (buffer-file-name))))))))
58   (if (equal new-name "")
59       (error "Aborted rename"))
60   (setq new-name (if (file-directory-p new-name)
61                      (expand-file-name (file-name-nondirectory
62                                         (buffer-file-name))
63                                        new-name)
64                    (expand-file-name new-name)))
65   ;; Only rename if the file was saved before. Update the
66   ;; buffer name and visited file in all cases.
67   (if (file-exists-p (buffer-file-name))
68       (rename-file (buffer-file-name) new-name 1))
69   (let ((was-modified (buffer-modified-p)))
70     ;; This also renames the buffer, and works with uniquify
71     (set-visited-file-name new-name)
72     (if was-modified
73         (save-buffer)
74       ;; Clear buffer-modified flag caused by set-visited-file-name
75       (set-buffer-modified-p nil)))
76
77   (setq default-directory (file-name-directory new-name))
78
79   (message "Renamed to %s." new-name))
80
81 ;; Host specific configuration ------------------------------------------------
82 (let ((host (system-name)))
83   (cond ((equal host "aria.cielonegro.org")
84          (progn
85            ;; Use firefox as the default browser.
86            (setq browse-url-firefox-program "/usr/pkg/bin/firefox")
87            ;; Specify how to connect to some of the remote servers.
88            (setq tramp-default-proxies-alist nil)
89            (mapcar #'(lambda (proxy)
90                        (add-to-list 'tramp-default-proxies-alist proxy))
91             '( ("rd8"                                 nil "/sshx:pho@seras.vpn.cielonegro.org:")
92                ("pho\\.dev\\.office\\.ymir\\.co\\.jp" nil "/sshx:pho@seras.vpn.cielonegro.org:")
93                ))))))
94
95 ;; Settings for Browser --------------------------------------------------------
96 (global-set-key "\C-xm" 'browse-url-at-point)
97
98 ;; Setting for the Mode Line ---------------------------------------------------
99 (line-number-mode t)
100 (column-number-mode t)
101 (display-time)
102
103 ;; Setting for Frames ----------------------------------------------------------
104 (when window-system
105   (let ((host (system-name)))
106     (cond ((equal host "seras")
107            (set-frame-font "Dejavu Sans Mono 11" t))
108
109           ((equal host "yukari.cielonegro.org")
110            (set-frame-font "Dejavu Sans Mono 11" t))
111
112           ((equal host "aria.cielonegro.org")
113            (progn
114              (set-frame-font "Dejavu Sans Mono 13" t)
115              ;; Emacs 24.4.1 somehow gets very slow when the following
116              ;; lines are uncommented.
117              ;;(set-fontset-font nil 'japanese-jisx0208 "さざなみゴシック")
118              ;;(set-fontset-font nil 'japanese-jisx0212 "さざなみゴシック")
119              ;;(set-fontset-font nil 'katakana-jisx0201 "さざなみゴシック")
120              )))))
121
122 ;; Hooks for newline-and-indent ------------------------------------------------
123 ;(mapcar (lambda (hook)
124 ;     (add-hook hook
125 ;           (lambda ()
126 ;             (local-set-key "\C-m" 'newline-and-indent)
127 ;             (local-set-key "\C-j" 'newline)
128 ;             )))
129 ;   '(perl-mode-hook
130 ;     cperl-mode-hook
131 ;     java-mode-hook
132 ;     javascript-mode-hook
133 ;     c-mode-hook
134 ;     c++-mode-hook
135 ;     objc-mode-hook
136 ;     emacs-lisp-mode-hook
137 ;     lisp-mode-hook
138 ;     yatex-mode-hook
139 ;     css-mode-hook
140 ;     scheme-mode-hook))
141
142 ;; Setting for Packages --------------------------------------------------------
143 (defun require-if-present (feature)
144   (condition-case e
145       (require feature)
146     (file-error
147      (if (equal (cadr e) "Cannot open load file")
148          (message "Warning: feature %s is absent" feature) ; warn and ignore
149        (apply 'signal (car e) (cdr e)))))) ; rethrow
150
151 (defun load-if-present (file)
152   (condition-case e
153       (load file)
154     (file-error
155      (if (equal (cadr e) "Cannot open load file")
156          (message "Warning: file named %s is absent" file) ; warn and ignore
157        (apply 'signal (car e) (cdr e)))))) ; rethrow
158
159 (defun load-file-if-present (path)
160   (if (file-exists-p path)
161       (load-file path)
162     (message "Warning: file %s is absent" path)))
163
164 ;; ditz
165 (require-if-present 'ditz)
166
167 ;; flyspell
168 (require-if-present 'flyspell)
169
170 ;; jaspace
171 (require-if-present 'jaspace)
172
173 ;; glsl
174 (autoload 'glsl-mode "glsl-mode" nil t)
175 (add-to-list 'auto-mode-alist '("\\.glsl\\'" . glsl-mode))
176 (add-to-list 'auto-mode-alist '("\\.vert\\'" . glsl-mode))
177 (add-to-list 'auto-mode-alist '("\\.frag\\'" . glsl-mode))
178 (add-to-list 'auto-mode-alist '("\\.geom\\'" . glsl-mode))
179
180 ;; rust
181 (autoload 'rust-mode "rust-mode" nil t)
182 (add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))
183
184 ;; session
185 (require-if-present 'session)
186
187 ;; mediawiki
188 (require-if-present 'mediawiki)
189
190 ;; midnight
191 (require-if-present 'midnight)
192
193 ;; color-theme
194 (require-if-present 'color-theme)
195 (if (featurep 'color-theme)
196     (progn
197       (color-theme-initialize)
198       (color-theme-subtle-hacker)))
199
200 ;; multi-term
201 (autoload 'multi-term "multi-term"
202   "Create new term buffer.
203 Will prompt you shell name when you type `C-u' before this command." t)
204
205 ;; auto-complete
206 (require-if-present 'auto-complete-config)
207 (if (featurep 'auto-complete-config)
208     (progn
209       (add-to-list 'ac-dictionary-directories
210                    "/usr/pkg/share/emacs/site-lisp/auto-complete/ac-dict")
211       (mapcar (lambda (mode)
212                 (add-to-list 'ac-modes mode))
213               '(autoconf-mode
214                 erlang-mode
215                 sql-mode))
216       (setq ac-modes (remove 'css-mode ac-modes))
217       (add-hook 'erlang-mode-hook
218                 (lambda ()
219                   (add-to-list 'ac-sources 'ac-source-semantic)))
220       (ac-config-default)))
221
222 ;; mic-paren
223 (require-if-present 'mic-paren)
224 (if (featurep 'mic-paren)
225     (paren-activate))
226
227 ;; elscreen
228 (condition-case e
229     (load "elscreen" "ElScreen" t)
230   (file-error
231    (if (equal (cadr e) "Cannot open load file")
232        (message "Warning: feature %s is absent" feature) ; warn and ignore
233      (apply 'signal (car e) (cdr e))))) ; rethrow
234 (if (featurep 'elscreen)
235     (elscreen-start))
236 (require-if-present 'elscreen-w3m)
237
238 ;; undo-tree
239 (require-if-present 'undo-tree)
240 (if (featurep 'undo-tree)
241     (global-undo-tree-mode))
242
243 ;; MPC
244 ;(require-if-present 'mpc-autoloads)
245
246 ;; rst-mode
247 (autoload 'rst-mode "rst"
248   "mode for editing reStructuredText documents" t)
249 (setq auto-mode-alist
250       (append '(("\\.rst$" . rst-mode)
251                 ("\\.rest$" . rst-mode)) auto-mode-alist))
252
253 ;; graphviz-dot-mode
254 (autoload 'graphviz-dot-mode "graphviz-dot-mode"
255   "Major mode for the dot language." t)
256 (add-to-list 'auto-mode-alist '("\\.dot\\'" . graphviz-dot-mode))
257 (add-to-list 'auto-mode-alist '("\\.gv\\'" . graphviz-dot-mode))
258
259 ;; textile-mode
260 (autoload 'textile-mode "textile-mode"
261   "Major mode for editing Textile documents." t)
262 (add-to-list 'auto-mode-alist '("\\.textile\\'" . textile-mode))
263
264 ;; xsltxt-mode
265 (autoload 'xsltxt-mode "xsltxt-mode" "Major mode for xsltxt." t)
266 (add-to-list 'auto-mode-alist '("\\.xsltxt$" . xsltxt-mode))
267
268 ;; lua-mode
269 (autoload 'lua-mode "lua-mode" "Lua editing mode." t)
270 (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
271
272 ;; protobuf-mode
273 (autoload 'protobuf-mode "protobuf-mode")
274 (add-to-list 'auto-mode-alist '("\\.proto\\'" . protobuf-mode))
275
276 ;; scala-mode2
277 (add-to-list 'load-path "~/sandbox/_scala/scala-mode2")
278 (require-if-present 'scala-mode2)
279
280 ;; sbt-mode
281 (add-to-list 'load-path "~/sandbox/_scala/sbt-mode")
282 (require-if-present 'sbt-mode)
283
284 ;; twittering-mode
285 (require-if-present 'twittering-mode)
286 (setq twittering-username "phonohawk")
287
288 ;; riece
289 (autoload 'riece "riece" "Start Riece" t)
290 (add-hook 'riece-after-load-startup-hook
291           #'(lambda ()
292               (add-to-list 'riece-addons 'riece-alias)
293               (add-to-list 'riece-addons 'riece-skk-kakutei)
294               (add-to-list 'riece-addons 'riece-keyword)
295               (add-to-list 'riece-addons 'riece-ctlseq)))
296
297 ;; CEDET
298 (add-to-list 'load-path "/usr/pkg/share/emacs/cedet/common")
299 (require-if-present 'cedet)
300
301 ;; ECB
302 (require-if-present 'ecb-autoloads)
303 (let* ((hosts '(("netbsd." .
304                  (("~/sandbox/yxmimeproc" "yxmimeproc")
305                   ("~/sandbox/YxMIME" "YxMIME.pm")
306                   ))
307                 ("g1.cuenote.jp" .
308                  (("~/sandbox/MR/engine/libycom" "libycom")
309                   ))
310                 ("aria.cielonegro.org" .
311                  (("~/sandbox/_web-app/Rakka"           "Rakka")
312                   ("~/sandbox/_haskell/Lucu"            "Lucu")
313                   ("~/sandbox/_web-app/Kirschbaum"      "Kirschbaum")
314                   ("~/sandbox/_haskell/HsOpenSSL"       "HsOpenSSL")
315                   ("~/sandbox/_haskell/HsHyperEstraier" "HsHyperEstraier")
316                   ("~/sandbox/_haskell/HsSVN"           "HsSVN")
317                   ("~/sandbox/_game/RoRo"               "RoRo")
318                   ("~/sandbox/_haskell/HXT"             "HXT")
319                   ("~/sandbox/_haskell/hxt-compile"     "hxt-compile")
320                   ("~/src/ghc-6.10.1"                   "ghc-6.10.1")
321                   ("~/sandbox/sugar"                    "sugar")
322                   ("~/sandbox/_haskell/dns"             "dns")
323                   ("~/sandbox/_haskell/blackboard-ddns" "blackboard-ddns")
324                   ))))
325        (paths (cdr (assoc (system-name) hosts))))
326   (setq ecb-source-path paths))
327
328 ;; leim
329 (require-if-present 'gaelic)
330
331 ;; rnc-mode
332 (autoload 'rnc-mode "rnc-mode")
333 (add-to-list 'auto-mode-alist '("\\.rnc\\'" . rnc-mode))
334
335 ;; bookmark
336 (setq bookmark-sort-flag nil)
337
338 ;; sudoku
339 (autoload 'sudoku "sudoku" "The Sudoku" t)
340
341 ;; mew
342 (autoload 'mew "mew" "Mew" t)
343
344 ;; cleite
345 (autoload 'cleite "cleite" "Cleite RSS Aggregator -- Emacs Interface" t)
346
347 ;; javascript
348 (add-to-list 'auto-mode-alist '("\\.js$" . javascript-mode))
349 (add-to-list 'auto-mode-alist '("\\.json$" . javascript-mode))
350
351 ;; typescript
352 (autoload 'typescript-mode "typescript-mode"
353   "Major mode for editing typescript." t)
354 (add-to-list 'auto-mode-alist '("\\.ts$" . typescript-mode))
355
356 ;; vimrc
357 (autoload 'vimrc-mode "vimrc-mode"
358   "Major mode for editing `.vimrc', `xxx.vim' and `.exrc' files." t)
359 (add-to-list 'auto-mode-alist '("\\.vim\\(rc\\)?$" . vimrc-mode))
360
361 ;; ido
362 (require 'ido)
363 (ido-mode t)
364
365 ;; sokoban
366 (autoload 'sokoban "sokoban.el" "Start a new game of Sokoban." t)
367 (autoload 'sokoban-mode "sokoban.el" "Play Sokoban in current buffer." t)
368 (setq sokoban-playerfiles-dir "/usr/local/var/games/emacs-sokoban")
369
370 ;; nXML
371 (load-file-if-present "/usr/pkg/share/emacs/site-lisp/nxml-mode/rng-auto.el")
372 (defalias 'xml-mode 'nxml-mode)
373 (add-to-list 'auto-mode-alist '("\\.xml$" . nxml-mode))
374 (add-to-list 'auto-mode-alist '("\\.xi$" . nxml-mode))
375 (add-to-list 'auto-mode-alist '("\\.rdf$" . nxml-mode))
376 (add-to-list 'auto-mode-alist '("\\.rng$" . nxml-mode))
377
378 ;; sstp
379 (autoload 'sstp-mode "sstp" "SSTP Editing Major-Mode" t)
380
381 ;; ruby-mode
382 (autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files")
383 (setq auto-mode-alist
384       (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
385 (setq interpreter-mode-alist (append '(("ruby" .ruby-mode))
386                                      interpreter-mode-alist))
387 (autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process")
388 (autoload 'inf-ruby-keys "inf-ruby" "set local key defs for inf-ruby in ruby-mode")
389 (add-hook 'ruby-mode-hook
390           '(lambda ()
391             (inf-ruby-keys)
392           ))
393
394 ;; Haskell
395 (load-if-present "haskell-site-file.el")
396
397 (autoload 'run-haskell "inf-haskell" "" t)
398 (autoload 'switch-to-haskell "inf-haskell" "" t)
399 (autoload 'inferior-haskell-load-file "inf-haskell" "" t)
400 (autoload 'inferior-haskell-type "inf-haskell" "" t)
401 (autoload 'inferior-haskell-info "inf-haskell" "" t)
402 (autoload 'inferior-haskell-find-definition "inf-haskell" "" t)
403 (autoload 'inferior-haskell-find-haddock "inf-haskell" "" t)
404
405 (add-to-list 'auto-mode-alist '("\\.hs$" . haskell-mode))
406 (add-to-list 'auto-mode-alist '("\\.hsc$" . haskell-mode))
407
408 (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
409 (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
410 (add-hook 'haskell-mode-hook 'turn-on-haskell-ghci)
411
412 (load-if-present "~/sandbox/_input-method/haskell-unicode-input-method/haskell-unicode-input-method")
413  (add-hook 'haskell-mode-hook
414    (lambda () (set-input-method "haskell-unicode")))
415
416 ;; Hoogle
417 (autoload 'hoogle-lookup "hoogle" "Hoogle" t)
418 (global-set-key (kbd "C-c h") 'hoogle-lookup)
419
420 ;; c-mode
421 (mapcar (lambda (hook)
422       (add-hook hook
423             (lambda () (c-set-style "user"))))
424     '(c-mode-hook
425       c++-mode-hook
426       objc-mode-hook
427       java-mode-hook))
428
429 ;; EmacsWiki
430 (autoload 'emacs-wiki-find-file "emacs-wiki" "Emacs Wiki" t)
431 (defalias 'wiki 'emacs-wiki-find-file)
432
433 ;; cperl
434 (defalias 'perl-mode 'cperl-mode)
435 (setq cperl-indent-level 4)
436 (setq cperl-indent-parens-as-block t)
437
438 ;; Erlang
439 (require-if-present 'erlang-start)
440 (setq erlang-electric-commands nil)
441
442 ;; SKK
443 (require 'skk-autoloads)
444 (require 'skk-study)
445 (global-set-key "\C-x\C-j" 'skk-mode)
446 (global-set-key "\C-xj" 'skk-auto-fill-mode)
447 (global-set-key "\C-xt" 'skk-tutorial)
448 (setq skk-use-jisx0201-input-method t)
449 (setq skk-rom-kana-rule-list
450       '(("@" nil "@")
451         ("wi" nil ("ヰ" . "ゐ"))
452         ("we" nil ("ヱ" . "ゑ"))
453         ;;("hh" "h" ("ン" . "ん"))
454         ;;("mm" "m" ("ン" . "ん"))
455         ("zx" nil ("ゝ" . "ヽ"))
456         ("zc" nil ("ゞ" . "ヾ"))))
457 (set-input-method 'japanese-skk) ; INPUT METHOD
458
459 ;; navi2ch
460 (autoload 'navi2ch "navi2ch" "Navigator for 2ch for Emacs" t)
461
462 ;; migemo
463 (require-if-present 'migemo)
464 (setq migemo-isearch-enable-p nil)
465
466 ;; tiarra-conf
467 (setq load-path (cons (expand-file-name "~/sandbox/Tiarra") load-path))
468 (autoload 'tiarra-conf-mode "tiarra-conf" "tiarra.conf editing mode" t)
469
470 ;; po-mode
471 (autoload 'po-mode "po-mode")
472 (setq auto-mode-alist
473       (cons '("\\.po[tx]?\\'\\|\\.po\\." . po-mode)
474         auto-mode-alist))
475
476 ;; csv-mode
477 (autoload 'csv-mode "csv-mode"
478   "Major mode for editing comma-separated value files." t)
479 (add-to-list 'auto-mode-alist '("\\.[Cc][Ss][Vv]\\'" . csv-mode))
480
481 ;; tsv-mode
482 (autoload 'tsv-mode "tsv-mode" "A mode to edit table like file" t)
483 (autoload 'tsv-normal-mode "tsv-mode" "A minor mode to edit table like file" t)
484 (setq tsv-write-annotation nil)
485 (setq tsv-separator-list '("\t"))
486 ;(add-to-list 'auto-mode-alist '("\\.[Tt][Ss][Vv]\\'" . tsv-mode))
487
488 ;; markdown-mode
489 ;; http://jblevins.org/projects/markdown-mode/
490 (autoload 'markdown-mode "markdown-mode.el" "Major mode for editing Markdown files" t)
491 (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
492
493 ;; yaml-mode
494 (autoload 'yaml-mode "yaml-mode"
495   "Major mode for editing YAML files." t)
496 (add-to-list 'auto-mode-alist '("\\.ya?ml$"  . yaml-mode))
497
498 ;; less-css-mode
499 (autoload 'less-css-mode "less-css-mode" "Major mode for editing LESS files" t)
500 (add-to-list 'auto-mode-alist '("\\.less\\'" . less-css-mode))
501
502 ;; Troublesome Tasks
503 (if (equal (system-name) "seras")
504     (progn
505       (defun edit-troublesome-tasks ()
506         (interactive)
507         (elscreen-create)
508         (find-file (expand-file-name "~/var/troublesome-tasks.txt")))
509       (define-key ctl-x-map "MT" #'edit-troublesome-tasks)))
510
511 ;; ChangeLog
512 (setq user-full-name "PHO")
513 (setq user-mail-address "pho@cielonegro.org")
514
515 (defun memo ()
516   (interactive)
517   (add-change-log-entry nil (expand-file-name "~/sync/memo.txt")))
518 (define-key ctl-x-map "MM" #'memo)
519
520 (defun depression ()
521   (interactive)
522   (add-change-log-entry nil (expand-file-name "~/sync/depression.txt")))
523 (define-key ctl-x-map "MD" #'depression)
524
525 (defun plant ()
526   (interactive)
527   (add-change-log-entry nil (expand-file-name "~/sync/plant.txt")))
528 (define-key ctl-x-map "MP" #'plant)
529
530 (defun robinson ()
531   (interactive)
532   (elscreen-create)
533   (find-file (expand-file-name "~/sync/good-things.txt"))
534   (split-window-horizontally)
535   (next-window)
536   (find-file (expand-file-name "~/sync/bad-things.txt"))
537   (next-window))
538 (define-key ctl-x-map "MR" #'robinson)
539
540 ;; Emacs Calc
541 (add-hook 'calc-start-hook
542           (lambda ()
543             (if (functionp 'paren-deactivate)
544                 (paren-deactivate))))
545 (add-hook 'calc-end-hook
546           (lambda ()
547             (if (functionp 'paren-activate)
548                 (paren-activate))))
549
550 ;;; emacs-w3m
551 (autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
552 (autoload 'w3m-browse-url "w3m" "Browse url by w3m." t)
553 (autoload 'w3m-find-file "w3m" "w3m interface function for local file." t)
554 (autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGINE." t)
555 (autoload 'w3m-weather "w3m-weather" "Display weather report." t)
556 (autoload 'w3m-antenna "w3m-antenna" "Report chenge of WEB sites." t)
557 (autoload 'w3m-namazu "w3m-namazu" "Search files with Namazu." t)
558
559 ;; pov-mode
560 (autoload 'pov-mode "pov-mode" "POV-Ray scene file mode" t)
561 (setq auto-mode-alist
562       (append '(("\\.pov$" . pov-mode)
563                 ("\\.inc$" . pov-mode)
564                 ) auto-mode-alist))
565
566 ;; End of user configuration ---------------------------------------------------
567
568 ;; emacs auto edit
569 (put 'narrow-to-region 'disabled nil)
570 (custom-set-variables
571  ;; custom-set-variables was added by Custom.
572  ;; If you edit it by hand, you could mess it up, so be careful.
573  ;; Your init file should contain only one such instance.
574  ;; If there is more than one, they won't work right.
575  '(Info-additional-directory-list
576    (quote
577     ("/sw/share/info" "/usr/local/info" "/usr/local/share/info")))
578  '(ac-ignore-case nil)
579  '(appt-display-format (quote window))
580  '(appt-message-warning-time 20)
581  '(browse-url-browser-function (quote browse-url-firefox))
582  '(canlock-password "a14fa4d2601465d55585c291fa8b3943e189e716")
583  '(clean-buffer-list-delay-general 7)
584  '(cleite:auto-refresh-interval nil)
585  '(cleite:measure-srpc-call-time t)
586  '(compilation-scroll-output (quote first-error))
587  '(completion-ignored-extensions
588    (quote
589     (".svn/" "CVS/" ".o" "~" ".bin" ".lbin" ".so" ".a" ".ln" ".blg" ".bbl" ".elc" ".lof" ".glo" ".idx" ".lot" ".dvi" ".fmt" ".tfm" ".pdf" ".class" ".fas" ".lib" ".mem" ".x86f" ".sparcf" ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl" ".dfsl" ".lo" ".la" ".gmo" ".mo" ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".pyc" ".pyo" ".hi")))
590  '(cperl-merge-trailing-else nil)
591  '(csv-align-style (quote auto))
592  '(default-frame-alist
593     (quote
594      ((tool-bar-lines . 0)
595       (menu-bar-lines . 1)
596       (width . 80)
597       (height . 25)
598       (right-fringe)
599       (left-fringe))))
600  '(ditz-find-issue-directory-automatically-flag t)
601  '(ecb-add-path-for-not-matching-files (quote (t)))
602  '(ecb-help-info-path "/sw/share/info/ecb.info")
603  '(ecb-layout-name "left14")
604  '(ecb-options-version "2.32")
605  '(ecb-show-sources-in-directories-buffer (quote always))
606  '(ecb-tip-of-the-day nil)
607  '(ecb-tree-buffer-style (quote ascii-guides))
608  '(ecb-windows-width 0.2)
609  '(elscreen-display-tab t)
610  '(global-whitespace-mode t)
611  '(graphviz-dot-auto-indent-on-newline nil)
612  '(graphviz-dot-auto-indent-on-semi nil)
613  '(haskell-program-name "ghci")
614  '(ido-enable-flex-matching t)
615  '(ido-everywhere t)
616  '(ido-ignore-files
617    (quote
618     ("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./" "\\.ttc")))
619  '(ido-work-directory-list-ignore-regexps (quote ("^\\(/mnt/ibm/\\|/Volumes/IBM80GB/\\)")))
620  '(indent-tabs-mode nil)
621  '(ispell-dictionary "english")
622  '(jabber-nickname "PHO")
623  '(jabber-resource "emacs")
624  '(jabber-server "jabber.jp")
625  '(jabber-username "phonohawk")
626  '(js2-auto-indent-flag nil)
627  '(js2-basic-offset 4)
628  '(js2-indent-on-enter-key nil)
629  '(js2-mirror-mode nil)
630  '(js2-use-font-lock-faces t)
631  '(lua-indent-level 4)
632  '(makefile-mode-hook (quote ((lambda nil (set-variable (quote tab-width) 8)))))
633  '(markdown-live-preview-delete-export (quote delete-on-export))
634  '(mediawiki-site-alist
635    (quote
636     (("Wikipedia" "http://en.wikipedia.org/w/" "username" "password" "Main Page")
637      ("YmirDev" "https://ymirlink:santamo@update.forcast.jp/fcdiv/mwiki/" "PHO" "" "メインページ"))))
638  '(mew-field-spec
639    (quote
640     (("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important)
641      ("^Subject:$" t mew-face-header-important mew-face-header-subject)
642      ("^From:$" t mew-face-header-important mew-face-header-from)
643      ("^\\(To\\|Apparently-To\\):$" t mew-face-header-important mew-face-header-to)
644      ("^\\(Cc\\|Dcc\\|Bcc\\):$" t mew-face-header-important mew-face-header-to)
645      ("^Newsgroups:$" t mew-face-header-important mew-face-header-to)
646      ("^Date:$" t mew-face-header-important mew-face-header-date)
647      ("^Reply-To:$" t)
648      ("^X-Mailer:$" t)
649      ("^X-Mew:$" t mew-face-header-important mew-face-header-xmew)
650      ("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil)
651      ("^\\(Path\\|Distribution\\|Xref\\):$" nil)
652      ("^NNTP-Posting-" nil)
653      ("^\\(Message-Id\\|Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil)
654      ("^Delivered-" nil)
655      ("^List-" nil)
656      ("^\\(Mime-Version\\|Lines\\):$" nil)
657      ("^From$" nil)
658      ("^Status:$" nil)
659      ("^Face:$" nil mew-face-header-private mew-face-header-marginal)
660      ("^X-Text-Classification:$" t mew-face-header-important mew-face-header-important)
661      ("^X-POPFile-Link:$" t mew-face-header-important mew-face-body-url)
662      ("^\\(X\\|Original\\)-" nil mew-face-header-private mew-face-header-marginal))))
663  '(mew-refile-guess-alist
664    (quote
665     (("From:"
666       ("noreply@adc1.apple.com" "+mm/adc")
667       ("mag2 ID 0000022139" "+mm/2ch")
668       ("noreply@sourceforge.net" "+from/sf-net"))
669      ("Subject:"
670       ("w3m-dev" "+ml/w3m-dev"))
671      ("To:"
672       ("glasgow-haskell-users@haskell.org" "+ml/ghc-users")
673       ("fink-devel@lists.sourceforge.net" "+ml/fink-devel"))
674      ("Reply-To:"
675       ("yun@kokonoe.com" "+mm/kokonoe"))
676      ("Cc:"
677       ("glasgow-haskell-users@haskell.org" "+ml/ghc-users")))))
678  '(mew-scan-fields
679    (quote
680     ("Folder:" "Filename:" "Subject:" "Date:" "From:" "To:" "Cc:" "Content-Type:" "Content-Transfer-Encoding:" "X-Mew-Uidl:" "Message-Id:" "In-Reply-To:" "References:" "X-Mew-Ref:" "X-Text-Classification:" "Body")))
681  '(mew-spam: "X-Text-Classification:")
682  '(mew-summary-form
683    (quote
684     (type
685      (5 date)
686      " "
687      (14 from)
688      " " t
689      (14 x-classification)
690      " "
691      (30 subj)
692      "|"
693      (0 body))))
694  '(midnight-mode t)
695  '(mouse-wheel-progessive-speed nil)
696  '(mouse-wheel-scroll-amount (quote (1 ((shift) . 5) ((control)))))
697  '(mpc-browser-tags
698    (quote
699     (Directory Genre Artist|Composer|Performer Album|Playlist)))
700  '(navi2ch-browse-url-browser-function (quote browse-url-firefox))
701  '(navi2ch-display-splash-screen nil)
702  '(navi2ch-list-moved-board-alist
703    (quote
704     (("http://mamono.2ch.net/ihou/" . "http://hideyoshi.2ch.net/ihou/"))))
705  '(navi2ch-mona-face-variable (quote navi2ch-mona12-face))
706  '(navi2ch-mona-on-message-mode t)
707  '(newsticker-html-renderer (quote w3m-region))
708  '(newsticker-url-list nil)
709  '(newsticker-url-list-defaults
710    (quote
711     (("slashdot" "http://slashdot.org/index.rss" nil 3600))))
712  '(nxml-auto-insert-xml-declaration-flag t)
713  '(nxml-slash-auto-complete-flag t)
714  '(org-replace-disputed-keys t)
715  '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil))))
716  '(riece-layout "default")
717  '(riece-layout-alist
718    (quote
719     (("middle-right" riece-configure-windows right middle)
720      ("middle-left" riece-configure-windows left middle)
721      ("top-right" riece-configure-windows right top)
722      ("top-left" riece-configure-windows left top)
723      ("bottom-right" riece-configure-windows right bottom)
724      ("bottom-left" riece-configure-windows left bottom)
725      ("top" riece-configure-windows-top)
726      ("spiral" riece-configure-windows-spiral)
727      ("default" . "middle-right"))))
728  '(riece-others-buffer-mode nil)
729  '(rng-schema-locating-files
730    (quote
731     ("schemas.xml" "~/share/nxml/schemas.xml" "/usr/pkg/share/emacs/site-lisp/nxml-mode/schema/schemas.xml")))
732  '(rst-level-face-base-light 50)
733  '(safe-local-variable-values (quote ((todo-categories "Todo" "Todo" "Todo" "Todo"))))
734  '(select-enable-clipboard t)
735  '(session-use-package t nil (session))
736  '(tramp-auto-save-directory "/tmp/tramp-auto-save")
737  '(tramp-completion-reread-directory-timeout 2)
738  '(tramp-default-host "localhost")
739  '(tramp-default-method "sshx")
740  '(uniquify-buffer-name-style (quote forward) nil (uniquify))
741  '(uniquify-trailing-separator-p t)
742  '(vc-cvs-diff-switches (quote ("-u")))
743  '(vc-cvs-stay-local nil)
744  '(w3m-bookmark-file-coding-system (quote utf-8))
745  '(w3m-coding-system (quote utf-8))
746  '(w3m-coding-system-priority-list (quote (utf-8)))
747  '(w3m-default-coding-system (quote utf-8))
748  '(w3m-default-display-inline-images t)
749  '(w3m-file-coding-system (quote utf-8))
750  '(w3m-file-name-coding-system (quote utf-8))
751  '(w3m-fill-column 80)
752  '(w3m-input-coding-system (quote utf-8))
753  '(w3m-key-binding nil)
754  '(w3m-output-coding-system (quote utf-8))
755  '(w3m-terminal-coding-system (quote utf-8))
756  '(w3m-use-cookies t)
757  '(whitespace-global-modes (quote (not mew-draft-mode mew-summary-mode)))
758  '(whitespace-style
759    (quote
760     (face tabs trailing space-before-tab newline indentation empty space-after-tab)))
761  '(woman-cache-filename "~/.wmncach.el"))
762 (custom-set-faces
763  ;; custom-set-faces was added by Custom.
764  ;; If you edit it by hand, you could mess it up, so be careful.
765  ;; Your init file should contain only one such instance.
766  ;; If there is more than one, they won't work right.
767  '(diff-added ((t (:inherit diff-changed :foreground "medium spring green" :weight extra-bold))))
768  '(diff-removed ((t (:foreground "gold3" :weight extra-bold))))
769  '(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
770  '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
771  '(navi2ch-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
772  '(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))
773  '(navi2ch-bm-updated-unread-face ((t (:foreground "DarkSeaGreen3" :weight bold))))
774  '(textile-link-face ((t (:foreground "cyan"))))
775  '(textile-ol-bullet-face ((t (:foreground "dark orange"))))
776  '(textile-ul-bullet-face ((t (:foreground "deep sky blue"))))
777  '(which-func-face ((t (:background "black" :foreground "dark orange"))))
778  '(whitespace-empty ((t (:background "gray20" :foreground "firebrick"))))
779  '(whitespace-indentation ((t (:foreground "dimgray" :underline t))))
780  '(whitespace-line ((t (:background "gray20"))))
781  '(whitespace-tab ((t (:background "grey22" :foreground "dim gray" :underline (:color foreground-color :style wave))))))