From 35aa88c98cbb6385f501e0adc5e6f6a6048a3348 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 1 Sep 2021 17:14:15 -0500
Subject: Change fonts depending on system

.. whatever
---
 early-init.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index 29b4d38..e8d02ad 100644
--- a/early-init.el
+++ b/early-init.el
@@ -82,9 +82,13 @@ say, `tool-bar-mode' once to toggle the tool bar back on."
           (defun after-make-frame@setup (&rest args)
             (ignore args)
             (let ((monospace-faces
-                   '((:font "DejaVu Sans Mono" :height 100)
-                     (:font "Consolas" :height 100)
-                     (:font "monospace" :height 100))))
+                   (acdw/system
+                    (:work '((:font "Consolas" :height 110)
+                             (:font "DejaVu Sans Mono" :height 110)
+                             (:font "monospace" :height 110)))
+                    (_ '((:font "DejaVu Sans Mono" :height 100)
+                         (:font "Consolas" :height 100)
+                         (:font "monospace" :height 100))))))
               (acdw/set-first-face-attribute 'default monospace-faces)
               (acdw/set-first-face-attribute 'fixed-pitch monospace-faces)
               (acdw/set-first-face-attribute 'variable-pitch
-- 
cgit 1.4.1-21-gabe81