Emacs 配置文件

以下是我整理的 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 打开任何文件。