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