基本配置

Emacs Lisp 是世界上第二古老高级编程语言 Lisp 专为 Emacs 打造的方言。官方提供了 Emacs Lisp 的入门介绍和参考手册。简单来说 Emacs Lisp 编程语言就是用来为 Emacs 编写逻辑，Emacs 的底层和绝大部分插件都是用这个语言写出来的。同时，作为用户，我们也可以使用 Emacs Lisp 编写一些自定义逻辑，甚至进一步形成插件。

学习一门语言自然是比较麻烦的，但完全不必紧张，事实上绝大部分情况我们都不需要自己写 Emacs Lisp，基本上你想要的需求都可以在网上搜索到其他人已经写好的代码，至多只需要微调一下。为了应对这种需要微调的情况，同时也加强对 Emacs 的掌控，我们简单了解一下 Emacs Lisp 的语法。

当然读者如果确实不想在这件事上耗费时间精力，可以跳到下一节直接了解“配置文件”。

Emacs Lisp 对于大部分人来说是十分陌生的，其语法看着就十分古怪。以下是一个例子（来源于 ivy 插件）：

1(defun ivy-set-prompt (caller prompt-fn)
2 (setq ivy--prompts-list
3    (plist-put ivy--prompts-list caller prompt-fn)))

Emacs Lisp 发源于 Lisp，而 Lisp 就是 “List Processing“ 的缩写，顾名思义，Lisp 语言的核心就是列表（List）。在 Lisp 中，每一对小括号表达了一个列表，列表元素用空格分隔。在执行 Lisp 时，会把列表的第一个元素作为函数名，后面的元素都是函数的参数。元素可以是一个“词”，也可以是另一个列表。可以类比 Shell 命令的写法，也是第一个词是命令名，而后面的是命令的参数。

例如，~2+3+4~ 在 Lisp 中写为：

1(+ 2 3 4)

因为 + 就是个函数，后面是它的参数。 再如 4+(3-2) 写为：

1(+ 4 (- 3 2))

那么在 Emacs 中基本都是做一些定义函数、变量等操作的 ，定义函数就用 defun 关键字， 设置变量的值用 setq 关键字。

所以上面展示的那段 Emacs Lisp 代码可以约等于如下 C/C++ 语言代码（类型名是笔者杜撰的）：

1void ivy_set_prompt(CallerType caller, FnType prompt_fn) {
2  ivy__prompts_list = plist_put(ivy__prompts_list, caller, prompt_fn);
3}

约等于如下 Python 代码：

1def ivy_set_prompt(caller, prompt_fn):
2  ivy__prompts_list = plist_put(ivy__prompts_list, caller, prompt_fn)

注意这里笔者把所有的连字符替换成了下划线。这里就可以看出，Lisp 的变量名、函数名要比 C/C++、Python、Java 等主流语言的变量名的要求更宽松，Lisp 的变量名可以包含许多字符，所以如果看到了一些奇奇怪怪的名字，不要感到惊讶，就是变量名。

还有一些常见关键字如 let 为一组变量圈出一个作用域、~if~ / when / unless 表示条件语句。 t 表示 true，~nil~ 表示空（相当于 C 语言的 NULL 、Python 的 None ）。

另外有一些不起眼的字符在 Lisp 中也是有意义的，例如单引号表达了后面的元素不进行执行而直接返回它本身：

1'(Tom Amy John)

当括号前面有一个单引号时，表达了一个包含了三个元素的“数组”，而不是在执行一个叫 Tom 的函数。而

1'ivy-set-prompt

表示把 ivy-set-prompt 这个函数作为一个对象传递给其它部分，也没有执行这个函数。

Emacs Lisp 源码文件的后缀名是 .el 。

分号（;）以后的内容都是注释。

