about summary refs log tree commit diff stats
path: root/machines
diff options
context:
space:
mode:
authorCase Duckworth2022-04-24 15:01:25 -0500
committerCase Duckworth2022-04-24 15:01:25 -0500
commit57b0d19290adde23fab8c21397463aacee57124b (patch)
treecdba786044d16b2ccf8961cc37396713b9d2dc98 /machines
parentAdd commentary to user-save.el (diff)
downloademacs-57b0d19290adde23fab8c21397463aacee57124b.tar.gz
emacs-57b0d19290adde23fab8c21397463aacee57124b.zip
Refactor
Diffstat (limited to 'machines')
-rw-r--r--machines/bob.el58
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)