1 files changed, 12 insertions, 12 deletions
diff --git a/early-init.el b/early-init.el
index 3f1ebb0..622d220 100644
--- a/early-init.el
+++ b/early-init.el

@@ -51,10 +51,10 @@
        (height . 30)
        (left-fringe . 8)               ; Width of fringes
        (right-fringe . 8)              ; (8 is default)
-        (font . ,(pcase acdw/system
+        (font . ,(acdw/system
-                   (:home "DejaVu Sans Mono 10")
+                  (:home "DejaVu Sans Mono 10")
-                   (:work "Consolas 10")
+                  (:work "Consolas 10")
-                   (:other "monospace 10"))))
+                  (:other "monospace 10"))))
      frame-inhibit-implied-resize t    ; Don't resize randomly
      frame-resize-pixelwise t          ; Resize by pixels, not chars
      inhibit-x-resources t             ; Don't load ~/.Xresources
@@ -76,15 +76,15 @@
              (defun acdw/first-frame-setup ()
                ;; fonts
                (require 'acdw-fonts)
-                (setq acdw-fonts/monospace (pcase acdw/system
+                (setq acdw-fonts/monospace (acdw/system
-                                             (:home "DejaVu Sans Mono")
+                                            (:home "DejaVu Sans Mono")
-                                             (:work "Consolas")
+                                            (:work "Consolas")
-                                             (:other "monospace"))
+                                            (:other "monospace"))
                      acdw-fonts/monospace-size 10
-                      acdw-fonts/variable (pcase acdw/system
+                      acdw-fonts/variable (acdw/system
-                                            (:home "DejaVu Sans")
+                                           (:home "DejaVu Sans")
-                                            (:work "Calibri")
+                                           (:work "Calibri")
-                                            (:other "sans-serif"))
+                                           (:other "sans-serif"))
                      acdw-fonts/variable-size 12)
                (acdw-fonts/set)
                (acdw-fonts/setup-emoji-fonts "Segoe UI Emoji"

diff --git a/early-init.el b/early-init.el index 3f1ebb0..622d220 100644 --- a/early-init.el +++ b/early-init.el
@@ -51,10 +51,10 @@
51	(height . 30)	51	(height . 30)
52	(left-fringe . 8) ; Width of fringes	52	(left-fringe . 8) ; Width of fringes
53	(right-fringe . 8) ; (8 is default)	53	(right-fringe . 8) ; (8 is default)
54	(font . ,(pcase acdw/system	54	(font . ,(acdw/system
55	(:home "DejaVu Sans Mono 10")	55	(:home "DejaVu Sans Mono 10")
56	(:work "Consolas 10")	56	(:work "Consolas 10")
57	(:other "monospace 10"))))	57	(:other "monospace 10"))))
58	frame-inhibit-implied-resize t ; Don't resize randomly	58	frame-inhibit-implied-resize t ; Don't resize randomly
59	frame-resize-pixelwise t ; Resize by pixels, not chars	59	frame-resize-pixelwise t ; Resize by pixels, not chars
60	inhibit-x-resources t ; Don't load ~/.Xresources	60	inhibit-x-resources t ; Don't load ~/.Xresources
@@ -76,15 +76,15 @@
76	(defun acdw/first-frame-setup ()	76	(defun acdw/first-frame-setup ()
77	;; fonts	77	;; fonts
78	(require 'acdw-fonts)	78	(require 'acdw-fonts)
79	(setq acdw-fonts/monospace (pcase acdw/system	79	(setq acdw-fonts/monospace (acdw/system
80	(:home "DejaVu Sans Mono")	80	(:home "DejaVu Sans Mono")
81	(:work "Consolas")	81	(:work "Consolas")
82	(:other "monospace"))	82	(:other "monospace"))
83	acdw-fonts/monospace-size 10	83	acdw-fonts/monospace-size 10
84	acdw-fonts/variable (pcase acdw/system	84	acdw-fonts/variable (acdw/system
85	(:home "DejaVu Sans")	85	(:home "DejaVu Sans")
86	(:work "Calibri")	86	(:work "Calibri")
87	(:other "sans-serif"))	87	(:other "sans-serif"))
88	acdw-fonts/variable-size 12)	88	acdw-fonts/variable-size 12)
89	(acdw-fonts/set)	89	(acdw-fonts/set)
90	(acdw-fonts/setup-emoji-fonts "Segoe UI Emoji"	90	(acdw-fonts/setup-emoji-fonts "Segoe UI Emoji"