diff options
Diffstat (limited to 'machines')
-rw-r--r-- | machines/bob.el | 58 |
1 files changed, 29 insertions, 29 deletions
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 @@ | |||
7 | (require 'acdw) | 7 | (require 'acdw) |
8 | (require 'machine) | 8 | (require 'machine) |
9 | 9 | ||
10 | (defun +bob-set-faces (&rest _) | ||
11 | (let ((base-face "IBM Plex Mono") | ||
12 | (base-size 105) | ||
13 | (italic-face nil) | ||
14 | ;; (bold-face nil) | ||
15 | (mono-face nil) | ||
16 | (var-face "IBM Plex Serif") | ||
17 | (var-size 1.0)) | ||
18 | (+set-faces | ||
19 | `((default | ||
20 | :family ,base-face | ||
21 | :height ,base-size | ||
22 | :weight normal) | ||
23 | ;; (bold :family ,(or bold-face base-face) | ||
24 | ;; :weight bold) | ||
25 | (italic :family ,(or italic-face base-face) | ||
26 | :weight normal | ||
27 | :slant italic) | ||
28 | (fixed-pitch :family ,(or mono-face base-face) | ||
29 | :height 1.0) | ||
30 | (variable-pitch | ||
31 | :family ,(or var-face base-face) | ||
32 | :height ,var-size) | ||
33 | (org-italic | ||
34 | :family ,(or var-face base-face) | ||
35 | :slant italic))))) | ||
36 | |||
10 | ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] | 37 | ;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] |
11 | (add-function :after machine-after-load-theme | 38 | (add-function :after machine-after-load-theme #'+bob-set-faces) |
12 | (defun +bob-set-faces (&rest _) | ||
13 | (let ((base-face "IBM Plex Mono") | ||
14 | (base-size 105) | ||
15 | (italic-face nil) | ||
16 | ;; (bold-face nil) | ||
17 | (mono-face nil) | ||
18 | (var-face "IBM Plex Serif") | ||
19 | (var-size 1.0)) | ||
20 | (+set-faces | ||
21 | `((default | ||
22 | :family ,base-face | ||
23 | :height ,base-size | ||
24 | :weight normal) | ||
25 | ;; (bold :family ,(or bold-face base-face) | ||
26 | ;; :weight bold) | ||
27 | (italic :family ,(or italic-face base-face) | ||
28 | :weight normal | ||
29 | :slant italic) | ||
30 | (fixed-pitch :family ,(or mono-face base-face) | ||
31 | :height 1.0) | ||
32 | (variable-pitch | ||
33 | :family ,(or var-face base-face) | ||
34 | :height ,var-size) | ||
35 | (org-italic | ||
36 | :family ,(or var-face base-face) | ||
37 | :slant italic)))) | ||
38 | )) | ||
39 | 39 | ||
40 | ;; bob.el ends here | 40 | ;; bob.el ends here (+bob-set-faces) |