diff options
Diffstat (limited to 'early-init.el')
| -rw-r--r-- | early-init.el | 23 |
1 files changed, 11 insertions, 12 deletions
| diff --git a/early-init.el b/early-init.el index 53059cd..8515fa9 100644 --- a/early-init.el +++ b/early-init.el | |||
| @@ -72,19 +72,18 @@ | |||
| 72 | 72 | ||
| 73 | (add-function :after after-focus-change-function | 73 | (add-function :after after-focus-change-function |
| 74 | (defun hook--setup-fonts () | 74 | (defun hook--setup-fonts () |
| 75 | (dolist (face '(default fixed-pitch)) | 75 | (require 'acdw-fonts) |
| 76 | ;; `default' and `fixed-pitch' should be the same. | 76 | (setq acdw-fonts/monospace (pcase acdw/system |
| 77 | (set-face-attribute face nil | 77 | (:home "DejaVu Sans Mono") |
| 78 | :font (pcase acdw/system | 78 | (:work "Consolas") |
| 79 | (:home "DejaVu Sans Mono-10") | 79 | (:other "monospace")) |
| 80 | (:work "Consolas-10") | 80 | acdw-fonts/monospace-size 10 |
| 81 | (:other "monospace-10")))) | 81 | acdw-fonts/variable (pcase acdw/system |
| 82 | ;; `variable-pitch' is, of course, different. | ||
| 83 | (set-face-attribute 'variable-pitch nil | ||
| 84 | :font (pcase acdw/system | ||
| 85 | (:home "DejaVu Sans") | 82 | (:home "DejaVu Sans") |
| 86 | (:work "Calibri-11") | 83 | (:work "Calibri") |
| 87 | (:other "sans-serif"))) | 84 | (:other "sans-serif")) |
| 85 | acdw-fonts/variable-size 11) | ||
| 86 | (acdw-fonts/set) | ||
| 88 | (remove-function after-focus-change-function | 87 | (remove-function after-focus-change-function |
| 89 | 'hook--setup-fonts))) | 88 | 'hook--setup-fonts))) |
| 90 | 89 | ||