diff options
| author | Case Duckworth | 2022-01-17 13:45:32 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-17 13:45:32 -0600 |
| commit | 1394b10658f5059aeb5fa45a2985f4cac97f833d (patch) | |
| tree | 9a448cbcd0e6d94d337893f764f28fe1f833e77d /early-init.el | |
| parent | Add sort-setq (diff) | |
| download | emacs-1394b10658f5059aeb5fa45a2985f4cac97f833d.tar.gz emacs-1394b10658f5059aeb5fa45a2985f4cac97f833d.zip | |
So! Many! Changes!!
Diffstat (limited to 'early-init.el')
| -rw-r--r-- | early-init.el | 37 |
1 files changed, 17 insertions, 20 deletions
| diff --git a/early-init.el b/early-init.el index c87f2df..67b4271 100644 --- a/early-init.el +++ b/early-init.el | |||
| @@ -57,8 +57,7 @@ See `no-littering' for examples.") | |||
| 57 | (progn (require 'system) | 57 | (progn (require 'system) |
| 58 | (setq system-default-font "DejaVu Sans Mono" | 58 | (setq system-default-font "DejaVu Sans Mono" |
| 59 | system-variable-pitch-font "DejaVu Sans") | 59 | system-variable-pitch-font "DejaVu Sans") |
| 60 | (setq system-load-directory (sync/ "emacs/systems/" t)) | 60 | (system-settings-load)) |
| 61 | (system-settings-load nil :nowarn)) | ||
| 62 | 61 | ||
| 63 | ;;; Default frame settings | 62 | ;;; Default frame settings |
| 64 | 63 | ||
| @@ -75,7 +74,7 @@ See `no-littering' for examples.") | |||
| 75 | (bottom . right))) | 74 | (bottom . right))) |
| 76 | 75 | ||
| 77 | ;;; Fonts | 76 | ;;; Fonts |
| 78 | (progn | 77 | (+with-ensure-after-init |
| 79 | ;; Set default faces | 78 | ;; Set default faces |
| 80 | (+with-message "Setting default faces" | 79 | (+with-message "Setting default faces" |
| 81 | (let ((font-name system-default-font) | 80 | (let ((font-name system-default-font) |
| @@ -90,23 +89,21 @@ See `no-littering' for examples.") | |||
| 90 | :height variable-font-size))) | 89 | :height variable-font-size))) |
| 91 | 90 | ||
| 92 | ;; Emoji fonts | 91 | ;; Emoji fonts |
| 93 | (+ensure-after-init | 92 | (+with-message "Adding emoji fonts" |
| 94 | (lambda () | 93 | (let ((ffl (font-family-list))) |
| 95 | (+with-message "Adding emoji fonts" | 94 | (dolist (font '("Noto Color Emoji" |
| 96 | (let ((ffl (font-family-list))) | 95 | "Noto Emoji" |
| 97 | (dolist (font '("Noto Color Emoji" | 96 | "Segoe UI Emoji" |
| 98 | "Noto Emoji" | 97 | "Apple Color Emoji" |
| 99 | "Segoe UI Emoji" | 98 | "FreeSans" |
| 100 | "Apple Color Emoji" | 99 | "FreeMono" |
| 101 | "FreeSans" | 100 | "FreeSerif" |
| 102 | "FreeMono" | 101 | "Unifont" |
| 103 | "FreeSerif" | 102 | "Symbola")) |
| 104 | "Unifont" | 103 | (when (member font ffl) |
| 105 | "Symbola")) | 104 | (message "Found font: %s" font) |
| 106 | (when (member font ffl) | 105 | (set-fontset-font t 'symbol |
| 107 | (message "Found font: %s" font) | 106 | (font-spec :family font) nil :append)))))) |
| 108 | (set-fontset-font t 'symbol | ||
| 109 | (font-spec :family font) nil :append)))))))) | ||
| 110 | 107 | ||
| 111 | ;;; Packages | 108 | ;;; Packages |
| 112 | 109 | ||