From 4ba0c92df0e4d4e5406fe0fe676709b973674978 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 30 Mar 2021 12:30:51 -0500
Subject: Set all fonts on all possible systems

---
 early-init.el |  3 ++-
 init.el       | 14 ++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/early-init.el b/early-init.el
index adc876a..2a6e068 100644
--- a/early-init.el
+++ b/early-init.el
@@ -57,7 +57,8 @@
         (right-fringe . 8)		; (8 is default)
         (font . ,(pcase acdw/system
                    (:home "DejaVu Sans Mono 10")
-                   (:work "Consolas 10"))))
+                   (:work "Consolas 10")
+                   (:other "monospace 10"))))
       frame-inhibit-implied-resize t	; Don't resize randomly
       frame-resize-pixelwise t	; Resize by pixels, not chars
       )
diff --git a/init.el b/init.el
index b2236a1..f7db5e0 100644
--- a/init.el
+++ b/init.el
@@ -221,6 +221,20 @@
       scroll-conservatively 101
       scroll-preserve-screen-position 1)
 
+;; Fonts
+(set-face-attribute 'default nil
+                    :font (pcase acdw/system
+                            (:home "DejaVu Sans Mono-10")
+                            (:work "Consolas-10")
+                            (:other "monospace-10")))
+(set-face-attribute 'fixed-pitch nil
+                    :inherit 'default)
+(set-face-attribute 'variable-pitch nil
+                    :font (pcase acdw/system
+                            (:home "DejaVu Sans")
+                            (:work "Calibri-11")
+                            (:other "sans-serif")))
+
 ;; MS Windows
 (setc w32-allow-system-shell t
       w32-pass-lwindow-to-system nil
-- 
cgit 1.4.1-21-gabe81