1 files changed, 10 insertions, 2 deletions

@@ -24,6 +24,10 @@
 (require 'setup)
 (require 'straight)
 
+(defun +setup-warn (message &rest args)
+  "Warn the user that something bad happened in `setup'."
+  (display-warning 'setup (format message args)))
+
 (setup-define :face
     (lambda (face spec)
       `(custom-set-faces '(,face ,spec 'now "Customized by `setup'.")))
@@ -48,6 +52,7 @@
 (setup-define :straight
     (lambda (recipe)
       `(unless (ignore-errors (straight-use-package ',recipe) t)
+         (+setup-warn ":straight error: %S" ',recipe)
          ,(setup-quit)))
   :documentation
   "Install RECIPE with `straight-use-package'.
@@ -62,8 +67,11 @@ first RECIPE's package."
 
 (setup-define :straight-when
   (lambda (recipe condition)
-    `(unless (and ,condition
-                  (ignore-errors (straight-use-package ',recipe) t))
+    `(if ,condition
+         (unless (ignore-errors (straight-use-package ',recipe) t)
+           (+setup-warn ":straight error: %S" ',recipe)
+           ,(setup-quit))
+       (message "Setup: :straight-when returned nil %S" ',recipe)
        ,(setup-quit)))
   :documentation
   "Install RECIPE with `straight-use-package' when CONDITION is met.