From dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 15 Jun 2022 10:26:10 -0500
Subject: aodifu

---
 machines/bob.el | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

(limited to 'machines')

diff --git a/machines/bob.el b/machines/bob.el
index 06e605a..40db7b0 100644
--- a/machines/bob.el
+++ b/machines/bob.el
@@ -8,33 +8,36 @@
 (require 'machine)
 
 (defun +bob-set-faces (&rest _)
-  (let ((base-face "IBM Plex Mono")
-        (base-size 110)
+  (let (;;(base-face "IBM Plex Mono")
+        (base-face "Iosevka Comfy Wide")
+        (base-size 100)
         (italic-face nil)
         ;; (bold-face nil)
         (mono-face nil)
-        (var-face "IBM Plex Sans")
+        ;; (var-face "IBM Plex Sans")
+        (var-face "Iosevka Comfy Duo")
         (var-size 1.0))
     (+set-faces
      `((default
          :family ,base-face
          :height ,base-size
-         :weight normal)
-       ;; (bold :family ,(or bold-face base-face)
-       ;;       :weight bold)
-       (italic :family ,(or italic-face base-face)
+         :weight regular)
+       (bold :family ,(or (bound-and-true-p bold-face) base-face)
+             :weight extra-bold)
+       (italic :family ,(or (bound-and-true-p italic-face) base-face)
                :weight normal
                :slant italic)
-       (fixed-pitch :family ,(or mono-face base-face)
+       (fixed-pitch :family ,(or (bound-and-true-p mono-face) base-face)
                     :height 1.0)
        (variable-pitch
         :family ,(or var-face base-face)
         :height ,var-size)
-       (org-italic
-        :family ,(or var-face base-face)
-        :slant italic)))))
+       ;; (org-italic
+       ;;  :family ,(or var-face base-face)
+       ;;  :slant italic)
+       ))))
 
 ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
-(add-function :after machine-after-load-theme #'+bob-set-faces)
+(add-hook 'machine-after-load-theme-hook #'+bob-set-faces)
 
 ;; bob.el ends here (+bob-set-faces)
-- 
cgit 1.4.1-21-gabe81