diff options
| author | Case Duckworth | 2021-09-01 17:14:15 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-01 17:14:15 -0500 |
| commit | 35aa88c98cbb6385f501e0adc5e6f6a6048a3348 (patch) | |
| tree | 0632646c0d88a118f17d73eb7a4102b26b359cad | |
| parent | Add requirements for affe (diff) | |
| download | emacs-35aa88c98cbb6385f501e0adc5e6f6a6048a3348.tar.gz emacs-35aa88c98cbb6385f501e0adc5e6f6a6048a3348.zip | |
Change fonts depending on system
.. whatever
| -rw-r--r-- | early-init.el | 10 |
1 files changed, 7 insertions, 3 deletions
| 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." | |||
| 82 | (defun after-make-frame@setup (&rest args) | 82 | (defun after-make-frame@setup (&rest args) |
| 83 | (ignore args) | 83 | (ignore args) |
| 84 | (let ((monospace-faces | 84 | (let ((monospace-faces |
| 85 | '((:font "DejaVu Sans Mono" :height 100) | 85 | (acdw/system |
| 86 | (:font "Consolas" :height 100) | 86 | (:work '((:font "Consolas" :height 110) |
| 87 | (:font "monospace" :height 100)))) | 87 | (:font "DejaVu Sans Mono" :height 110) |
| 88 | (:font "monospace" :height 110))) | ||
| 89 | (_ '((:font "DejaVu Sans Mono" :height 100) | ||
| 90 | (:font "Consolas" :height 100) | ||
| 91 | (:font "monospace" :height 100)))))) | ||
| 88 | (acdw/set-first-face-attribute 'default monospace-faces) | 92 | (acdw/set-first-face-attribute 'default monospace-faces) |
| 89 | (acdw/set-first-face-attribute 'fixed-pitch monospace-faces) | 93 | (acdw/set-first-face-attribute 'fixed-pitch monospace-faces) |
| 90 | (acdw/set-first-face-attribute 'variable-pitch | 94 | (acdw/set-first-face-attribute 'variable-pitch |