From ff5d125f66c197e6c07ba3e546aad1b5c8a16bcb Mon Sep 17 00:00:00 2001 From: "peter.selby@bytedance.com" Date: Fri, 10 Nov 2023 09:37:04 -0800 Subject: [PATCH] Allow for local emacs config --- config.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/config.el b/config.el index 2adaedd..74fbe5b 100644 --- a/config.el +++ b/config.el @@ -159,6 +159,19 @@ (load full-file)) (message "Skipping invalid file %s" full-file)))))) +(let ((local-dir (if (getenv "DOOM_EMACS_LOCAL_PATH") + (getenv "DOOM_EMACS_LOCAL_PATH") + (expand-file-name ".local/emacs" (getenv "HOME"))))) + (let ((configs (filter (lambda (name) (not (or (string-match "~$" name) + (string-match "^[.]" name))) + (directory-files local-dir))))) + (dolist (config configs) + (let ((full-file (expand-file-name file site-dir))) + (if (or (file-regular-p full-file) (file-symlink-p full-file)) + (progn (message "Loading file %s" full-file) + (load full-file)) + (message "Skipping invalid file %s" full-file)))))) + (provide 'config) ;;; config.el ends here