emacs.elの設定を晒す。

emacs.elの設定を修正したので晒しておきますね。

• 全角、半角の可視化。
  • サイトを参考にしたのだけど失念してしました。ごめんなさい。
• バックアップファイルのディレクトリ作成。
  • フルコピーのため改善点あり...。

Emacsのお勧め設定あったら教えて下さい！それか晒して下さい！！

(setq inferior-lisp-program "clisp")

(setq load-path
      (append (list
               (expand-file-name "~/.emacs.d/site-lisp/")) load-path))

(require 'auto-complete)
(global-auto-complete-mode t)

(transient-mark-mode 1)

(line-number-mode t)

(setq-default tab-width 2)
(setq tab-width 2)
(setq-default tab-stop-list
  '(0 1 2 3 4 6 8 12 16 20))
(setq-default indent-tabs-mode nil)

;;~file go to backup-dir
(setq backup-dir "~/.emacs.d/backup/")
(setq backup-by-copying t) (fset 'make-backup-file-name
 '(lambda (file) (concat (expand-file-name backup-dir)
(file-name-nondirectory file)) ))

;; Show tab, zenkaku-space, white spaces at end of line
;; http://www.bookshelf.jp/soft/meadow_26.html#SEC317
(defface my-face-tab '((t (:background "Yellow"))) nil :group 'my-faces)
(defface my-face-zenkaku-spc '((t (:background "LightBlue")))
  nil :group 'my-faces)
(defface my-face-spc-at-eol '((t (:foreground "Red" :underline t)))
  nil :group 'my-faces)
(defvar my-face-tab 'my-face-tab)
(defvar my-face-zenkaku-spc 'my-face-zenkaku-spc)
(defvar my-face-spc-at-eol  'my-face-spc-at-eol)
(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '(("\t" 0 my-face-tab append)
     ("　" 0 my-face-zenkaku-spc append)
     ("[ \t]+$" 0 my-face-spc-at-eol append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;; settings for text file                                                                                                                                    
(add-hook 'text-mode-hook
          '(lambda ()
             (progn
               (font-lock-mode t)
               (font-lock-fontify-buffer))))