diff options
| author | Case Duckworth | 2022-01-05 18:19:47 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-05 18:19:47 -0600 |
| commit | 724c0a6fce9a08162124b862e1aa9dfa02ed80ad (patch) | |
| tree | 039443624cd52715e6b0271e2b1e2be155913d7d | |
| parent | Lots of changes, maybe breaking something (diff) | |
| download | emacs-724c0a6fce9a08162124b862e1aa9dfa02ed80ad.tar.gz emacs-724c0a6fce9a08162124b862e1aa9dfa02ed80ad.zip | |
Fix :setup form
I had to end the `ignore-errors' form with t
| -rw-r--r-- | lisp/+setup.el | 12 |
1 files changed, 6 insertions, 6 deletions
| 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 @@ | |||
| 33 | (setup-define :load-after | 33 | (setup-define :load-after |
| 34 | (lambda (&rest features) | 34 | (lambda (&rest features) |
| 35 | (let ((body `(require ',(setup-get 'feature)))) | 35 | (let ((body `(require ',(setup-get 'feature)))) |
| 36 | (dolist (feature (nreverse features)) | 36 | (dolist (feature (nreverse features)) |
| 37 | (setq body `(with-eval-after-load ',feature ,body))) | 37 | (setq body `(with-eval-after-load ',feature ,body))) |
| 38 | body)) | 38 | body)) |
| 39 | :documentation "Load the current feature after FEATURES.") | 39 | :documentation "Load the current feature after FEATURES.") |
| 40 | 40 | ||
| 41 | (setup-define :also-straight | 41 | (setup-define :also-straight |
| @@ -47,8 +47,8 @@ | |||
| 47 | 47 | ||
| 48 | (setup-define :straight | 48 | (setup-define :straight |
| 49 | (lambda (recipe) | 49 | (lambda (recipe) |
| 50 | `(unless (ignore-errors (straight-use-package ',recipe)) | 50 | `(unless (ignore-errors (straight-use-package ',recipe) t) |
| 51 | ,(setup-quit))) | 51 | ,(setup-quit))) |
| 52 | :documentation | 52 | :documentation |
| 53 | "Install RECIPE with `straight-use-package'. | 53 | "Install RECIPE with `straight-use-package'. |
| 54 | This macro can be used as HEAD, and will replace itself with the | 54 | This macro can be used as HEAD, and will replace itself with the |
| @@ -63,7 +63,7 @@ first RECIPE's package." | |||
| 63 | (setup-define :straight-when | 63 | (setup-define :straight-when |
| 64 | (lambda (recipe condition) | 64 | (lambda (recipe condition) |
| 65 | `(unless (and ,condition | 65 | `(unless (and ,condition |
| 66 | (straight-use-package ',recipe)) | 66 | (ignore-errors (straight-use-package ',recipe) t)) |
| 67 | ,(setup-quit))) | 67 | ,(setup-quit))) |
| 68 | :documentation | 68 | :documentation |
| 69 | "Install RECIPE with `straight-use-package' when CONDITION is met. | 69 | "Install RECIPE with `straight-use-package' when CONDITION is met. |