現在の.emacs。
; 日本語をデフォルトにする。 (set-language-environment "Japanese") ; anthy.el をロードできるようにする (必要に応じて)。 (push "/usr/local/share/emacs/site-lisp/anthy/" load-path) (load-library "anthy") ; japanese-anthy をデフォルトの input-method にする。 (setq default-input-method "japanese-anthy") (setq enthy-accept-timeout 1) (global-set-key '[zenkaku-hankaku] 'anthy-mode) (add-to-list 'load-path (expand-file-name "~/.emacs.d/")) (add-to-list 'load-path (expand-file-name "~/.emacs.d/auto-install/")) (require 'auto-install) (setq auto-install-directory "~/.emacs.d/auto-install/") (auto-install-update-emacswiki-package-name t) (auto-install-compatibility-setup) (autoload 'clojure-mode "clojure-mode" "A major mode for Clojure" t) (add-to-list 'auto-mode-alist '("\\.clj$" . clojure-mode)) (add-to-list 'load-path "~/.emacs.d/color-theme-6.6.0/") (require 'color-theme) (color-theme-initialize) (color-theme-dark-blue2) (require 'paredit) (add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode) (add-hook 'lisp-intaraction-mode-hook 'enable-paredit-mode) (add-hook 'lisp-mode-hook 'enable-paredit-mode) (add-hook 'ielm-mode-hook 'enable-paredit-mode) (add-hook 'clojure-mode-hook 'enable-paredit-mode) (setq load-path (cons (expand-file-name "/usr/share/emacs/site-lisp/slime") load-path)) (setq inferior-lisp-program "〜/bin/ccl") (require 'slime) (setq slime-net-coding-system 'utf-8-unix) (slime-setup '(slime-fancy)) (slime-autodoc-mode) (show-paren-mode) (setq transient-mark-mode t) (setq common-lisp-hyperspec-root (concat "file://" (expand-file-name "/usr/share/doc/hyperspec/")) common-lisp-hyperspec-symbol-table (expand-file-name "/usr/share/doc/hyperspec/Data/Map_Sym.txt"))