emacs Window 常用配置

;载入扩展目录

(add-to-list 'load-path "C:/Users/ChenJianPing/AppData/Roaming/.emacs.d/emacs-lisp")

;;显示行号

;(load "linum.el")

;(require 'linum)

;(global-linum-mode 1)

(setq linum-format "%4d ")           ; 序号格式

;;关闭自动保存文件#xxx#

(setq auto-save-default nil)

;;不产生备份文件  *~

(setq make-backup-files nil)

;;把tab强制转为空格

(setq-default indent-tabs-mode nil)

;; 设置tab为2个空格的宽度

(setq indent-tabs-mode nil)

(setq default-tab-width 2)

(setq tab-width 2)

(setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96))

;;php语法高亮

(require 'php-mode)

(add-hook 'php-mode-user-hook 'turn-on-font-lock)

;;换行自动缩进

(global-set-key (kbd "RET") 'newline-and-indent)

(put 'upcase-region 'disabled nil)

; 光标显示为一竖线

(setq-default cursor-type 'bar)

;;保存时删除行尾空格

(defun my-one-blank-line-end ()

"Leave exactly one blank line at the end of the file."

 (interactive)

 (save-excursion

     (goto-char (point-max))

     (open-line 1)

     (delete-blank-lines)))

(setq whitespace-check-indent-whitespace nil) ; don't touch my indent tabs

(defun my-write-file-hook ()

  (whitespace-cleanup)                  ; delelte trailing blanks/tabs.

  (my-one-blank-line-end))              ; leave one line in the end.

(add-hook 'write-file-hooks 'my-write-file-hook)

;;前景色 背景色

;(set-foreground-color "grey")

;(set-background-color "white")

;(set-cursor-color "gold1")

;(set-mouse-color "gold1")

;;取消滚动栏

(set-scroll-bar-mode nil)

;;当前行高亮

(global-hl-line-mode 1)

;;自动补全括号

(defun my-c-mode-auto-pair ()

  (interactive)

  (make-local-variable 'skeleton-pair-alist)

  (setq skeleton-pair-alist '(

    (?` ?` _ "''")

    (?\( ? _ ")")

    (?\[ ? _ "]")

    (?{ \n > _ \n ?} >)))

  (setq skeleton-pair t)

  (local-set-key (kbd "(") 'skeleton-pair-insert-maybe)

  (local-set-key (kbd "{") 'skeleton-pair-insert-maybe)

  (local-set-key (kbd "`") 'skeleton-pair-insert-maybe)

  (local-set-key (kbd "[") 'skeleton-pair-insert-maybe))

(add-hook 'c-mode-hook 'my-c-mode-auto-pair)

(add-hook 'c++-mode-hook 'my-c-mode-auto-pair)

;打开查找 ctrl+x,ctrl+f 可以查找

; (require 'ido)

    ;(ido-mode t)

;资源管理器

(require 'dirtree)

; 用y/n 代替 yes/no

(fset 'yes-or-no-p 'y-or-n-p)

; 显示时间

(display-time)

;保存桌面 下次打开能显示上次打开的文件

(desktop-save-mode 1)

;隐藏工具栏

(tool-bar-mode -1)

;隐藏菜单栏

(menu-bar-mode -1)

;显示空格

(require 'whitespace)

;设置字体，大小

(set-default-font "Courier New-11")

;也可以在 *scratch* 中 (w32-select-font nil t)  ctrl + j 出现字体设置对话框

;共享剪切板

(setq x-select-enable-clipboard t)


使用扩展可在这里下载：  http://note.youdao.com/share/?id=509c27b3c7b8814d121d92293f503007&type=note