niten/doom-emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Just copy the site.d config

Browse Source
This commit is contained in:
peter.selby@bytedance.com 2023-11-10 09:51:21 -08:00
parent ff5d125f66
commit 7e5e35f66d
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
config.el
View File

@ -160,16 +160,17 @@
(message "Skipping invalid file %s" full-file)))))) (message "Skipping invalid file %s" full-file))))))
(let ((local-dir (if (getenv "DOOM_EMACS_LOCAL_PATH") (let ((local-dir (if (getenv "DOOM_EMACS_LOCAL_PATH")
(getenv "DOOM_EMACS_LOCAL_PATH") (getenv "DOOM_EMACS_LOCAL_PATH")
(expand-file-name ".local/emacs" (getenv "HOME"))))) (expand-file-name ".local/emacs.d/" (getenv "HOME")))))
(let ((configs (filter (lambda (name) (not (or (string-match "~$" name) (let ((configs (filter (lambda (name)
(string-match "^[.]" name))) (not (or (string-match "~$" name)
(directory-files local-dir))))) (string-match "^[.]" name))))
(dolist (config configs) (directory-files local-dir))))
(let ((full-file (expand-file-name file site-dir))) (dolist (file configs)
(let ((full-file (expand-file-name file local-dir)))
(if (or (file-regular-p full-file) (file-symlink-p full-file)) (if (or (file-regular-p full-file) (file-symlink-p full-file))
(progn (message "Loading file %s" full-file) (progn (message "Loading file %s" full-file)
(load full-file)) (load full-file))
(message "Skipping invalid file %s" full-file)))))) (message "Skipping invalid file %s" full-file))))))
(provide 'config) (provide 'config)