summary refs log tree commit diff stats
path: root/early-init.el
diff options
context:
space:
mode:
authorCase Duckworth2022-01-11 16:01:03 -0600
committerCase Duckworth2022-01-11 16:01:03 -0600
commite4f7ed9609d85f80f3f54dae7485f06a49fc4d3c (patch)
treef45f690e7c720177e359ad4a5d4f2f015f011103 /early-init.el
parentMerge branch 'main' of https://tildegit.org/acdw/emacs (diff)
downloademacs-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.el54
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