mirror of
https://github.com/lliding/ld-emacs.git
synced 2025-10-13 05:23:05 +00:00
56 lines
2.4 KiB
EmacsLisp
56 lines
2.4 KiB
EmacsLisp
(require 'cl-lib)
|
||
|
||
(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' 中
|
||
(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)))))
|
||
|
||
;; get emacs version and operating system type
|
||
(defvar *emacs30* (>= emacs-major-version 30))
|
||
(defvar *is-a-mac* (eq system-type 'darwin))
|
||
(defvar *win64* (eq system-type 'windows-nt))
|
||
(defvar *cygwin* (eq system-type 'cygwin))
|
||
(defvar *linux* (or (eq system-type 'gnu/linux) (eq system-type 'linux)))
|
||
(defvar *unix* (or *linux*
|
||
(eq system-type 'usg-unix-v)
|
||
(eq system-type 'berkeley-unix)))
|
||
|
||
(defvar ld-emacs-root-dir (file-truename "~/ld-emacs/site-lisp"))
|
||
|
||
(if *win64*
|
||
(add-subdirs-to-load-path ld-emacs-root-dir))
|
||
|
||
(if *linux*
|
||
(add-subdirs-to-load-path "/usr/share/emacs/ld"))
|
||
|
||
(require 'init)
|