diff options
| author | Case Duckworth | 2021-09-01 18:14:55 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-01 18:14:55 -0500 |
| commit | 963d94a0ec90311429807fdf1700271e54441f2c (patch) | |
| tree | d15583eb5a13c23d6e3e21c63c5fc69ddd0b6430 /early-init.el | |
| parent | Automatically call persistent-scratch-mode on *scratch* (diff) | |
| parent | Add acdw-org/work-month-headings (diff) | |
| download | emacs-963d94a0ec90311429807fdf1700271e54441f2c.tar.gz emacs-963d94a0ec90311429807fdf1700271e54441f2c.zip | |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'early-init.el')
| -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 |