1 files changed, 15 insertions, 0 deletions

@@ -135,5 +135,20 @@ The arguments REST are handled as by `:bind'."
   :debug '(sexp &rest form sexp)
   :indent 1)
 
+(setup-define :require
+  (lambda (&rest features)
+    (require 'cl-lib)
+    (if features
+        `(progn ,@(cl-loop for feature in features collect
+                           `(unless (require ',feature nil t)
+                              ,(setup-quit))))
+      `(unless (require ',(setup-get 'feature) nil t)
+         ,(setup-quit))))
+  :documentation "Try to require FEATURE, or stop evaluating body.
+This macro can be used as NAME, and it will replace itself with
+the first FEATURE."
+  :repeatable nil
+  :shorthand #'cadr)
+
 (provide '+setup)
 ;;; +setup.el ends here