Almost there, but need to get rid of interactive prompts

This commit is contained in:
Benson Chu 2023-02-27 20:52:35 -06:00
parent afa2f3f98e
commit ff5a8274f9
2 changed files with 12 additions and 9 deletions

14
init.el
View file

@ -35,13 +35,17 @@
;; Add my modules
(progn
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp"))
(let ((lisp-dir (expand-file-name "lisp/"
user-emacs-directory)))
(add-to-list 'load-path lisp-dir)
(let ((default-directory "~/.emacs.d/lisp/"))
(normal-top-level-add-subdirs-to-load-path))
(let ((default-directory lisp-dir))
(normal-top-level-add-subdirs-to-load-path))
(let ((default-directory "~/.emacs.d/submodule/"))
(normal-top-level-add-subdirs-to-load-path)))
(let ((default-directory
(expand-file-name "submodule/"
user-emacs-directory)))
(normal-top-level-add-subdirs-to-load-path))))
(require 'libs)
(require 'emacs-custom-load-or-ask)

View file

@ -25,12 +25,11 @@
;;; Code:
(message "Loading Emacs config...")
(setq user-emacs-directory (expand-file-name "./"))
(let ((inhibit-message t))
(load (expand-file-name "init.el"
user-emacs-directory)))
(load (expand-file-name "init.el")))
(message "Running tests...")
(load (expand-file-name "tests/my-org-tests.el"
user-emacs-directory))
(load (expand-file-name "tests/my-org-tests.el"))
(provide 'run-tests)
;;; run-tests.el ends here