diff options
| author | Case Duckworth | 2021-09-29 17:21:31 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-29 17:21:31 -0500 |
| commit | b954ae483d0d00e04ae94d33dd6e8d209b8f1e09 (patch) | |
| tree | f507d25148eb69d5816878694b8345bacec84911 /lisp | |
| parent | Add comment to patch acdw-re (diff) | |
| download | emacs-b954ae483d0d00e04ae94d33dd6e8d209b8f1e09.tar.gz emacs-b954ae483d0d00e04ae94d33dd6e8d209b8f1e09.zip | |
Add :load-after setup form
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-setup.el | 11 |
1 files changed, 11 insertions, 0 deletions
| 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." | |||
| 87 | (let ((recipe (cadr sexp))) | 87 | (let ((recipe (cadr sexp))) |
| 88 | (if (consp recipe) (car recipe) recipe)))) | 88 | (if (consp recipe) (car recipe) recipe)))) |
| 89 | 89 | ||
| 90 | ;; https://www.emacswiki.org/emacs/SetupEl | ||
| 91 | (setup-define :load-after | ||
| 92 | (lambda (&rest features) | ||
| 93 | (let ((body `(require ',(setup-get 'feature)))) | ||
| 94 | (dolist (feature (if (listp features) | ||
| 95 | (nreverse features) | ||
| 96 | (list features))) | ||
| 97 | (setq body `(with-eval-after-load ',feature ,body))) | ||
| 98 | body)) | ||
| 99 | :documentation "Load the current feature after FEATURES.") | ||
| 100 | |||
| 90 | (provide 'acdw-setup) | 101 | (provide 'acdw-setup) |
| 91 | ;;; acdw-setup.el ends here | 102 | ;;; acdw-setup.el ends here |