Add :load-after setup form
This commit is contained in:
parent
27681dda7c
commit
b954ae483d
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue