From 724c0a6fce9a08162124b862e1aa9dfa02ed80ad Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 5 Jan 2022 18:19:47 -0600
Subject: Fix :setup form

I had to end the `ignore-errors' form with t
---
 lisp/+setup.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lisp/+setup.el')

diff --git a/lisp/+setup.el b/lisp/+setup.el
index c6bcb9e..fbd9d61 100644
--- a/lisp/+setup.el
+++ b/lisp/+setup.el
@@ -33,9 +33,9 @@
 (setup-define :load-after
     (lambda (&rest features)
       (let ((body `(require ',(setup-get 'feature))))
-	(dolist (feature (nreverse features))
-	  (setq body `(with-eval-after-load ',feature ,body)))
-	body))
+    (dolist (feature (nreverse features))
+      (setq body `(with-eval-after-load ',feature ,body)))
+    body))
   :documentation "Load the current feature after FEATURES.")
 
 (setup-define :also-straight
@@ -47,8 +47,8 @@
 
 (setup-define :straight
     (lambda (recipe)
-      `(unless (ignore-errors (straight-use-package ',recipe))
-	     ,(setup-quit)))
+      `(unless (ignore-errors (straight-use-package ',recipe) t)
+         ,(setup-quit)))
   :documentation
   "Install RECIPE with `straight-use-package'.
 This macro can be used as HEAD, and will replace itself with the
@@ -63,7 +63,7 @@ first RECIPE's package."
 (setup-define :straight-when
   (lambda (recipe condition)
     `(unless (and ,condition
-		  (straight-use-package ',recipe))
+                  (ignore-errors (straight-use-package ',recipe) t))
        ,(setup-quit)))
   :documentation
   "Install RECIPE with `straight-use-package' when CONDITION is met.
-- 
cgit 1.4.1-21-gabe81