From 5738c05f5bb51edf4780894d2c3819a07fc5fc1f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Feb 2022 23:05:47 -0600
Subject: Fix fonts

---
 machines/bob.el | 30 +++++++++++++++++++++++-------
 1 file changed, 23 insertions(+), 7 deletions(-)

(limited to 'machines/bob.el')

diff --git a/machines/bob.el b/machines/bob.el
index e9cb8ec..ff358cf 100644
--- a/machines/bob.el
+++ b/machines/bob.el
@@ -6,15 +6,31 @@
 
 (require 'acdw)
 
-;; [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
+;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
 (add-function :after machine-after-load-theme
               (defun +bob-set-faces (&rest _)
-                (let ((mono-face "Roboto Mono"))
+                (let ((base-face "Monego")
+                      (italic-face "Victor Mono")
+                      ;; (bold-face nil)
+                      (mono-face nil)
+                      (var-face "Lato")
+                      (base-size 110))
                   (+set-faces
-                   `((default :family ,mono-face :weight regular :height 110)
-                     (bold :family ,mono-face :weight medium)
-                     (fixed-pitch :inherit default)
-                     (italic :family "Victor Mono" :weight medium :slant italic :height 1.05)
-                     (variable-pitch :family "Open Sans" :height 1.1))))))
+                   `((default :family ,base-face
+                              :weight regular
+                              :height ,base-size)
+                     ;; (bold :family ,(or bold-face base-face)
+                     ;;       :weight bold)
+                     (italic :family ,(or italic-face base-face)
+                             :weight medium
+                             :slant italic
+                             :height ,base-size)
+                     (fixed-pitch :family ,(or mono-face base-face)
+                                  :weight regular
+                                  :height ,base-size)
+                     (variable-pitch :family ,(or var-face base-face)
+                                     :height 1.2)
+                     (org-italic :family ,(or var-face base-face)
+                                 :slant italic))))))
 
 ;;; bob.el ends here
-- 
cgit 1.4.1-21-gabe81