From 582fefbf468a1dfd1f8f1540dd971f2ae04f6970 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 27 Apr 2021 11:35:40 -0500
Subject: Improve emoji font selection

Now, I loop through a list of candidates and append all that are available to
the symbol fontset.
---
 init.el | 15 +++++++++------
 1 file 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 @@
   (icomplete-mode +1)
 
   ;; Emoji
-  (when-let* ((ffl (font-family-list))
-              (symbol-font (car (or (member "Segoe UI Emoji" ffl)
-                                    (member "Noto Color Emoji" ffl)
-                                    (member "Apple Emoji" ffl)))))
-    (set-fontset-font t 'symbol (font-spec :family symbol-font) nil 'prepend))
-
+  (let ((ffl (font-family-list)))
+    (dolist (emoji-font '("Segoe UI Emoji"
+                          "Noto Color Emoji"
+                          "Apple Color Emoji"
+                          "Symbola"))
+      (when (member emoji-font ffl)
+        (set-fontset-font t 'symbol
+                          (font-spec :family emoji-font) nil 'append))))
+  
   ;; Etc.
   (:option inhibit-startup-screen t
            initial-buffer-choice t
-- 
cgit 1.4.1-21-gabe81