Add :load-after setup form

This commit is contained in:
Case Duckworth 2021-09-29 17:21:31 -05:00
parent 27681dda7c
commit b954ae483d
1 changed files with 11 additions and 0 deletions

View File

@ -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