How to speed up Emacs start up time

前言

之前在 xkcd 上看到个笑话：

A:在等待emacs 加载的时间里，你会干什么?
B:打开Vim,修改代码，保存，退出

有时候，经常看到社区里面有人吐嘈 Emacs 什么都好，就是启动时间太长了.虽说 Emacs 加载速度实在有点慢，但是 还是存在一些技巧来缩短加载时间的

技巧1

在你的 .emacs 或者相应的初始化文件里面添加如下代码

# Increase the garbage collection threshold to 128 MB to ease startup
(setq gc-cons-threshold (* 128 1024 1024 ))
# your configuration code
# ......
# Garbage collector-decrease threshold to 5 MB
(add-hook 'after-init-hook (lambda () (setq gc-cons-threshold (* 5 1024 1024))))
# init.el ends here

顾名思义, gc-cons-threshold 指定了emacs 进行垃圾回收的阀值，默认值是 800000byte,实在是太小了，所以Emacs 会在启动期间进行非常多次的垃圾回收，启动时间自然长了，(题外话，其实，Lisp 是第一种实现了垃圾回收机制算法的编程语言)。在加载完以后，再把 gc-cons-threshold 的值调低，当然，如果你的内存很大，也可以不改回来

技巧2

(let((file-name-hander-alist nil))init.file) 包裹住(wrap)你的初始化文件，即：

(setq gc-cons-threshold (* 500 1024 1024))
(let ((file-name-handler-alist nil))
  ...

  ,** your config goes here **

  ...
  )
(add-hook 'after-init-hook (lambda () (setq gc-cons-threshold (* 5 1024 1024))))
(provide 'init)
;;; init.el ends here

因为 file-name-handler-alist 的默认值是一些正则表达式，也就是说Emacs 在启动过程中加载el和elc 文件都会将文件名和正则表达式进行匹配

技巧3

Emacs lisp 有一项 auto-load 的技术，类似延迟加载，合理运用延迟，让笔者的 Emacs启动加载时间减少一半，因为笔者用 use-package 了这个插件,而 use-package 又集成了延迟加载的功能，所以笔者就直接拿自己的代码举例了

:after

;;; Export to twitter bootstrap
(use-package ox-twbs
  :after org
  :ensure ox-twbs)

:after 关键字的作用基本跟 with-eval-after-load 的作用是相同的，所以笔者所有类似的org-mode 插件包都会在org-mode 加载以后才会加载

:commands

(use-package avy
  :commands (avy-goto-char avy-goto-line)
  :ensure t)

这里就直接贴上 use-package文档的说明了

When you use the :commands keyword, it creates autoloads for those commands and defers loading of the module until they are used

也就是使用 :commands 关键字就自动创建后面所接的命令的 autoloads 机制了

:bind :mode

(use-package hi-lock
  :bind (("M-o l" . highlight-lines-matching-regexp)
        ("M-o r" . highlight-regexp)
        ("M-o w" . highlight-phrase)))

(use-package vue-mode
  :ensure t
  :mode ("\\.vue\\'" . vue-mode)
  :config (progn
            (setq mmm-submode-decoration-level 0)
            ))

附上文档说明

In almost all cases you don't need to manually specify :defer t. This is implied whenever :bind or :mode or :interpreter is used

也就是说，当你使用了 :bind 或者 :mode 关键字的时候，不用明确指定 :defer也可以实现延迟加载机制。当然你也可以，直接使用 :defer 关键字来指定延迟加载, 不过前提是，你要明确它加载的时机

Typically, you only need to specify :defer if you know for a fact that some other package will do something to cause your package to load at the appropriate time, and thus you would like to defer loading even though use-package isn't creating any autoloads for you.

贴上笔者自己的代码，可以更加清晰

(use-package anaconda-mode
  :defer t
  :ensure t
  :init(progn
        (add-hook 'python-mode-hook 'anaconda-mode)
        (add-hook 'python-mode-hook 'anaconda-eldoc-mode)
        ))

这样 anaconda-mode 就会在 python-mode 加载以后被加载

总结

Enjoy Emacs :)