From e4f7ed9609d85f80f3f54dae7485f06a49fc4d3c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 11 Jan 2022 16:01:03 -0600
Subject: Lots o changes at work

I need to fix +circe-define-filter or something
---
 early-init.el | 54 ++++++++++++++++++++++++++----------------------------
 1 file changed, 26 insertions(+), 28 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index 2cfcb84..508336e 100644
--- a/early-init.el
+++ b/early-init.el
@@ -75,34 +75,32 @@ See `no-littering' for examples.")
                                    (bottom . right)))
 
 ;;; Fonts
-
-;; Set default faces
-
-(let ((font-name system-default-font)
-      (font-size system-default-height)
-      (variable-font-name system-variable-pitch-font)
-      (variable-font-size system-variable-pitch-height))
-  (set-face-attribute 'default nil :family system-default-font
-                      :height font-size :weight 'book)
-  (set-face-attribute 'italic nil :family font-name
-                      :height font-size :slant 'italic)
-  (set-face-attribute 'variable-pitch nil :family variable-font-name
-                      :height variable-font-size))
-
-;; 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)
-      (set-fontset-font t 'symbol (font-spec :family font) nil :append))))
+(progn
+ ;; Set default faces
+ (let ((font-name system-default-font)
+       (font-size system-default-height)
+       (variable-font-name system-variable-pitch-font)
+       (variable-font-size system-variable-pitch-height))
+   (set-face-attribute 'default nil :family system-default-font
+                       :height font-size :weight 'book)
+   (set-face-attribute 'italic nil :family font-name
+                       :height font-size :slant 'italic)
+   (set-face-attribute 'variable-pitch nil :family variable-font-name
+                       :height variable-font-size))
+
+ ;; 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)
+       (set-fontset-font t 'symbol (font-spec :family font) nil :append)))))
 
 ;;; Packages
 
-- 
cgit 1.4.1-21-gabe81