diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 39 |
1 files changed, 1 insertions, 38 deletions
diff --git a/early-init.el b/early-init.el index 2fcee66..c7d4985 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -194,44 +194,7 @@ say, `tool-bar-mode' once to toggle the tool bar back on." | |||
194 | ;;; `setup' | 194 | ;;; `setup' |
195 | (straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup")) | 195 | (straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup")) |
196 | (require 'setup) | 196 | (require 'setup) |
197 | 197 | (require 'acdw-setup) | |
198 | (setup setup | ||
199 | ;; Install a package using `straight-use-package' | ||
200 | (setup-define :straight | ||
201 | (lambda (recipe) | ||
202 | `(straight-use-package ',recipe)) | ||
203 | :documentation | ||
204 | "Install RECIPE with `straight-use-package'. | ||
205 | This macro can be used as HEAD, and will replace itself with the | ||
206 | first RECIPE's package." | ||
207 | :repeatable t | ||
208 | :shorthand (lambda (sexp) | ||
209 | (let ((recipe (cadr sexp))) | ||
210 | (if (consp recipe) | ||
211 | (car recipe) | ||
212 | recipe)))) | ||
213 | ;; Install a package with straight, but only under a condition | ||
214 | (setup-define :straight-if | ||
215 | (lambda (recipe condition) | ||
216 | `(if ,condition | ||
217 | (straight-use-package ',recipe) | ||
218 | ,(setup-quit))) | ||
219 | :documentation | ||
220 | "Install RECIPE with `straight-use-package' when CONDITION is met. | ||
221 | If CONDITION is false, stop evaluating the body. This macro can | ||
222 | be used as HEAD, and will replace itself with the RECIPE's | ||
223 | package. This macro is not repeatable." | ||
224 | :repeatable nil | ||
225 | :shorthand (lambda (sexp) | ||
226 | (let ((recipe (cadr sexp))) | ||
227 | (if (consp recipe) (car recipe) recipe)))) | ||
228 | ;; Hotfix | ||
229 | (setup-define :file-match | ||
230 | (lambda (pat) | ||
231 | `(add-to-list 'auto-mode-alist (cons ,pat ',(setup-get 'mode)))) | ||
232 | :documentation "Associate the current mode with files that match PAT." | ||
233 | :debug '(form) | ||
234 | :repeatable t)) | ||
235 | 198 | ||
236 | ;;; `no-littering' | 199 | ;;; `no-littering' |
237 | (setup (:straight no-littering) | 200 | (setup (:straight no-littering) |