diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 54 |
1 files changed, 26 insertions, 28 deletions
diff --git a/early-init.el b/early-init.el index 2cfcb84..508336e 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -75,34 +75,32 @@ See `no-littering' for examples.") | |||
75 | (bottom . right))) | 75 | (bottom . right))) |
76 | 76 | ||
77 | ;;; Fonts | 77 | ;;; Fonts |
78 | 78 | (progn | |
79 | ;; Set default faces | 79 | ;; Set default faces |
80 | 80 | (let ((font-name system-default-font) | |
81 | (let ((font-name system-default-font) | 81 | (font-size system-default-height) |
82 | (font-size system-default-height) | 82 | (variable-font-name system-variable-pitch-font) |
83 | (variable-font-name system-variable-pitch-font) | 83 | (variable-font-size system-variable-pitch-height)) |
84 | (variable-font-size system-variable-pitch-height)) | 84 | (set-face-attribute 'default nil :family system-default-font |
85 | (set-face-attribute 'default nil :family system-default-font | 85 | :height font-size :weight 'book) |
86 | :height font-size :weight 'book) | 86 | (set-face-attribute 'italic nil :family font-name |
87 | (set-face-attribute 'italic nil :family font-name | 87 | :height font-size :slant 'italic) |
88 | :height font-size :slant 'italic) | 88 | (set-face-attribute 'variable-pitch nil :family variable-font-name |
89 | (set-face-attribute 'variable-pitch nil :family variable-font-name | 89 | :height variable-font-size)) |
90 | :height variable-font-size)) | 90 | |
91 | 91 | ;; Emoji fonts | |
92 | ;; Emoji fonts | 92 | (let ((ffl (font-family-list))) |
93 | 93 | (dolist (font '("Noto Color Emoji" | |
94 | (let ((ffl (font-family-list))) | 94 | "Noto Emoji" |
95 | (dolist (font '("Noto Color Emoji" | 95 | "Segoe UI Emoji" |
96 | "Noto Emoji" | 96 | "Apple Color Emoji" |
97 | "Segoe UI Emoji" | 97 | "FreeSans" |
98 | "Apple Color Emoji" | 98 | "FreeMono" |
99 | "FreeSans" | 99 | "FreeSerif" |
100 | "FreeMono" | 100 | "Unifont" |
101 | "FreeSerif" | 101 | "Symbola")) |
102 | "Unifont" | 102 | (when (member font ffl) |
103 | "Symbola")) | 103 | (set-fontset-font t 'symbol (font-spec :family font) nil :append))))) |
104 | (when (member font ffl) | ||
105 | (set-fontset-font t 'symbol (font-spec :family font) nil :append)))) | ||
106 | 104 | ||
107 | ;;; Packages | 105 | ;;; Packages |
108 | 106 | ||