From 849e805ad2b1f5043ec585363bd1890cb04cb378 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Sep 2020 21:35:33 -0500
Subject: Set fonts ... better?

---
 init.el | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ede4118..fbbb0d7 100644
--- a/init.el
+++ b/init.el
@@ -12,8 +12,29 @@
   (setq browse-url-browser-function 'browse-url-generic)
   (setq  browse-url-generic-program "firefox")
 
-  :custom-face
-  (default ((t (:family "Iosevka Term Slab" :height 110)))))
+  ;; fonts
+  (require 'cl)
+  (defun font-candidate (&rest fonts)
+    "Return existing font which matches first."
+    (find-if (lambda (f) (find-font (font-spec :name f))) fonts))
+
+  (set-face-attribute 'variable-pitch nil
+                      :font (font-candidate
+                             "Dejavu Sans-11"
+                             "Georgia-11"
+                             "Times-11"))
+
+  (set-face-attribute 'fixed-pitch nil
+                      :font (font-candidate
+                             "Fira Code-11"
+                             "DejaVu Sans Mono-11"
+                             "Courier-11"
+                             "Fixed-11"))
+
+  (set-face-attribute 'default nil
+                      :font (font-candidate
+                             "Iosevka Term Slab-11"
+                             "Consolas-11")))
 
 (use-package no-littering
   :config
@@ -107,6 +128,7 @@
   ([remap split-window-right] . split-and-follow-right)
 
   :hook
+  (prog-mode-hook . prettify-symbols-mode)
   (auto-save-hook . full-auto-save)
   (focus-out-hook . full-auto-save)
   (before-save-hook . delete-trailing-whitespace))
-- 
cgit 1.4.1-21-gabe81