Add straight :needs

2022-05-06 10:21:02 -05:00 · 2022-05-06 10:21:02 -05:00 · a8e71fa8c7
parent 144e5244d2
commit a8e71fa8c7
1 changed files with 7 additions and 0 deletions
--- 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