.emacs
先日.emacsを消してしまうといった馬鹿なことをやってしまったのでここに張っておきます。
;;path (setq load-path (cons "~/.lisp/" load-path)) (setq load-path (cons "/usr/share/emacs21/site-lisp/migemo/" load-path)) (setq load-path (cons "/usr/share/emacs21/site-lisp/anthy/" load-path)) ;;utf-8 (set-language-environment "Japanese") (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8) (set-buffer-file-coding-system 'utf-8) (setq default-buffer-file-coding-system 'utf-8) ;;color (set-foreground-color "white") (set-background-color "gray30") (set-cursor-color "light blue") ;;いろいろ (global-font-lock-mode t) ;;文字の色つけ (display-time) ;;時計を表示 (setq line-number-mode t) ;;カーソルのある行番号を表示 (auto-compression-mode t) ;;日本語infoの文字化け防止 (setq inhibit-startup-message t) ;;起動時のメッセージは消す ;;分割したwindowの移動がshift+→に (windmove-default-keybindings) ;; バックアップファイルを作成しない (setq make-backup-files nil) ;;スクロールバーを右側に (set-scroll-bar-mode 'right) ;;C-h (load "term/bobcat") (global-set-key [delete] 'delete-char) (global-set-key [backspace] 'delete-backward-char) (global-set-key "\C-h" 'delete-backward-char) ;;gzファイルも編集可能に (auto-compression-mode t) ;;自動改行 (setq fill-collum 80) (setq text-mode-hook 'turn-on-auto-fill) (setq default-major-mode 'text-mode) ;;警告音を消す (setq visible-bell t) ;;font (cond (window-system (set-default-font "-shinonome-gothic-medium-r-normal--12-*-*-*-*-*-*-*") (progn (set-face-font 'default "-shinonome-gothic-medium-r-normal--12-*-*-*-*-*-*-*") (set-face-font 'bold "-shinonome-gothic-bold-r-normal--12-*-*-*-*-*-*-*") (set-face-font 'italic "-shinonome-gothic-medium-i-normal--12-*-*-*-*-*-*-*") (set-face-font 'bold-italic "-shinonome-gothic-bold-i-normal--12-*-*-*-*-*-*-*") ))) ;;undo (global-set-key "\C-z" 'undo) ;;anthy ;(load-library "anthy") ;(setq default-input-method "japanese-anthy") ;uim-el (require 'uim) (global-set-key "\C-o" 'uim-mode) (setq uim-candidate-display-inline t) ;;toolバーを消す (tool-bar-mode nil) ;;migemo (load "migemo") ;;auto-save-buffers (require 'auto-save-buffers) (run-with-idle-timer 0.7 t 'auto-save-buffers) ;;elscreen ;(setq elscreen-prefix-key "\C-t") ;(load "elscreen" "ElScreen" t) ;;user mail-address (setq user-full-name "Hoge Hoge") (setq user-mail-address "hoge@xx.xx") ;;ac-mode (load "ac-mode") (setq ac-mode-goto-end-of-word t) (add-hook 'find-file-hooks 'ac-mode-without-exception) ;;hiki-mode ;いちどの kill-line で行全体を削除 (setq kill-whole-line t) ;;全角スペースとかに色を付ける (defface my-face-b-1 '*1 (font-lock-add-keywords major-mode '( (" " 0 my-face-b-1 append) ("\t" 0 my-face-b-2 append) ("[ ]+$" 0 my-face-u-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))))
フォント関係はid:higeponさんのhttp://d.hatena.ne.jp/higepon/20060315/1142432469を少し改良しました。全角スペースやtabを目立たせる設定もです。anthy.el部分がコメントアウトになってますがanthy.elがエラーが出て使えませんでした。id:higeponさんも同じ所で悩んでいるようでした。
そこで前々から使いたかったuim.elを使うことにしました。
*1:t (:background "medium aquamarine"))) nil) (defface my-face-b-2 '((t (:background "cyan"))) nil) (defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil) (defvar my-face-b-1 'my-face-b-1) (defvar my-face-b-2 'my-face-b-2) (defvar my-face-u-1 'my-face-u-1) (defadvice font-lock-mode (before my-font-lock-mode (