From 1394b10658f5059aeb5fa45a2985f4cac97f833d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Jan 2022 13:45:32 -0600
Subject: So! Many! Changes!!

---
 early-init.el | 37 +++++++++++++++++--------------------
 1 file changed, 17 insertions(+), 20 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index c87f2df..67b4271 100644
--- a/early-init.el
+++ b/early-init.el
@@ -57,8 +57,7 @@ See `no-littering' for examples.")
 (progn (require 'system)
        (setq system-default-font "DejaVu Sans Mono"
              system-variable-pitch-font "DejaVu Sans")
-       (setq system-load-directory (sync/ "emacs/systems/" t))
-       (system-settings-load nil :nowarn))
+       (system-settings-load))
 
 ;;; Default frame settings
 
@@ -75,7 +74,7 @@ See `no-littering' for examples.")
                                    (bottom . right)))
 
 ;;; Fonts
-(progn
+(+with-ensure-after-init
   ;; Set default faces
   (+with-message "Setting default faces"
     (let ((font-name system-default-font)
@@ -90,23 +89,21 @@ See `no-littering' for examples.")
                           :height variable-font-size)))
 
   ;; Emoji fonts
-  (+ensure-after-init
-   (lambda ()
-    (+with-message "Adding emoji fonts"
-      (let ((ffl (font-family-list)))
-        (dolist (font '("Noto Color Emoji"
-                        "Noto Emoji"
-                        "Segoe UI Emoji"
-                        "Apple Color Emoji"
-                        "FreeSans"
-                        "FreeMono"
-                        "FreeSerif"
-                        "Unifont"
-                        "Symbola"))
-          (when (member font ffl)
-            (message "Found font: %s" font)
-            (set-fontset-font t 'symbol
-                              (font-spec :family font) nil :append))))))))
+  (+with-message "Adding emoji fonts"
+    (let ((ffl (font-family-list)))
+      (dolist (font '("Noto Color Emoji"
+                      "Noto Emoji"
+                      "Segoe UI Emoji"
+                      "Apple Color Emoji"
+                      "FreeSans"
+                      "FreeMono"
+                      "FreeSerif"
+                      "Unifont"
+                      "Symbola"))
+        (when (member font ffl)
+          (message "Found font: %s" font)
+          (set-fontset-font t 'symbol
+                            (font-spec :family font) nil :append))))))
 
 ;;; Packages
 
-- 
cgit 1.4.1-21-gabe81