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(+) 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