diff options
| author | Case Duckworth | 2021-04-27 11:35:40 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-27 11:35:40 -0500 |
| commit | 582fefbf468a1dfd1f8f1540dd971f2ae04f6970 (patch) | |
| tree | 1cc0d759d4885a58df7d0d8e474d6e644856bc95 | |
| parent | Change emacs-lisp eval bindings (diff) | |
| download | emacs-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.el | 15 |
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 |