Emacs 启动时间优化实践

我现在的配置都是基于 use-package 来配置，use-package 提供了下面两个配置项：

• use-package-verbose ，设置为 t 即可打印包加载的信息
• use-package-minimum-reported-time ，超过这个设定时间会打印耗时，默认是 0.1 秒

有一点需要注意，verbose 统计的是 :config 内的执行时间， :init 的不会统计，所以这个方式统计的时间不一定准确。

本次优化主要使用这个工具，它提供了两种视图：

• benchmark-init/show-durations-tabulated 表视图，可以查看一个包以及其依赖的加载时间

1| Module                       |  Type   | ms [^] | total ms |
2+------------------------------+---------+--------+----------+
3| org-contacts                 | require |    10  |      1164|

上面这个表示加载 org-contacts 本身需要 10ms ，但是加上其依赖后，总耗时却要 1164ms ，说明其依赖非常重。

• benchmark-init/show-durations-tree 树视图，可以查看包的加载顺序，

   1╼►[benchmark-init/root nil 6987ms]
   2├─[xdg require 14ms]
   3│ ├─[~/.config/emacs/var/autoloads/elfeed-autoloads.el load 46ms]
   4│ ├─[evil-terminal-cursor-changer require 4ms]
   5│ ├─[org-contacts require 10ms]
   6│ │ ├─[org-capture require 17ms]
   7│ │ ├─[org-agenda require 29ms]
   8│ │ │ ╰─[org-refile require 18ms]
   9│ │ ├─[gnus-art require 27ms]
  10│ │ │ ├─[mm-uu require 15ms]
  11│ │ │ │ ╰─[mml2015 require 15ms]
  12│ │ │ ├─[mm-view require 15ms]
  13│ │ │ │ ├─[mml-smime require 15ms]
  14│ │ │ │ ╰─[smime require 21ms]
  15│ │ │ │   ╰─[dig require 14ms]
  16│ │ │ ├─[gnus-sum require 31ms]
  17│ │ │ │ ├─[url require 13ms]
  18│ │ │ │ │ ├─[url-proxy require 17ms]
  19│ │ │ │ │ ├─[url-privacy require 13ms]
  20│ │ │ │ │ ├─[url-expand require 13ms]
  21│ │ │ │ │ │ ╰─[url-methods require 13ms]
  22│ │ │ │ │ ├─[url-history require 17ms]
  23│ │ │ │ │ ╰─[mailcap require 17ms]
  24......
  25......

  通过上面的树状图，可以看到 org-contacts 所有依赖的加载时间。

  本次优化前的数据放在里这个 gist 中，供读者参考。

1(defmacro my/timer (&rest body)
2  "Measure and return the time it takes evaluating BODY."
3  `(let ((time (current-time)))
4     ,@body
5     (float-time (time-since time))))

通过 my/timer 这个宏，可以很方便的测试某段代码的执行时间。

大多数包的安装说明中，都会推荐通过 (xxx-mode 1) 的方式来开启该 mode，这样的优势是简单，用户出问题的机率小，但是带来的一个问题就是会在 Emacs 启动时去加载这些包，即使暂时用不到它。

use-package 提供了 :defer 关键字来支持懒加载，取值如下：

• t ，表示不会主动加载这个包
• 数字，表示延迟多少秒后加载，内部用 run-with-idle-timer 实现

优化后的配置大部分包均有 :defer t ，然后通过 hook/autoloads 的方式来懒加载，对于其他一些重点需要的包，通过设置延迟时间来优化。比如：

• evil/evil-leader/smex 为 2
• autorevert/so-long/window-numbering 为 5

通过这一步，可以 极大 减少启动时间，也是本次优化最为耗时的部分。在进行实践时，可以通过 benchmark-init 的表视图，找到加载最耗时的包，然后逐个优化。

在进行第一步的过程中，发现 projectile 这个包需要 0.7s 的时间，主要时间耗在了 (projectile-mode 1) 这一句上。

 1(my/timer
 2 (use-package projectile
 3   :init
 4   (projectile-mode +1)
 5   :bind ("C-c p" . projectile-command-map)
 6   :custom (projectile-project-search-path '("~/code/" "~/gh/" "~/code/antfin/" "~/code/misc"))
 7   :config
 8   (setq projectile-switch-project-action #'projectile-find-file-dwim
 9         projectile-completion-system 'ivy
10         ;; projectile-enable-caching t
11         projectile-project-root-functions '(projectile-root-local
12                                             projectile-root-bottom-up)
13         projectile-project-root-files-bottom-up '(".projectile" "README.org" "README.md"
14                                                   "Makefile" "pom.xml" "go.mod" "cargo.toml" "project.clj"
15                                                   ".git" ".hg")
16         projectile-ignored-project-function (lambda (project-root)
17                                               (cl-dolist (deny '("\\.git" "\\.rustup" "\\.cargo" "go/pkg" "vendor"))
18                                                 (when (string-match-p deny project-root)
19                                                   (cl-return t)))))))
20;; 0.781213

我日常工作流重要依赖项目管理，具体来说有以下三点：

1. 可以方便的切换 project
2. 可以方便的自定义 project-root ，对于 monorepo 来说尤为重要，而且 lsp-mode/citre 之类的工具也都依赖这个
3. project 内搜索文件要快

projectile 我也是调教了很久才用的比较舒服，但感觉还是太重，于是想看看能否用 Emacs 自带的 project.el 来替代它，通过一番搜索，发现 28 版本的 project.el 通过一些简单配置即可满足上述三点需求，于是果断去掉了 projectile 这个依赖。

目前使用的配置可参考：project-config.el，对于 27 版本的用户，可以在这里下载最新的版本。这次去掉的其他华而不实的包主要还有：

• evil-numbers
• company-native-complete
• comment-dwim-2
• carbon-now-sh
• ob-http/ob-sql-mode/org-sidebar/org-bullets
• all-the-icons/all-the-icons-ivy/all-the-icons-dired
• calfw/cal-china-x
• easy-hugo

这些包的特点是：看上去很实用，但基本上没用过，去掉完全不影响使用体验。

通过 benchmark-init 的数据来看，org 相关包占了很大一部分，通过 defer 可以把其相关配置懒加载，但是还有一点容易忽略，即 org-babel。优化前的配置是放在一个大 org 文件中，即所谓的『文学式编程』。

1(org-babel-load-file (expand-file-name "core.org" user-emacs-directory))

优化后是拆分到多个 el 文件中，使用 load-file 来加载，之所以选择 load-file，而不是 require 之类的高级 API，是因为它比较底层，黑魔法会少一些。

1(let ((file-name-handler-alist nil))
2   (dolist (el '("i-basic.el"
3				 "i-edit.el"
4				 "i-prog.el"
5				 "i-ui.el"
6				 "i-misc.el"))
7	 (load-file (expand-file-name el user-emacs-directory))))

file-name-handler-alist 设置为 nil 是参考 2 easy little known steps to speed up Emacs start up time