diff options
| -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 |