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 ;; Add my modules
(progn (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/")) (let ((default-directory lisp-dir))
(normal-top-level-add-subdirs-to-load-path)) (normal-top-level-add-subdirs-to-load-path))
(let ((default-directory "~/.emacs.d/submodule/")) (let ((default-directory
(normal-top-level-add-subdirs-to-load-path))) (expand-file-name "submodule/"
user-emacs-directory)))
(normal-top-level-add-subdirs-to-load-path))))
(require 'libs) (require 'libs)
(require 'emacs-custom-load-or-ask) (require 'emacs-custom-load-or-ask)

View file

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