From 6a6d966432a8aa9298c814bc976d988f7cdef4aa Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 3 Sep 2021 22:50:58 -0500
Subject: Move setup-defines into acdw-setup.el

---
 early-init.el | 39 +--------------------------------------
 1 file changed, 1 insertion(+), 38 deletions(-)

(limited to 'early-init.el')

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."
 ;;; `setup'
 (straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup"))
 (require 'setup)
-
-(setup setup
-  ;; Install a package using `straight-use-package'
-  (setup-define :straight
-    (lambda (recipe)
-      `(straight-use-package ',recipe))
-    :documentation
-    "Install RECIPE with `straight-use-package'.
-This macro can be used as HEAD, and will replace itself with the
-first RECIPE's package."
-    :repeatable t
-    :shorthand (lambda (sexp)
-                 (let ((recipe (cadr sexp)))
-                   (if (consp recipe)
-                       (car recipe)
-                     recipe))))
-  ;; Install a package with straight, but only under a condition
-  (setup-define :straight-if
-    (lambda (recipe condition)
-      `(if ,condition
-           (straight-use-package ',recipe)
-         ,(setup-quit)))
-    :documentation
-    "Install RECIPE with `straight-use-package' when CONDITION is met.
-If CONDITION is false, stop evaluating the body.  This macro can
-be used as HEAD, and will replace itself with the RECIPE's
-package.  This macro is not repeatable."
-    :repeatable nil
-    :shorthand (lambda (sexp)
-                 (let ((recipe (cadr sexp)))
-                   (if (consp recipe) (car recipe) recipe))))
-  ;; Hotfix
-  (setup-define :file-match
-    (lambda (pat)
-      `(add-to-list 'auto-mode-alist (cons ,pat ',(setup-get 'mode))))
-    :documentation "Associate the current mode with files that match PAT."
-    :debug '(form)
-    :repeatable t))
+(require 'acdw-setup)
 
 ;;; `no-littering'
 (setup (:straight no-littering)
-- 
cgit 1.4.1-21-gabe81