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

Wait...how was this working?

Browse Source 
This is loading files from the path we're _in_. This shouldn't be here.
This commit is contained in:
peter.selby@bytedance.com 2023-12-07 11:25:36 -08:00
parent f3aa46daf7
commit d9b27d9c32
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
config.el
View File

@ -145,19 +145,19 @@
(add-hook 'org-after-todo-statistics-hook #'org-summary-todo) (add-hook 'org-after-todo-statistics-hook #'org-summary-todo)
(let ((site-dir (if (getenv "DOOM_EMACS_SITE_PATH") ;; (let ((site-dir (if (getenv "DOOM_EMACS_SITE_PATH")
(getenv "DOOM_EMACS_SITE_PATH") ;; (getenv "DOOM_EMACS_SITE_PATH")
(expand-file-name ".doom.d/site.d/")))) ;; (expand-file-name ".doom.d/site.d/"))))
(let ((configs (filter (lambda (name) ;; (let ((configs (filter (lambda (name)
(not (or (string-match "~$" name) ;; (not (or (string-match "~$" name)
(string-match "^[.]" name)))) ;; (string-match "^[.]" name))))
(directory-files site-dir)))) ;; (directory-files site-dir))))
(dolist (file configs) ;; (dolist (file configs)
(let ((full-file (expand-file-name file site-dir))) ;; (let ((full-file (expand-file-name file site-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))))))
(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")