summary refs log tree commit diff stats
path: root/machines
diff options
context:
space:
mode:
authorCase Duckworth2022-06-15 10:26:10 -0500
committerCase Duckworth2022-06-15 10:26:10 -0500
commitdbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced (patch)
tree18b152655077e6519b491edeb76aa14f2cd10306 /machines
parentFix startup complaining (diff)
downloademacs-dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced.tar.gz
emacs-dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced.zip
aodifu
Diffstat (limited to 'machines')
-rw-r--r--machines/bob.el27
1 files changed, 15 insertions, 12 deletions
diff --git a/machines/bob.el b/machines/bob.el index 06e605a..40db7b0 100644 --- a/machines/bob.el +++ b/machines/bob.el
@@ -8,33 +8,36 @@
8(require 'machine) 8(require 'machine)
9 9
10(defun +bob-set-faces (&rest _) 10(defun +bob-set-faces (&rest _)
11 (let ((base-face "IBM Plex Mono") 11 (let (;;(base-face "IBM Plex Mono")
12 (base-size 110) 12 (base-face "Iosevka Comfy Wide")
13 (base-size 100)
13 (italic-face nil) 14 (italic-face nil)
14 ;; (bold-face nil) 15 ;; (bold-face nil)
15 (mono-face nil) 16 (mono-face nil)
16 (var-face "IBM Plex Sans") 17 ;; (var-face "IBM Plex Sans")
18 (var-face "Iosevka Comfy Duo")
17 (var-size 1.0)) 19 (var-size 1.0))
18 (+set-faces 20 (+set-faces
19 `((default 21 `((default
20 :family ,base-face 22 :family ,base-face
21 :height ,base-size 23 :height ,base-size
22 :weight normal) 24 :weight regular)
23 ;; (bold :family ,(or bold-face base-face) 25 (bold :family ,(or (bound-and-true-p bold-face) base-face)
24 ;; :weight bold) 26 :weight extra-bold)
25 (italic :family ,(or italic-face base-face) 27 (italic :family ,(or (bound-and-true-p italic-face) base-face)
26 :weight normal 28 :weight normal
27 :slant italic) 29 :slant italic)
28 (fixed-pitch :family ,(or mono-face base-face) 30 (fixed-pitch :family ,(or (bound-and-true-p mono-face) base-face)
29 :height 1.0) 31 :height 1.0)
30 (variable-pitch 32 (variable-pitch
31 :family ,(or var-face base-face) 33 :family ,(or var-face base-face)
32 :height ,var-size) 34 :height ,var-size)
33 (org-italic 35 ;; (org-italic
34 :family ,(or var-face base-face) 36 ;; :family ,(or var-face base-face)
35 :slant italic))))) 37 ;; :slant italic)
38 ))))
36 39
37;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]] 40;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
38(add-function :after machine-after-load-theme #'+bob-set-faces) 41(add-hook 'machine-after-load-theme-hook #'+bob-set-faces)
39 42
40;; bob.el ends here (+bob-set-faces) 43;; bob.el ends here (+bob-set-faces)