diff options
| author | Case Duckworth | 2021-05-11 09:44:04 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-05-11 09:44:04 -0500 |
| commit | b727d4f684a2611351189e134b64fcef3661d9f8 (patch) | |
| tree | a46633d53f0881e62611c87e91b0b9116a9467b3 /early-init.el | |
| parent | Change subscription method to use a file (diff) | |
| download | emacs-b727d4f684a2611351189e134b64fcef3661d9f8.tar.gz emacs-b727d4f684a2611351189e134b64fcef3661d9f8.zip | |
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.
Diffstat (limited to 'early-init.el')
| -rw-r--r-- | early-init.el | 24 |
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 @@ | |||
| 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" |