Debug log missing modules; remove log! macro

This commit is contained in:
Henrik Lissner 2018-03-24 04:38:05 -04:00
parent 5b80fce905
commit b5db4f1fb6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 5 additions and 11 deletions

View file

@ -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))))

View file

@ -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)

View file

@ -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))