From 92718c3f315411abfb7ef623cc4239204dbc4b19 Mon Sep 17 00:00:00 2001 From: niten Date: Mon, 13 Nov 2023 08:58:08 -0800 Subject: [PATCH] Don't try to load local config there's no dir --- config.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/config.el b/config.el index 4c51749..5096431 100644 --- a/config.el +++ b/config.el @@ -162,16 +162,17 @@ (let ((local-dir (if (getenv "DOOM_EMACS_LOCAL_PATH") (getenv "DOOM_EMACS_LOCAL_PATH") (expand-file-name ".local/emacs.d/" (getenv "HOME"))))) - (let ((configs (filter (lambda (name) - (not (or (string-match "~$" name) - (string-match "^[.]" name)))) - (directory-files local-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)) - (progn (message "Loading file %s" full-file) - (load full-file)) - (message "Skipping invalid file %s" full-file)))))) + (when (file-exists-p local-dir) + (let ((configs (filter (lambda (name) + (not (or (string-match "~$" name) + (string-match "^[.]" name)))) + (directory-files local-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)) + (progn (message "Loading file %s" full-file) + (load full-file)) + (message "Skipping invalid file %s" full-file))))))) (provide 'config)