diff options
Diffstat (limited to 'machines')
-rw-r--r-- | machines/bob.el | 45 |
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) |