From b954ae483d0d00e04ae94d33dd6e8d209b8f1e09 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 29 Sep 2021 17:21:31 -0500
Subject: Add :load-after setup form

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

(limited to 'lisp')

diff --git a/lisp/acdw-setup.el b/lisp/acdw-setup.el
index e271faa..eb4d12b 100644
--- a/lisp/acdw-setup.el
+++ b/lisp/acdw-setup.el
@@ -87,5 +87,16 @@ package.  This macro is not repeatable."
                (let ((recipe (cadr sexp)))
                  (if (consp recipe) (car recipe) recipe))))
 
+;; https://www.emacswiki.org/emacs/SetupEl
+(setup-define :load-after
+  (lambda (&rest features)
+    (let ((body `(require ',(setup-get 'feature))))
+      (dolist (feature (if (listp features)
+                           (nreverse features)
+                         (list features)))
+        (setq body `(with-eval-after-load ',feature ,body)))
+      body))
+  :documentation "Load the current feature after FEATURES.")
+
 (provide 'acdw-setup)
 ;;; acdw-setup.el ends here
-- 
cgit 1.4.1-21-gabe81