From b727d4f684a2611351189e134b64fcef3661d9f8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 11 May 2021 09:44:04 -0500
Subject: Add `acdw/system' macro

`acdw/system' eases configuration -- it returns the system when called with no
arguments, acts as a test with one argument, or as a `pcase' with more than one
argument.
---
 early-init.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'early-init.el')

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
-                   (:home "DejaVu Sans Mono 10")
-                   (:work "Consolas 10")
-                   (:other "monospace 10"))))
+        (font . ,(acdw/system
+                  (:home "DejaVu Sans Mono 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
       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
-                                             (:home "DejaVu Sans Mono")
-                                             (:work "Consolas")
-                                             (:other "monospace"))
+                (setq acdw-fonts/monospace (acdw/system
+                                            (:home "DejaVu Sans Mono")
+                                            (:work "Consolas")
+                                            (:other "monospace"))
                       acdw-fonts/monospace-size 10
-                      acdw-fonts/variable (pcase acdw/system
-                                            (:home "DejaVu Sans")
-                                            (:work "Calibri")
-                                            (:other "sans-serif"))
+                      acdw-fonts/variable (acdw/system
+                                           (:home "DejaVu Sans")
+                                           (:work "Calibri")
+                                           (:other "sans-serif"))
                       acdw-fonts/variable-size 12)
                 (acdw-fonts/set)
                 (acdw-fonts/setup-emoji-fonts "Segoe UI Emoji"
-- 
cgit 1.4.1-21-gabe81