From 7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 19 Aug 2022 13:39:13 -0500
Subject: bleh

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

(limited to 'machines/bob.el')

diff --git a/machines/bob.el b/machines/bob.el
index 5effc5b..7c1a16d 100644
--- a/machines/bob.el
+++ b/machines/bob.el
@@ -7,18 +7,37 @@
 (require 'acdw)
 (require 'machine)
 
+(defcustom +bob-face-plist
+  '( :dejavu ("DejaVu Sans Mono" "DejaVu Sans")
+     :iosevka ("Iosevka Comfy Wide" "Iosevka Comfy Duo")
+     :plex ("IBM Plex Mono" "IBM Plex Serif")
+     :go/djv ("Go Mono" "DejaVu Sans")
+     :tt (("TT2020Base" 120) "TT2020 Base Style E") ; no italic
+     :courier ("Courier Prime Code" "Courier Prime")
+     :gaegu (("Gaegu" 140) "Gaegu")     ; no italic
+     :comic (("Comic Code" 100) "Comic Code")
+     :go/comic (("Go Mono" 100) ("Comic Code" 100))
+     )
+  "A plist of possible font combinations.")
+
+(defcustom +bob-face-pair :comic ;; (+bob-set-faces)
+  "The index of `+bob-face-pairs' to use.")
+
 (defun +bob-set-faces (&rest _)
-  (let (;;(base-face "IBM Plex Mono")
-        ;; (var-face "IBM Plex Sans")
-        ;; (base-face "Iosevka Comfy Wide")
-        ;; (var-face "Iosevka Comfy Duo")
-        (base-face "DejaVu Sans Mono")
-        (var-face "DejaVu Sans")
-        (base-size 100)
-        (var-size 1.0)
-        (italic-face nil)
-        ;; (bold-face nil)
-        (mono-face nil))
+  (let* ((face-pair (plist-get +bob-face-plist +bob-face-pair))
+         (base-face (if (stringp (car face-pair))
+                        (car face-pair)
+                      (caar face-pair)))
+         (var-face (if (stringp (cadr face-pair))
+                       (cadr face-pair)
+                     (caadr face-pair)))
+         (base-size (or (ignore-errors (cadar face-pair))
+                        100))
+         (var-size (or (ignore-errors (cadadr face-pair))
+                       1.0))
+         (italic-face nil)
+         ;; (bold-face nil)
+         (mono-face nil))
     (+set-faces
      `((default
          :family ,base-face
@@ -33,7 +52,9 @@
                     :height 1.0)
        (variable-pitch
         :family ,(or var-face base-face)
-        :height ,var-size)
+        :height ,var-size
+        ;; :weight medium
+        )
        ;; (org-italic
        ;;  :family ,(or var-face base-face)
        ;;  :slant italic)
-- 
cgit 1.4.1-21-gabe81