diff options
| author | Case Duckworth | 2022-08-19 13:39:13 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-08-19 13:39:13 -0500 |
| commit | 7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6 (patch) | |
| tree | 6c36a8846bc74db584713948a6c382d66047e2ad /machines | |
| parent | Add credit (diff) | |
| download | emacs-7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6.tar.gz emacs-7d0ff465220bec224c1f0c1163e6b4a88e1fb4c6.zip | |
bleh
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) |