由于 Lisp 的整个语言结构就是列表的嵌套，所以它设定了一个非常强大的宏系统，可以用代码生成代码，甚至定义出一个与之前不太一样的新语言，常被称为方言。Emacs Lisp 就是这样诞生的。再加上其变量名可使用的字符很多，所以读者如果发现了一些不同寻常的写法，例如下文提到的 use-package ，不要觉得惊讶，也请记住 Lisp 的语法本质始终都是列表。

在介绍了 Emacs Lisp 的基本语法后，我们来正式开始学习 Emacs 的配置相关的知识。

配置文件是一个包含了 Emacs Lisp 源码的文件，描述了 Emacs 应当以什么样的方式启动。在 Emacs 启动的时候会执行其中的代码，可以理解为启动时刻运行的脚本。

当启动 Emacs 时，Emacs 会自动依次寻找以下几个文件之一作为配置文件：

1~/.emacs
2~/.emacs.el
3~/.emacs.d/init.el
4~/.config/emacs/init.el

如果想用其它位置的自定义配置文件详见文档。 可以预见，随着我们需要的功能越来越复杂，配置源码会越来越长，我们会希望能够分多个源文件进行不同功能的管理。所以**使用 ~/.emacs.d/init.el 作为配置文件是最为常见的**。 我们可以将其它各种源文件都放置在 ~/.emacs.d 目录下，方便管理。

读者如果阅读过其它 Emacs 相关建议，一定见过很多人建议初学者直接使用一些 Emacs 大牛的配置。笔者的观点是大牛的配置自然要借鉴，但一定要慢慢学习大体了解其中的内容，不能盲目地使用，否则想要改配置的时候就不知所措了。

笔者最开始借鉴的就是 Steve Purcell 的配置。Steve Purcell 是 MELPA 的维护者（MELPA 是什么下文将会介绍）。读者可以 clone 下来后把文件夹命名为 ~/.emacs.d ，之后启动 Emacs 时会自动安装 Steve Purcell 配好的插件。

笔者作为一个代码强迫症患者，对于这种“不知道它给我安装了什么插件”的情况感到十分不快，所以我会进行自己的修改。之后的教程会尽可能介绍如何去配置、用到了什么插件。笔者会借鉴一部分 Steve Purcell 的配置来为大家讲解，读者可以在 Steve Purcell 的配置基础上自己修改，也可以从零开始一步步按照笔者的说明来进行探索。

首先，请使用 Emacs 打开 ~/.emacs.d/init.el 文件。一开始如果没有这个文件，我们创建它就好。

根据 Emacs Lisp 的规范，所有的源码文件的开头最好写好 docstring，也就是一些关于这个文件的说明，即使是 init.el 也不例外。以 Steve Purcell 的 init.el 为例：

1;;; init.el --- Load the full configuration -*- lexical-binding: t -*-
2;;; Commentary:
3
4;; This file bootstraps the configuration, which is divided into
5;; a number of other files.
6
7;;; Code:

按照习惯，三个分号开头的注释表示“节”，两个分号开头的注释表示“段落”。（一个分号开头的是一行代码后面的行内注释）。~;;; Code:~ 后面就开始 Emacs Lisp 的代码了。同时，文件的结尾要是：

1;;; init.el ends here

