From bf47f664ccc64295b694cda51183c79d907909b2 Mon Sep 17 00:00:00 2001
From: "Alison G. Watson" <alison@nightdivestudios.com>
Date: Fri, 5 Jun 2020 14:38:20 -0600
Subject: [PATCH] emacs: add mode-line family for non-freetype systems

---
 emacs/early-init.el | 14 ++++++++------
 emacs/init.el       |  2 +-
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/emacs/early-init.el b/emacs/early-init.el
index 60a0d9a..5c572e5 100644
--- a/emacs/early-init.el
+++ b/emacs/early-init.el
@@ -36,12 +36,14 @@
 (copy-face 'default 'fixed-pitch)
 (copy-face 'default 'mode-line)
 
-;; fontset usage
-(dolist (range '((#x2310  . #x26bf)
-                 (#x26c0  . #x329f)
-                 (#x1f000 . #x1fa9f)))
-  (set-fontset-font t range "Noto Color Emoji"))
+(setq agw-mode-line-family
+      (if (string-equal system-type "windows-nt")
+          "Noto Mono"
+          "tewi2a"))
 
-(set-fontset-font t '(#x2e80 . #x9fff) "Noto Sans CJK JP")
+;; font alternatives
+(setq face-font-family-alternatives
+      '(("Courier Prime Code" "Noto Mono")
+        ("Source Sans Pro" "Noto Sans" "Noto Sans CJK JP" "Noto Color Emoji")))
 
 ;; EOF
diff --git a/emacs/init.el b/emacs/init.el
index dc85c1c..93aaf2d 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -86,7 +86,7 @@
                   header-line
                   header-line-highlight))
           (set-face-attribute face nil
-                              :family "tewi2a"
+                              :family agw-mode-line-family
                               :height 90
                               :weight 'normal
                               :width  'normal))