summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-27 11:35:40 -0500
committerCase Duckworth2021-04-27 11:35:40 -0500
commit582fefbf468a1dfd1f8f1540dd971f2ae04f6970 (patch)
tree1cc0d759d4885a58df7d0d8e474d6e644856bc95
parentChange emacs-lisp eval bindings (diff)
downloademacs-582fefbf468a1dfd1f8f1540dd971f2ae04f6970.tar.gz
emacs-582fefbf468a1dfd1f8f1540dd971f2ae04f6970.zip
Improve emoji font selection
Now, I loop through a list of candidates and append all that are available to
the symbol fontset.
-rw-r--r--init.el15
1 files changed, 9 insertions, 6 deletions
diff --git a/init.el b/init.el index b6a01d0..f2224dc 100644 --- a/init.el +++ b/init.el
@@ -182,12 +182,15 @@
182 (icomplete-mode +1) 182 (icomplete-mode +1)
183 183
184 ;; Emoji 184 ;; Emoji
185 (when-let* ((ffl (font-family-list)) 185 (let ((ffl (font-family-list)))
186 (symbol-font (car (or (member "Segoe UI Emoji" ffl) 186 (dolist (emoji-font '("Segoe UI Emoji"
187 (member "Noto Color Emoji" ffl) 187 "Noto Color Emoji"
188 (member "Apple Emoji" ffl))))) 188 "Apple Color Emoji"
189 (set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend)) 189 "Symbola"))
190 190 (when (member emoji-font ffl)
191 (set-fontset-font t 'symbol
192 (font-spec :family emoji-font) nil 'append))))
193
191 ;; Etc. 194 ;; Etc.
192 (:option inhibit-startup-screen t 195 (:option inhibit-startup-screen t
193 initial-buffer-choice t 196 initial-buffer-choice t