#load-path

avatar
Andy Stewart
6小时前
看到Emacs道友在讨论 load-path 对启动速度的影响 其实Emacs内置的 load-path 比较傻，会扫描过多的目录内容，扫描的无关文件太多就会影响Emacs的启动速度 其实可以用我10年前写的 add-subdirs-to-load-path，可以根据自己的目录情况写忽略规则，轻松实现400多个插件，秒开 (defun add-subdirs-to-load-path (search-dir) (interactive) (let* ((dir (file-name-as-directory search-dir))) (dolist (subdir ;; 过滤出不必要的目录，提升Emacs启动速度 (cl-remove-if #'(lambda (subdir) (or ;; 不是目录的文件都移除 (not (file-directory-p (concat dir subdir))) ;; 父目录、 语言相关和版本控制目录都移除 (member subdir '("." ".." "dist" "node_modules" "__pycache__" "RCS" "CVS" "rcs" "cvs" ".git" ".github")))) (directory-files dir))) (let ((subdir-path (concat dir (file-name-as-directory subdir)))) ;; 目录下有 .el .so .dll 文件的路径才添加到 `load-path' 中，提升Emacs启动速度 (when (cl-some #'(lambda (subdir-file) (and (file-regular-p (concat subdir-path subdir-file)) ;; .so .dll 文件指非Elisp语言编写的Emacs动态库 (member (file-name-extension subdir-file) '("el" "so" "dll")))) (directory-files subdir-path)) ;; 注意：`add-to-list' 函数的第三个参数必须为 t ，表示加到列表末尾 ;; 这样Emacs会从父目录到子目录的顺序搜索Elisp插件，顺序反过来会导致Emacs无法正常启动 (add-to-list 'load-path subdir-path t)) ;; 继续递归搜索子目录 (add-subdirs-to-load-path subdir-path))))) (add-subdirs-to-load-path "/usr/share/emacs/lazycat")
#emacs #load-path #启动速度 #插件优化 #add-subdirs-to-load-path