详尽注释的 .emacs

详尽注释的 .emacs

;;;_#1 为了文件便于管理，可以考虑把 .emacs 分成多个文件。我把文件分成这样几个文件：
;; my-custom.el ---- 主要是一些 customize 变量的定义
;; elisp.el ---- 常用 elisp 的配置
;; my-utils.el ---- 我自己写的和网上看到的一些常用函数
;; program.el ---- 编程用的 elisp 配置
;; program-ab.el ---- 一些 abbrev 定义
;; muse-init.el ---- 使用 Muse 的配置
;; emms-init.el ---- 使用 emms 的配置
;; .emacs ---- 定义按键，便于修改和查找

;;;_#2 .emacs
;; 设置 custom-file 可以让用 M-x customize 这样定义的变量和 Face 写入到
;; 这个文件中
(setq custom-file "~/.emacs.d/my-custom.el")

;; 导入配置的文件
(load "~/.emacs.d/my-custom.el")
(load "~/.emacs.d/elisps.el")
(load "~/.emacs.d/my-utils.el")
(load "~/.emacs.d/program.el")
(load "~/.emacs.d/program-ab.el")

;; 交换这两个按键。因为大多数情况下，回车后是要缩进的。
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key "\C-j" 'newline)

;; 设置 hippie-expand 的行为，一般我用 hippie-expand 比较多。如果
;; hippie-expan 给出的结果不好，就改用 dabbrev-expand。所以改成使用相同
;; 的 Alt。
(setq hippie-expand-try-functions-list
'(try-expand-line
try-expand-dabbrev
try-expand-line-all-buffers
try-expand-list
try-expand-list-all-buffers
try-expand-dabbrev-visible
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file-name
try-complete-file-name-partially
try-complete-lisp-symbol
try-complete-lisp-symbol-partially
try-expand-whole-kill))
(global-set-key (kbd "M-;") 'hippie-expand)
(global-set-key (kbd "M-/") 'dabbrev-expand)

;; goto-line 默认绑定了两个按键 M-g g 和 M-g M-g，我选了这个按键来绑定
;; 我写的一个命令：可以按百分率跳转到某一行
(global-set-key (kbd "M-g g") 'ywb-goto-line)

;; 一般来说，C-c 加字母是 emacs 保留给用户自定义按键。所以我的按键大多
;; 数是用这个前缀。具体怎么用就看自己喜好了。

;; 定义按键前缀，这样可以绑定“C-c c c”和“C-z n”这样的按键
;; C-z 是可以好好利用的一个按键。
(define-prefix-command 'ctl-cc-map)
(global-set-key (kbd %2