about summary refs log tree commit diff stats
path: root/machines/bob.el
diff options
context:
space:
mode:
authorCase Duckworth2022-08-19 13:39:13 -0500
committerCase Duckworth2022-08-19 13:39:13 -0500
commit7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6 (patch)
tree6c36a8846bc74db584713948a6c382d66047e2ad /machines/bob.el
parentAdd credit (diff)
downloademacs-7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6.tar.gz
emacs-7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6.zip
bleh
Diffstat (limited to 'machines/bob.el')
-rw-r--r--machines/bob.el45
1 files changed, 33 insertions, 12 deletions
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 @@
7(require 'acdw) 7(require 'acdw)
8(require 'machine) 8(require 'machine)
9 9
10(defcustom +bob-face-plist
11 '( :dejavu ("DejaVu Sans Mono" "DejaVu Sans")
12 :iosevka ("Iosevka Comfy Wide" "Iosevka Comfy Duo")
13 :plex ("IBM Plex Mono" "IBM Plex Serif")
14 :go/djv ("Go Mono" "DejaVu Sans")
15 :tt (("TT2020Base" 120) "TT2020 Base Style E") ; no italic
16 :courier ("Courier Prime Code" "Courier Prime")
17 :gaegu (("Gaegu" 140) "Gaegu") ; no italic
18 :comic (("Comic Code" 100) "Comic Code")
19 :go/comic (("Go Mono" 100) ("Comic Code" 100))
20 )
21 "A plist of possible font combinations.")
22
23(defcustom +bob-face-pair :comic ;; (+bob-set-faces)
24 "The index of `+bob-face-pairs' to use.")
25
10(defun +bob-set-faces (&rest _) 26(defun +bob-set-faces (&rest _)
11 (let (;;(base-face "IBM Plex Mono") 27 (let* ((face-pair (plist-get +bob-face-plist +bob-face-pair))
12 ;; (var-face "IBM Plex Sans") 28 (base-face (if (stringp (car face-pair))
13 ;; (base-face "Iosevka Comfy Wide") 29 (car face-pair)
14 ;; (var-face "Iosevka Comfy Duo") 30 (caar face-pair)))
15 (base-face "DejaVu Sans Mono") 31 (var-face (if (stringp (cadr face-pair))
16 (var-face "DejaVu Sans") 32 (cadr face-pair)
17 (base-size 100) 33 (caadr face-pair)))
18 (var-size 1.0) 34 (base-size (or (ignore-errors (cadar face-pair))
19 (italic-face nil) 35 100))
20 ;; (bold-face nil) 36 (var-size (or (ignore-errors (cadadr face-pair))
21 (mono-face nil)) 37 1.0))
38 (italic-face nil)
39 ;; (bold-face nil)
40 (mono-face nil))
22 (+set-faces 41 (+set-faces
23 `((default 42 `((default
24 :family ,base-face 43 :family ,base-face
@@ -33,7 +52,9 @@
33 :height 1.0) 52 :height 1.0)
34 (variable-pitch 53 (variable-pitch
35 :family ,(or var-face base-face) 54 :family ,(or var-face base-face)
36 :height ,var-size) 55 :height ,var-size
56 ;; :weight medium
57 )
37 ;; (org-italic 58 ;; (org-italic
38 ;; :family ,(or var-face base-face) 59 ;; :family ,(or var-face base-face)
39 ;; :slant italic) 60 ;; :slant italic)