diff options
| author | Case Duckworth | 2022-01-11 16:01:03 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-11 16:01:03 -0600 |
| commit | e4f7ed9609d85f80f3f54dae7485f06a49fc4d3c (patch) | |
| tree | f45f690e7c720177e359ad4a5d4f2f015f011103 /early-init.el | |
| parent | Merge branch 'main' of https://tildegit.org/acdw/emacs (diff) | |
| download | emacs-e4f7ed9609d85f80f3f54dae7485f06a49fc4d3c.tar.gz emacs-e4f7ed9609d85f80f3f54dae7485f06a49fc4d3c.zip | |
Lots o changes at work
I need to fix +circe-define-filter or something
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 | ||