From a8e71fa8c7be3840ce7063e3c09dc51f7119308c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 6 May 2022 10:21:02 -0500
Subject: Add straight :needs

---
 lisp/+setup.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lisp')

diff --git a/lisp/+setup.el b/lisp/+setup.el
index d5a3a77..919e312 100644
--- a/lisp/+setup.el
+++ b/lisp/+setup.el
@@ -126,6 +126,13 @@ The following keyword arguments are also recognized:
                  (let ((recipe (cadr sexp)))
                    (or (car-safe recipe) recipe)))))
 
+(setup-define :needs
+  (lambda (executable)
+    `(unless (executable-find ,executable)
+       ,(setup-quit)))
+  :documentation "If EXECUTABLE is not in the path, stop here."
+  :repeatable 1)
+
 
 ;;; Redefines of `setup' forms
 
-- 
cgit 1.4.1-21-gabe81