Debug log missing modules; remove log! macro
This commit is contained in:
parent
5b80fce905
commit
b5db4f1fb6
3 changed files with 5 additions and 11 deletions
|
@ -79,12 +79,3 @@ interactive session."
|
||||||
(ansi-color-apply-on-region beg end)))
|
(ansi-color-apply-on-region beg end)))
|
||||||
(pop-to-buffer buf)
|
(pop-to-buffer buf)
|
||||||
(goto-char (point-max)))))
|
(goto-char (point-max)))))
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro log! (message &rest args)
|
|
||||||
"Output a debug message if `doom-debug-mode' is non-nil. Otherwise, ignore this."
|
|
||||||
(when doom-debug-mode
|
|
||||||
`(message
|
|
||||||
"LOG: %s"
|
|
||||||
(propertize (format ,message ,@args)
|
|
||||||
'face 'font-lock-comment-face))))
|
|
||||||
|
|
|
@ -196,7 +196,8 @@ Used by `doom//packages-update'."
|
||||||
;; asynchronously.
|
;; asynchronously.
|
||||||
(let (futures)
|
(let (futures)
|
||||||
(dolist (pkg quelpa-pkgs)
|
(dolist (pkg quelpa-pkgs)
|
||||||
(log! "New thread for: %s" pkg)
|
(when doom-debug-mode
|
||||||
|
(message "New thread for: %s" pkg))
|
||||||
(push (async-start
|
(push (async-start
|
||||||
`(lambda ()
|
`(lambda ()
|
||||||
(setq user-emacs-directory ,user-emacs-directory)
|
(setq user-emacs-directory ,user-emacs-directory)
|
||||||
|
|
|
@ -362,7 +362,9 @@ MODULES is an malformed plist of modules to load."
|
||||||
((let ((submodule (if (listp m) (car m) m))
|
((let ((submodule (if (listp m) (car m) m))
|
||||||
(flags (if (listp m) (cdr m))))
|
(flags (if (listp m) (cdr m))))
|
||||||
(let ((path (doom-module-find-path module submodule)))
|
(let ((path (doom-module-find-path module submodule)))
|
||||||
(when path
|
(if (not path)
|
||||||
|
(when doom-debug-mode
|
||||||
|
(message "Couldn't find the %s %s module" module submodule))
|
||||||
(doom-module-set module submodule :flags flags :path path)
|
(doom-module-set module submodule :flags flags :path path)
|
||||||
(push `(let ((doom--current-module ',(cons module submodule)))
|
(push `(let ((doom--current-module ',(cons module submodule)))
|
||||||
(load! init ,path t))
|
(load! init ,path t))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue