From 57b0d19290adde23fab8c21397463aacee57124b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 24 Apr 2022 15:01:25 -0500
Subject: Refactor

---
 machines/bob.el | 58 ++++++++++++++++++++++++++++-----------------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

(limited to 'machines')

diff --git a/machines/bob.el b/machines/bob.el
index 912659e..a754c2d 100644
--- a/machines/bob.el
+++ b/machines/bob.el
@@ -7,34 +7,34 @@
 (require 'acdw)
 (require 'machine)
 
+(defun +bob-set-faces (&rest _)
+  (let ((base-face "IBM Plex Mono")
+        (base-size 105)
+        (italic-face nil)
+        ;; (bold-face nil)
+        (mono-face nil)
+        (var-face "IBM Plex Serif")
+        (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 normal
+               :slant italic)
+       (fixed-pitch :family ,(or 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)))))
+
 ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
-(add-function :after machine-after-load-theme
-              (defun +bob-set-faces (&rest _)
-                (let ((base-face "IBM Plex Mono")
-                      (base-size 105)
-                      (italic-face nil)
-                      ;; (bold-face nil)
-                      (mono-face nil)
-                      (var-face "IBM Plex Serif")
-                      (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 normal
-                             :slant italic)
-                     (fixed-pitch :family ,(or 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))))
-                ))
+(add-function :after machine-after-load-theme #'+bob-set-faces)
 
-;; bob.el ends here
+;; bob.el ends here (+bob-set-faces)
-- 
cgit 1.4.1-21-gabe81