Steve Purcell 的配置的前 34 行几乎可以照抄，除了其中一行 (require 'init-benchmarking) 中使用了他定义在 ~/.emacs.d/lisp/init_benchmarking.el 中的逻辑来测量启动时间，读者酌情加入 ：

 1(let ((minver "25.1"))
 2 (when (version< emacs-version minver)
 3  (error "Your Emacs is too old -- this config requires v%s or higher" minver)))
 4(when (version< emacs-version "26.1")
 5 (message "Your Emacs is old, and some functionality in this config will be disabled. Please upgrade if possible."))
 6
 7(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory)) ; 设定源码加载路径
 8;; (require 'init-benchmarking) ;; Measure startup time
 9
10(defconst *spell-check-support-enabled* nil) ;; Enable with t if you prefer
11(defconst *is-a-mac* (eq system-type 'darwin))
12
13;; Adjust garbage collection thresholds during startup, and thereafter
14
15(let ((normal-gc-cons-threshold (* 20 1024 1024))
16   (init-gc-cons-threshold (* 128 1024 1024)))
17 (setq gc-cons-threshold init-gc-cons-threshold)
18 (add-hook 'emacs-startup-hook
19      (lambda () (setq gc-cons-threshold normal-gc-cons-threshold))))

涉及一些基本的启动要素，例如检查版本、设定源码加载路径、通过修改垃圾回收的内存上限来提高 Emacs 启动速度等等。其中，“设定源码加载路径” 这句代码是指将 ~/.emacs.d/lisp/ 目录作为源码加载路径，这样你可以将功能需求拆分成多个文件放置在这个目录中，供 init.el 使用。

那么拆分出去的功能怎么使用呢？如果你使用的是 Steve Purcell 的配置，可以看到许多的 (require 'xxx) ，这个可以理解为“导入并执行”，基本类似于 Python 的 import 。 也就是导入刚刚说的放置在了 ~/.emacs.d/lisp/ 目录下的某个源码文件，并运行了其中的代码使得内部的设置和函数定义生效。

举个例子，我们可以创建一个文件 ~/.emacs.d/lisp/hello.el ，包含如下代码：

 1;;; hello -- Echo "Hello, world!"
 2;;; Commentary:
 3;;; Code:
 4
 5(defun hello-world ()
 6 (interactive)
 7 (message "Hello, world!"))
 8
 9(provide 'hello) ; 意为“导出本模块，名为 hello”。这样就可以在其它地方进行 require 
10;;; hello.el ends here

在 init.el 中，加上一句代码 (require 'hello) ，重启 Emacs，此时 Emacs 就会多了一条名为 hello-world 的命令。读者此时可以按下 M-x ，输入 hello-world，就可以看到回显区 Echo area 中出现了 "Hello, world!"。尽管这个函数不在 init.el 中定义，但通过这种方式导入就可以顺利执行成功！

观察 Steve Purcell 的 init.el ，几乎通篇都是 (require 'xxx) ，这种模块化风格值得学习。

对于一个刚打开的“白板”编辑器来说，有不少功能是我们亟需开启的，在此做简要归纳：

 1(setq confirm-kill-emacs #'yes-or-no-p)   ; 在关闭 Emacs 前询问是否确认关闭，防止误触
 2(electric-pair-mode t)            ; 自动补全括号
 3(add-hook 'prog-mode-hook #'show-paren-mode) ; 编程模式下，光标在括号上时高亮另一个括号
 4(column-number-mode t)            ; 在 Mode line 上显示列号
 5(global-auto-revert-mode t)         ; 当另一程序修改了文件时，让 Emacs 及时刷新 Buffer
 6(delete-selection-mode t)          ; 选中文本后输入文本会替换文本（更符合我们习惯了的其它编辑器的逻辑）
 7(setq inhibit-startup-message t)       ; 关闭启动 Emacs 时的欢迎界面
 8(setq make-backup-files nil)         ; 关闭文件自动备份
 9(add-hook 'prog-mode-hook #'hs-minor-mode)  ; 编程模式下，可以折叠代码块
10(global-display-line-numbers-mode 1)     ; 在 Window 显示行号
11(tool-bar-mode -1)              ; （熟练后可选）关闭 Tool bar
12(when (display-graphic-p) (toggle-scroll-bar -1)) ; 图形界面时关闭滚动条
13
14(savehist-mode 1)              ; （可选）打开 Buffer 历史记录保存
15(setq display-line-numbers-type 'relative)  ; （可选）显示相对行号
16(add-to-list 'default-frame-alist '(width . 90)) ; （可选）设定启动图形界面时的初始 Frame 宽度（字符数）
17(add-to-list 'default-frame-alist '(height . 55)) ; （可选）设定启动图形界面时的初始 Frame 高度（字符数）