|
105 | 105 |
|
106 | 106 | (require 'core-cli (expand-file-name "core/core-cli" user-emacs-directory)) |
107 | 107 |
|
| 108 | +;; Load $DOOMDIR/init.el, to read the user's `doom!' block, and so users can |
| 109 | +;; customize things early, if they like. |
| 110 | +(load! doom-module-init-file doom-private-dir t) |
| 111 | + |
108 | 112 |
|
109 | 113 | ;; |
110 | 114 | ;;; Entry point |
@@ -218,9 +222,6 @@ SEE ALSO: |
218 | 222 | (when pager |
219 | 223 | (setenv "DOOMPAGER" pager)) |
220 | 224 | (exit! :restart)) |
221 | | - ;; Load $DOOMDIR/init.el, so users can customize things, if they like. |
222 | | - (doom-log "Loading $DOOMDIR/init.el") |
223 | | - (load! doom-module-init-file doom-private-dir t) |
224 | 225 | ;; Load extra files and forms, as per given options. |
225 | 226 | (dolist (file loads) |
226 | 227 | (load (doom-path (cdr file)) |
@@ -288,10 +289,9 @@ SEE ALSO: |
288 | 289 | (let ((cli-file "cli")) |
289 | 290 | (defgroup! "Module commands" |
290 | 291 | (dolist (key (hash-table-keys doom-modules)) |
291 | | - (when-let* ((path (plist-get (gethash key doom-modules) path)) |
292 | | - (path (car (doom-glob path cli-file)))) |
| 292 | + (when-let (path (plist-get (gethash key doom-modules) :path)) |
293 | 293 | (defgroup! :prefix (format "+%s" (cdr key)) |
294 | | - (defautoload! () path))))) |
| 294 | + (load! cli-file path t))))) |
295 | 295 |
|
296 | 296 | (doom-log "Loading $DOOMDIR/cli.el") |
297 | 297 | (load! cli-file doom-private-dir t)))) |
|
0 commit comments