From b5db4f1fb6d40b0cef0ddb90a360be6504d8aa69 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 24 Mar 2018 04:38:05 -0400 Subject: [PATCH] Debug log missing modules; remove log! macro --- core/autoload/message.el | 9 --------- core/autoload/packages.el | 3 ++- core/core-packages.el | 4 +++- 3 files changed, 5 insertions(+), 11 deletions(-) diff --git a/core/autoload/message.el b/core/autoload/message.el index 842e1a37e..33197690a 100644 --- a/core/autoload/message.el +++ b/core/autoload/message.el @@ -79,12 +79,3 @@ interactive session." (ansi-color-apply-on-region beg end))) (pop-to-buffer buf) (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)))) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index c9babd6f8..8095c01ff 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -196,7 +196,8 @@ Used by `doom//packages-update'." ;; asynchronously. (let (futures) (dolist (pkg quelpa-pkgs) - (log! "New thread for: %s" pkg) + (when doom-debug-mode + (message "New thread for: %s" pkg)) (push (async-start `(lambda () (setq user-emacs-directory ,user-emacs-directory) diff --git a/core/core-packages.el b/core/core-packages.el index 6197a0832..72da9319a 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -362,7 +362,9 @@ MODULES is an malformed plist of modules to load." ((let ((submodule (if (listp m) (car m) m)) (flags (if (listp m) (cdr m)))) (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) (push `(let ((doom--current-module ',(cons module submodule))) (load! init ,path t))