From 92718c3f315411abfb7ef623cc4239204dbc4b19 Mon Sep 17 00:00:00 2001
From: niten <niten@fudo.org>
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)