From 4ff45377948e5d479077b808a6fa76206b5bb303 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 22 Apr 2021 11:50:19 -0500
Subject: Bail out of `setup' if straight fails

---
 init.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 54a5f66..06ccbfb 100644
--- a/init.el
+++ b/init.el
@@ -27,7 +27,10 @@
 
 (setup-define :straight
   (lambda (recipe)
-    `(straight-use-package ',recipe))
+    `(or (ignore-errors (straight-use-package ',recipe))
+         (progn
+           (message "Straight error: %S" ',recipe)
+           (throw 'setup-exit nil))))
   :documentation "Install RECIPE with `straight-use-package'."
   :repeatable t
   :shorthand (lambda (sexp)
-- 
cgit 1.4.1-21-gabe81