以下是我整理的 emacs 配置文件，供刚开始玩 emacs 的同学参考。网上有人说：emacs 是神的编辑器，如果能够用到这样的编辑器，那这个人就是神了。从我个人的经验来看，emacs 是一把利器，用好它，将会事半功倍。我们大多数的编程是受制于语言（程序员是语言的奴隶），而如果能够掌握好 emacs 这一利器，则对于自己是一个质的飞跃——编程是让语言成为程序员的奴隶。这一点，以后详细谈。
;; 常规设置 (menu-bar-mode -1) ;; 不显示菜单 (tool-bar-mode -1) ;; 不显示工具栏 (scroll-bar-mode -1) ;; 不显示滚动条 (column-number-mode 1) ;; 显示行数和列数 (setq default-directory "d:/home/") ;; 设置默认目录 (appt-activate 1) ;; 启动日历提醒 (setq require-final-newline t) ;; 编辑文件的最后一个字符是回车 (setq bookmark-default-file "~/.emacs.d/.emacs.bmk") ;; 书签文件位置 (fset 'yes-or-no-p 'y-or-n-p) ;; 简化确认时的输入 (global-set-key "\r" 'newline-and-indent) ;; 回车默认缩进 (setq inhibit-startup-message t) ;; 不显示启动时的界面 (show-paren-mode 1) ;; 显示括号的对应反括号 (setq show-paren-style 'mixed) ;; 设置显示括号的样式 (mouse-avoidance-mode 'animate) ;; 光标与鼠标重合时，移开鼠标 (setq frame-title-format "%b -- Do It Yourself") ;; 设置标题 (setq default-tab-width 4) ;; Tab 的宽度为 4 (setq-default make-backup-files nil) ;; 不产生备份文件 (set-frame-position (selected-frame) 400 140) ;; 设置初始的窗口宽高 ;; 增强 find file 及 switch buffer 功能 (require 'ido) (ido-mode t) ;; 启动 Emacs 服务，下次打开文件时使用同一个 Emacs (server-start) ;; 设置环境变量 (setenv "LC_CTYPE" "zh_CN.UTF-8") ;; 设置全局快捷键 (global-set-key "\C-c\C-v" 'view-mode) ;; 只读模式 (global-set-key "\C-z" 'set-mark-command) ;; Mark (global-set-key "\C-xz" 'suspend-frame) ;; 将 Emacs 放到后台运行 (global-set-key [f8] 'occur) ;; 在当前 Buffer 中查找 (global-set-key "\C-x\C-b" 'electric-buffer-list) ;; 列出当前所有 Buffer (global-set-key (kbd "C--") 'undo) ;; 向前恢复 (global-set-key "\C-c\C-z" 'pop-global-mark) ;; 到之前的 Marker (global-set-key "\M-/" 'hippie-expand) ;; 智能完成 (global-set-key (kbd "C-SPC") 'nil) ;; 将 C+空格 快捷键置空 (global-set-key "\C-ca" 'org-agenda) ;; 启用 Agenda 模式 (global-set-key "\C-\\" 'toggle-truncate-lines) ;; 切换换行模式 ;; 设置 Windows 下字体 (setq w32-charset-info-alist (cons '("gbk" w32-charset-gb2312 . 936) w32-charset-info-alist)) (setq default-frame-alist (append '((font . "fontset-gbk")) default-frame-alist)) (create-fontset-from-fontset-spec "-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-gbk") (set-fontset-font "fontset-default" nil "-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend) (set-fontset-font "fontset-gbk" 'kana "-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend) (set-fontset-font "fontset-gbk" 'han "-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend) (set-fontset-font "fontset-gbk" 'cjk-misc "-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend) (set-fontset-font "fontset-gbk" 'symbol "-outline-新宋体-normal-r-normal-*-14-*-96-96-c-*-iso10646-1" nil 'prepend) (set-default-font "fontset-gbk") ;; 增加 Eshell 命令 ;; linux 中 clear (defun eshell/clear () "to clear the eshell buffer." (interactive) (let ((inhibit-read-only t)) (erase-buffer))) ;; 用 Windows 文件浏览器打开 (defun eshell/o (&rest args) "open the doc" (interactive) (if (eq nil args) (setq args '("explorer" "."))) (apply 'start-process-shell-command "Sub process of Eshell" "*Messages*" (car args) (cdr args))) ;; 恢复默认宽高设置 (defun retrive-position () (interactive) (set-frame-position (selected-frame) 400 140) (set-frame-size (selected-frame) 80 40)) ;; 还原最大化窗口 (defun frame-restore () "Restore a minimized frame" (interactive) (w32-send-sys-command 61728)) ;; 最大化窗口 (defun frame-maximize () "Maximize the current frame" (interactive) (w32-send-sys-command 61488)) ;; 关闭 Buffer，支持 Server/Client 模式的关闭 (defun my-kill () "Kill buffer for server-client and not server-client." (interactive) (cond (server-buffer-clients (server-edit)) (t (ido-kill-buffer)))) ;; 设置关闭 Buffer 的快捷键 (global-set-key "\C-xk" 'my-kill) ;; 加入 package 模块，可以通过 list-package 添加扩展 (require 'package) (package-initialize) (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/")) ;; 设置假期，在日历中可以看到 (setq calendar-holidays '((holiday-chinese 1 1 "春节") (holiday-chinese 1 15 "元宵节") (holiday-fixed 3 8 "妇女节") (holiday-fixed 5 1 "劳动节") (holiday-fixed 6 1 "儿童节") (holiday-chinese 5 5 "端午节") (holiday-chinese 7 7 "七夕节") (holiday-chinese 7 15 "鬼节") (holiday-fixed 8 20 "纪念") (holiday-chinese 8 15 "中秋节") (holiday-chinese 9 9 "重阳节") (holiday-fixed 10 1 "国庆节") (holiday-chinese 1 1 "张三生日") (holiday-chinese 3 1 "李四生日"))) ;; 设置多窗口时的快捷键，Shift+方向可以切换窗口，C-c ← 可以回到前一次窗口设置 (when (fboundp 'winner-mode) (winner-mode) (windmove-default-keybindings))
在 windows 环境中，添加 emacs 的右键编辑菜单，新建一个 emacs.reg 文件，内容如下：
Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell] [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\emacs] @="Emacs (&W)" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\emacs\command] @="D:\\emacs\\bin\\emacsclientw.exe -a \"d:\\emacs\\bin\\emacsclientw.exe\" \"%1\""
编辑完后，双击 emacs.reg 即可将该配置写入到注册表，这样，右键菜单就会有一个 Emacs(W) 的东东。可以通过这个选项使用 emacs 打开任何文件。
