如何真正lazy load emacs build-in package

nullptr · 2018 年12 月 30 日 04:01

比如elisp-mode会在Emacs启动时就加载，下面的代码会在启动时就打印出来 (scratch buffer是text-mode)

(with-eval-after-load 'elisp-mode
  (message "how can I defer loading this"))

问题来了，怎么defer Emacs内置的package。

cireu · 2018 年12 月 30 日 04:46

github.com

doomemacs/doomemacs/blob/develop/core/core-lib.el#L145


      
                     shell-file-name
                     (or (getenv "SHELL")
                         (default-value 'shell-file-name)))
                    (when-let (newtz (getenv-internal "TZ"))
                      (unless (equal tz newtz)
                        (set-time-zone-rule newtz))))
                  env))))
          
          
(defun doom-run-hook (hook)
            "Run HOOK (a hook function) with better error handling.
          Meant to be used with `run-hook-wrapped'."
            (condition-case-unless-debug e
                (funcall hook)
              (error
               (signal 'doom-hook-error (list hook e))))
            ;; return nil so `run-hook-wrapped' won't short circuit
            nil)
          
          
(defun doom-run-hooks (&rest hooks)
            "Run HOOKS (a list of hook variable symbols) with better error handling.
          Is used as advice to replace `run-hooks'."

see this

老实说，作用有限，只能defer这些包的配置而不能defer这些包本身。

xuchunyang · 2018 年12 月 30 日 06:01

Emacs 自身就会加载一些文件，甚至部分文件就是 Emacs 可执行文件的一部分，比如你提到的 elisp-mode.el，参见 preloaded-file-list。

Emacs 文件加载的记录保存在 load-history。

(with-current-buffer (get-buffer-create "*foo*")
  (pcase-dolist (`(,file . ,_) load-history)
    (insert file ?\n))
  (display-buffer (current-buffer)))

nullptr · 2018 年12 月 30 日 06:31

thx，我就是看到这个感觉很hack，估计没啥更好的方法了 Spacemacs是咋做的，没仔细看，它是没搞这一步吗